Analyzer/T20/t_raw_dump_all.f - view

Return to t_raw_dump_all.f CVS log

Up to [HallC] / Analyzer / T20

File: [HallC] / Analyzer / T20 / t_raw_dump_all.f (download)
Revision: 1.1, Tue Dec 1 20:57:09 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_raw_dump_all(ABORT,err)
*--------------------------------------------------------
*-
*-   Purpose and Methods : Dump all raw T20 banks
*-
*-      Required Input BANKS     SOS_RAW_SCIN,SOS_RAW_CAL,SOS_RAW_DC
*-
*-   Output: ABORT           - success or failure
*-         : err             - reason for failure, if any
*- 
*-   Created 25-Jan-1997   S. A. Wood
* $Log: t_raw_dump_all.f,v $
* Revision 1.1  1998/12/01 20:57:09  saw
* Initial revision
*
*--------------------------------------------------------
       IMPLICIT NONE
       SAVE
*
       character*14 here
       parameter (here= 't_raw_dump_all')
*
       logical ABORT
       character*(*) err
*
       include 't20_data_structures.cmn'
       include 't20_hodo_parms.cmn'
       include 't20_tracking.cmn'
c       include 'sos_calorimeter.cmn'
*
*--------------------------------------------------------
       ABORT = .FALSE.
       err = ' '
*  Dump raw bank if tdebugprinthodoraw is set
       if( tdebugprinthodoraw .ne. 0) then
         call t_prt_raw_hodo(ABORT,err)
       endif
*
*      Dump raw bank if debug flag set
       if(tdebugprintmwpcraw.ne.0) then
         call t_prt_raw_mwpc(ABORT,err)
       endif
       RETURN
       END

Analyzer/Replay: Mark Jones, Documents: Stephen Wood