*-- Author : John V. Morris
SUBROUTINE FQENDR
************************************************************************
* *
* End of run processing for RADIAL 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 = 288.0
CALL FVFITR( 1,72) ! Global DON'T
CALL FVFITR( 2,73) ! SM0 CHANGE
CALL FVFITR( 3,74) ! SM1 THIS
CALL FVFITR( 4,75) ! SM2 ORDER *!*!
CALL FVFITR( 5,76) ! SM0 Layer 1
CALL FVFITR( 6,77) ! SM0 Layer 2
CALL FVFITR( 7,78) ! SM0 Layer 3
CALL FVFITR( 8,79) ! SM1 Layer 4
CALL FVFITR( 9,80) ! SM1 Layer 5
CALL FVFITR(10,81) ! SM1 Layer 6
CALL FVFITR(11,82) ! SM2 Layer 7
CALL FVFITR(12,83) ! SM2 Layer 8
CALL FVFITR(13,84) ! SM2 Layer 9
CALL FVFITR(14,1072) ! Global
CALL FVFITR(15,1073) ! SM0 3-hit sum
CALL FVFITR(16,1074) ! SM1
CALL FVFITR(17,1075) ! SM2
CALL FVFITR(18,1076) ! Layer 0
CALL FVFITR(19,1077) ! Layer 1 Module 0
CALL FVFITR(20,1078) ! Layer 2
CALL FVFITR(21,1079) ! Layer 0
CALL FVFITR(22,1080) ! Layer 1 Module 1
CALL FVFITR(23,1081) ! Layer 2
CALL FVFITR(24,1082) ! Layer 0
CALL FVFITR(25,1083) ! Layer 1 Module 1
CALL FVFITR(26,1084) ! Layer 2
CALL FVFITR(27,2072) ! Global
CALL FVFITR(28,2073) ! SM0 3-hit sum
CALL FVFITR(29,2074) ! SM1
CALL FVFITR(30,2075) ! SM2
CALL FVFITR(31,2076) ! Layer 0
CALL FVFITR(32,2077) ! Layer 1 Module 0
CALL FVFITR(33,2078) ! Layer 2
CALL FVFITR(34,2079) ! Layer 0
CALL FVFITR(35,2080) ! Layer 1 Module 1
CALL FVFITR(36,2081) ! Layer 2
CALL FVFITR(37,2082) ! Layer 0
CALL FVFITR(38,2083) ! Layer 1 Module 1
CALL FVFITR(39,2084) ! Layer 2
********************************************************************
* Histogram only selected plots for monitoring ...******************
CALL HMINIM(0,0.)
CALL HIDOPT(40,'BLAC')
CALL HIDOPT(44,'BLAC')
CALL HIDOPT(45,'BLAC')
CALL HIDOPT(46,'BLAC')
* CALL HIDOPT(47,'BLAC')
* CALL HIDOPT(48,'BLAC')
CALL HIDOPT(49,'BLAC')
CALL HIDOPT(50,'BLAC')
CALL HIDOPT(51,'BLAC')
CALL HIDOPT(52,'BLAC')
CALL HIDOPT(53,'BLAC')
*JVM CALL HIDOPT(54,'BLAC')
CALL HIDOPT(55,'BLAC')
CALL HIDOPT(56,'BLAC')
CALL HIDOPT(57,'BLAC')
CALL HIDOPT(58,'BLAC')
CALL HIDOPT(59,'BLAC')
CALL HIDOPT(60,'BLAC')
CALL HIDOPT(61,'BLAC')
CALL HIDOPT(62,'BLAC')
CALL HIDOPT(63,'BLAC')
CALL HIDOPT(64,'BLAC')
CALL HIDOPT(65,'BLAC')
CALL HIDOPT(66,'BLAC')
CALL HIDOPT(67,'BLAC')
CALL HIDOPT(68,'BLAC')
CALL HIDOPT(89,'PERR')
CALL HIDOPT(88,'PERR')
CALL FSUMR
* End of monitoring histogram output *******************************
********************************************************************
RETURN
END
*