*-- Author :    Girish D. Patel   07/12/93
      SUBROUTINE FILLQP(IW,T,Q,M)
**********************************************************************                                        
*                                                                    *                                        
* 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)          *                                        
* M  = DOS multiplicity within hit (=1 for "clean" hit,0 if no info) *                                        
*                                                                    *                                        
* JVM  9/6/92                                                        *                                        
**********************************************************************                                        
*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,FMOWRK.                                                                                                 
*     planar hit data...                                                                                      
*     radial hit data...                                                                                      
*KEEP,FMOHIT.                                                                                                 
*KEND.                                                                                                        
*KEEP,FMOHIS.                                                                                                 
*KEEP,FMOLUN.                                                                                                 
*KEND.                                                                                                        
      CALL SHSW(IHS(26),0,18.,1.)                                                                      
      CALL SHSW(IHS(26),0,19.,1.)                                                                      
         CALL SHD (IHS(1),0,FLOAT(NCO),FLOAT(NPIOS))             !SGI                                  
* fill vector of hits per orientation                                                                         
* Histograms for ALL available hits ...                                                                       
      CALL SHSW(IHS(26),0,48.+FLOAT(LH),1.)                                                            
         CALL SHD (IHS( 5),0,T,QLOG)                             !SGI                                  
         CALL SHD (IHS( 6),0,QLOG,0.)                            !SGI                                  
         CALL SHD (IHS( 6),0,QLOG,FLOAT(NWC) )                   !SGI                                  
         CALL SHS (IHS(3),0,T)                                   !SGI                                  
         CALL SHDW (IHS(10),0,T-5.,0.5,+1.)                      !SGI                                  
         CALL SHDW (IHS(10),0,T+5.,0.5,-1.)                      !SGI                                  
         CALL SHDW (IHS(10),0,T-5.,FLOAT(LM)+1.5,+1.)            !SGI                                  
         CALL SHDW (IHS(10),0,T+5.,FLOAT(LM)+1.5,-1.)            !SGI                                  
         CALL SHDW (IHS(10),0,T-5.,FLOAT(LH)+4.5,+1.)            !SGI                                  
         CALL SHDW (IHS(10),0,T+5.,FLOAT(LH)+4.5,-1.)            !SGI                                  
         CALL SHDW (IHS( 9),0,T-5.,0.5,-1.)                      !SGI                                  
         CALL SHDW (IHS( 9),0,T+5.,0.5,+1.)                      !SGI                                  
         CALL SHDW (IHS( 9),0,T-5.,FLOAT(LM)+1.5,-1.)            !SGI                                  
         CALL SHDW (IHS( 9),0,T+5.,FLOAT(LM)+1.5,+1.)            !SGI                                  
         CALL SHDW (IHS( 9),0,T-5.,FLOAT(LH)+4.5,-1.)            !SGI                                  
         CALL SHDW (IHS( 9),0,T+5.,FLOAT(LH)+4.5,+1.)            !SGI                                  
*