*-- 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
*