*-- Author :    Girish D. Patel   07/12/93
      SUBROUTINE FQMONP
*KEEP,FMOHIS.                                                                                                 
*KEEP,FMOLUN.                                                                                                 
*KEEP,FMORUN.                                                                                                 
*KEEP,FMOSUM.                                                                                                 
*     TOTL   total run luminosity (mb^-1)                                                                     
*     H1L    H1 gated run luminosity (mb^-1)                                                                  
*     RTIME  total run time (sec)                                                                             
*     REFF   run efficiency = (1 - dead_time/run_time)                                                        
*     ILRET  return flag: 0 - ok,  1 - no inf. found in H1DB                                                  
*KEEP,FMOSCA.                                                                                                 
*KEEP,FMOWRK.                                                                                                 
*     planar hit data...                                                                                      
*     radial hit data...                                                                                      
*KEEP,BCS.                                                                                                    
*KEEP,CNSTBF.                                                                                                 
*KEND.                                                                                                        
*                                                                                                             
* integer*2 bos array                                                                                         
*KEEP,STFUNCT.                                                                                                
*     index of element before row number IROW                                                                 
*     index of L'th element  of row number IROW                                                               
*     L'th integer element of the IROW'th row of bank with index IND                                          
*     L'th real element of the IROW'th row of bank with index IND                                             
*KEEP,FTFUNCT.                                                                                                
*     Statement functions for RADIAL Chamber data access.                                                     
*     Using Channel Number J                                                                                  
*     Module, Wedge-pair and Z-plane numbers...                                                               
*     Statement function for obtaining WEDGE numbers(0-47) of                                                 
*     wires at plus and minus ends of Cell numbers                                                            
*     Statement function for obtaining IOS wire number (1-36)                                                 
*     Statement functions for PLANAR Chamber data access.                                                     
*     Using Channel Number J                                                                                  
*     Module, orientation, W-cell and Z-plane numbers...                                                      
*     IPSMD in range 0:8 Planar module number.                                                                
*                                                                                                             
*     IOS wire number (runs from 0 to 36)                                                                     
* SB plane numbers (1-72) from cell number                                                                    
* Module, orientation, wire and (typical) cell number from plane                                              
* number in the range 1-72 (planars, radials and combined)                                                    
*KEND.                                                                                                        
*     function for time of flight correction.                                                                 
*                                                                                                             
*       'event' banks...                                                                                      
        IQFRPE = NAMIND('FRPE')
        IQFRPD = NAMIND('FRPD')
*       from database...                                                                                      
        IQF1PA = NAMIND('F1PA')
*                                                                                                             
*       Hit database to update                                                                                
*       wire-by-wire (F1PA) constants.                                                                        
*                                                                                                             
        CALL UGTBNK('F1PA',IND)
*     Initialise for this event. Zero arrays                                                                  
      CALL VZERO( TT(0,1,1),NW3 )                                                                      
      CALL VZERO( QQ(0,1,1),NW3 )                                                                      
      CALL VZERO( NHIT(0,1),NW2 )                                                                      
         CALL SHSW(IHS(26),0,20.,1.)                                                                   
* statistics for run summary ...                                                                              
         CALL SHSW(IHS(26),0, 8.,1.)                                                                   
         CALL SHSW(IHS(26),0, 9.,1.)                                                                   
         CALL SHSW(IHS(26),0,10.,1.)                                                                   
         CALL SHSW(IHS(26),0,11.,1.)                                                                   
C                          FRPE BANK PRESENT - GO FOR IT !!!                                                  
C ATTEMPT TO READ WIRE NO., T AND Q FROM BANK                                                                 
C                                                                                                             
C               INDX IS THE ADDRESS OF THE END OF THE PREVIOUS RECORD                                         
C               IN 2-BYTE WORDS                                                                               
C                                CHECK CONTENTS ARE BELIEVABLE (?)                                            
C               EVERYTHING SHOUD BE OK - READ OUT CONTENTS                                                    
C                               LOOP OVER HITS IN QT OUTPUT BANK                                              
*        Extract wire dependent T0 for Channel IWIRE...                                                       
*        Correct drift time for wire-by-wire T0                                                               
         CALL FILLQP(IWIRE,FDT,FQ,0)  ! fill T and Q arrays
      CALL  SHS (IHS(27),0,FPT)                                                                        
        CALL FCHKQP
*