Return to t_prt_raw_mwpc.f CVS log | Up to [HallC] / Analyzer / T20 |
File: [HallC] / Analyzer / T20 / t_prt_raw_mwpc.f
(download)
Revision: 1.1, Tue Dec 1 20:57:33 1998 UTC (25 years, 9 months ago) by saw Branch: MAIN CVS Tags: spring03, sep-26-2002, sep-25-2002, sep-24-2002, sep-09-2002, sane, pionct, online07, online04, online03, oct1199, mduality, mar-24-2003, gep_online, gep3, fpi2, emc, e01004, bigcal, baryon, aug-12-2003, apr-02-2003, Initial-CVS-Release, HEAD, Extra_Shower_Tubes_on_HMS_not_SOS Initial revision |
SUBROUTINE t_prt_raw_mwpc(ABORT,err) *-------------------------------------------------------- *- *- Purpose and Methods : Dump POLDER_RAW_MWPC BANKS *- *- Required Input BANKS POLDER_RAW_MWPC *- *- Output: ABORT - success or failure *- : err - reason for failure, if any *- *- Created 25-Jan-1997 S. A. Wood * $Log: t_prt_raw_mwpc.f,v $ * Revision 1.1 1998/12/01 20:57:33 saw * Initial revision * *-------------------------------------------------------- IMPLICIT NONE SAVE * character*14 here parameter (here= 't_prt_raw_mwpc') * logical ABORT character*(*) err * integer*4 j include 't20_data_structures.cmn' include 'gen_constants.par' include 'gen_units.par' include 't20_tracking.cmn' c include 'hms_geometry.cmn' * *-------------------------------------------------------- ABORT = .FALSE. err = ' ' write(tluno,'('' POLDER_RAW_MWPC BANKS'')') write(tluno,'('' TMWPC_RAW_TOT_HITS='',I4)') TMWPC_RAW_TOT_HITS if(TMWPC_RAW_TOT_HITS.GT.0) then write(tluno,'('' Num Plane Wire TDC Value'')') write(tluno,'(1x,i2,2x,i3,7x,i4,5x,i10)') & (j,TMWPC_RAW_PLANE_NUM(j),TMWPC_RAW_WIRE_NUM(j), & TMWPC_RAW_TDC(j),j=1,TMWPC_RAW_TOT_HITS) endif RETURN END
Analyzer/Replay: Mark Jones, Documents: Stephen Wood |
Powered by ViewCVS 0.9.2-cvsgraph-1.4.0 |