*-- Author :    Girish D. Patel   07/12/93
      SUBROUTINE FQMON
*KEEP,FMOTOT.                                                                                                 
*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,FMOHIS.                                                                                                 
*KEND.                                                                                                        
      CALL SHSW(IHS(26),0,66.,1.)                                                                      
            CALL SHSW(IHS(26),0,1.,FLOAT(ISTSUM(1)))                                                   
            CALL SHSW(IHS(26),0,2.,FLOAT(ISTSUM(2)))                                                   
            CALL SHSW(IHS(26),0,3.,FLOAT(ISTSUM(3)))                                                   
            CALL SHSW(IHS(26),0,4.,FLOAT(ISTSUM(4)))                                                   
            CALL SHSW(IHS(26),0,5.,FLOAT(ISTSUM(5)))                                                   
            CALL SHSW(IHS(26),0,6.,FLOAT(ISTSUM(6)))                                                   
            CALL SHSW(IHS(26),0,7.,FLOAT(ISTSUM(7)))                                                   
*