*-- Author : Girish D. Patel
SUBROUTINE FQENDP
************************************************************************
* *
* End of run processing for PLANAR Monitoring *
* *
* JVM 29/04/93 *
* *
************************************************************************
*KEEP,FCOMF.
PARAMETER( NP = 8 ) ! number of fit parameters
COMMON/FCOMF/PAR(NP),STAG
*KEND.
* Set wire stagger to correct value for use in FM2SOV
STAG = 300.0
CALL FVFITP( 1,22) ! Global DON'T
CALL FVFITP( 2,23) ! SM0 CHANGE
CALL FVFITP( 3,24) ! SM1 THIS
CALL FVFITP( 4,25) ! SM2 ORDER *!*!
CALL FVFITP( 5,26) ! Layer 0
CALL FVFITP( 6,27) ! Layer 1 Module 0
CALL FVFITP( 7,28) ! Layer 2
CALL FVFITP( 8,29) ! Layer 0
CALL FVFITP( 9,30) ! Layer 1 Module 1
CALL FVFITP(10,31) ! Layer 2
CALL FVFITP(11,32) ! Layer 0
CALL FVFITP(12,33) ! Layer 1 Module 1
CALL FVFITP(13,34) ! Layer 2
CALL FVFITP(14,1022) ! Global
CALL FVFITP(15,1023) ! SM0 3-hit sum
CALL FVFITP(16,1024) ! SM1
CALL FVFITP(17,1025) ! SM2
CALL FVFITP(18,1026) ! Layer 0
CALL FVFITP(19,1027) ! Layer 1 Module 0
CALL FVFITP(20,1028) ! Layer 2
CALL FVFITP(21,1029) ! Layer 0
CALL FVFITP(22,1030) ! Layer 1 Module 1
CALL FVFITP(23,1031) ! Layer 2
CALL FVFITP(24,1032) ! Layer 0
CALL FVFITP(25,1033) ! Layer 1 Module 1
CALL FVFITP(26,1034) ! Layer 2
CALL FVFITP(27,2022) ! Global
CALL FVFITP(28,2023) ! SM0 3-hit sum
CALL FVFITP(29,2024) ! SM1
CALL FVFITP(30,2025) ! SM2
CALL FVFITP(31,2026) ! Layer 0
CALL FVFITP(32,2027) ! Layer 1 Module 0
CALL FVFITP(33,2028) ! Layer 2
CALL FVFITP(34,2029) ! Layer 0
CALL FVFITP(35,2030) ! Layer 1 Module 1
CALL FVFITP(36,2031) ! Layer 2
CALL FVFITP(37,2032) ! Layer 0
CALL FVFITP(38,2033) ! Layer 1 Module 1
CALL FVFITP(39,2034) ! Layer 2
********************************************************************
* Histogram only selected plots for monitoring ...******************
CALL HMINIM(0,0.)
CALL HIDOPT(3,'BLAC')
CALL HIDOPT(7,'BLAC')
CALL HIDOPT(8,'BLAC')
CALL HIDOPT(9,'BLAC')
CALL HIDOPT(10,'BLAC')
CALL HIDOPT(11,'BLAC')
*JVM CALL HIDOPT(12,'BLAC')
CALL HIDOPT(13,'BLAC')
CALL HIDOPT(14,'BLAC')
CALL HIDOPT(15,'BLAC')
CALL HIDOPT(16,'BLAC')
CALL HIDOPT(17,'BLAC')
CALL HIDOPT(18,'BLAC')
CALL FSUMP
* End of monitoring histogram output *******************************
********************************************************************
RETURN
END
*