FILLQR COMMENTS
*-- Author :    Girish D. Patel   07/12/93
      SUBROUTINE FILLQR(IW,T,Q,RAD,IS,IFLG2)
**********************************************************************                                        
*                                                                    *                                        
* Fill arrays with Ts and Qs for all cells, per event                *                                        
* IW    = Planar Channel Number (0 TO 1151)                          *                                        
* T     = Drift Time in nsec                                         *                                        
* Q     = Integrated Charge (FADC bins * FADC channel content)       *                                        
* RAD   = Charge division radius of hit in cms                       *                                        
* IS    = Wedge pair indicator 1 = + wedge , -1 = - wedge            *                                        
* IFLG2 = IFLAG2 FADC pulse information                              *                                        
*                                                                    *                                        
* JVM  9/6/92                                                        *                                        
**********************************************************************                                        
*KEEP,FMOBIN.                                                                                                 
*KEEP,FMOLUN.                                                                                                 
*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,FMOHIT.                                                                                                 
*KEEP,FMOWRK.                                                                                                 
*     planar hit data...                                                                                      
*     radial hit data...                                                                                      
*KEND.                                                                                                        
*KEEP,FMOHIS.                                                                                                 
*KEND.                                                                                                        
      CALL SHSW(IHS(26),0,38.,1.)                                                                      
        CALL SHSW(IHS(26),0,39.,1.)                                                                    
         CALL  SHD (IHS(11),0,FLOAT(NWPPM),FLOAT(NWM*12+NWW))    !SGI                                  
* fill vector of hits per orientation                                                                         
      CALL SHSW(IHS(26),0,57.+FLOAT(LH),1.)                                                            
* Histograms for ALL available hits ...                                                                       
         CALL  SHS (IHS(13),0,T)                                 !SGI                                  
*GDP     CALL  SHS (IHS(14),0,RAD*FLOAT(IS))                     !SGI                                         
         CALL  SHS (IHS(15),0,RAD)                               !SGI                                  
         CALL  SHSW(IHS(24),0,T-5.,+1.)                          !SGI                                  
         CALL  SHSW(IHS(24),0,T+5.,-1.)                          !SGI                                  
         CALL  SHDW(IHS(25),0,T-60.,XRAD,-1.)                    !SGI                                  
         CALL  SHDW(IHS(25),0,T+60.,XRAD,+1.)                    !SGI                                  
*GDP     CALL  SHD (IHS(16),0,T,RAD)                             !SGI                                         
         CALL  SHD (IHS(20),0,T,QLOG)                            !SGI                                  
*GDP     CALL  SHD (IHS(17),0,T,RAD)       Histo  redefined      !SGI                                         
*GDP     CALL  SHD (IHS(18),0,T,RAD)       Histo  redefined      !SGI                                         
         CALL  SHD (IHS(21),0,QLOG,0.)                           !SGI                                  
         CALL  SHD (IHS(21),0,QLOG,FLOAT(NWW))                   !SGI                                  
*