subroutine h_prt_tof(itrk) *------------------------------------------------------------------- * author: John Arrington * created: 3/27/94 * * h_prt_tof dumps the hms_scin_tof bank. * * modifications: * $Log: h_prt_tof.f,v $ * Revision 1.5.26.1 2008/11/17 15:58:28 cdaq * Changed from old to new tof offset * * Revision 1.5 1996/01/24 15:59:22 saw * (JRA) Add scin.center column to output * * Revision 1.4 1995/05/22 19:39:24 cdaq * (SAW) Split gen_data_data_structures into gen, hms, sos, and coin parts" * * Revision 1.3 1995/02/02 13:12:45 cdaq * (JRA) Cosmetic changes * * Revision 1.2 1994/09/13 20:28:43 cdaq * (JRA) Change output format, add missing variables * * Revision 1.1 1994/04/13 15:43:38 cdaq * Initial revision * *------------------------------------------------------------------- implicit none include 'hms_data_structures.cmn' include 'hms_scin_parms.cmn' include 'hms_scin_tof.cmn' include 'hms_tracking.cmn' * logical abort integer*4 ihit, itrk * character*1024 errmsg * character*25 here * parameter (here = 'h_prt_tof') save write(hluno,'('' ***H_SCIN_TOF BANK***'')') write(hluno,'('' TRACK NUMBER'',i3)') itrk write(hluno,'(''POSITION/CALIBRATION VARIABLES:'')') write(hluno,'('' +coord -coord '', & '' pos_dt neg_dt +sigma -sigma scin.center'')') do ihit=1,hscin_tot_hits write(hluno,'(f8.3,f8.3,2f8.3,2f8.3,f10.2)') & hscin_pos_coord(ihit), hscin_neg_coord(ihit), & hscin_pos_invadc_offset(ihit), > hscin_neg_invadc_offset(ihit), & hscin_pos_sigma(ihit), hscin_neg_sigma(ihit), & hscin_center_coord(ihit) enddo write(hluno,'(''HIT POSITION AND OTHER CALCULATED VARIABLES:'')') write(hluno,'('' long_coord trans_coord +time -time'', & '' scin_time scin_sig on_trk time@fp'')') do ihit=1,hscin_tot_hits write(hluno,'(2f12.4,2f9.3,f10.3,f8.3,l5,f10.3)') & hscin_long_coord(ihit), hscin_trans_coord(ihit), & hscin_pos_time(ihit), hscin_neg_time(ihit), & hscin_time(ihit), hscin_sigma(ihit), & hscin_on_track(itrk,ihit),hscin_time_fp(ihit) enddo write(hluno,'('' trk beta chisq_beta fp_time '', & ''num_scin_hit num_pmt_hit'')') write(hluno,'(i4,f8.4,f14.3,f9.3,i8,i12)') itrk, & hbeta(itrk), hbeta_chisq(itrk), htime_at_fp(itrk), & hnum_scin_hit(itrk),hnum_pmt_hit(itrk) write(hluno,*) return end