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