*-- Author :    John V. Morris
      SUBROUTINE FQENDR
************************************************************************                                      
*                                                                      *                                      
* End of run processing for RADIAL Monitoring                          *                                      
*                                                                      *                                      
* JVM  29/04/93                                                        *                                      
*                                                                      *                                      
************************************************************************                                      
*KEEP,FCOMF.                                                                                                  
*KEND.                                                                                                        
*  Set wire stagger to correct value for use in FM2SOV                                                        
      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 *******************************                                          
********************************************************************                                          
*