Analyzer/HTRACKING/h_print_raw_dc.f - view

Return to h_print_raw_dc.f CVS log

Up to [HallC] / Analyzer / HTRACKING

File: [HallC] / Analyzer / HTRACKING / h_print_raw_dc.f (download)
Revision: 1.2, Mon May 22 18:39:17 1995 UTC (29 years, 4 months ago) by cdaq
Branch: MAIN
CVS Tags: spring03, sep0596, sep-26-2002, sep-25-2002, sep-24-2002, sep-09-2002, sane, pionct, online07, online04, online03, oct1199, nov2696, mduality, may2495, mar-24-2003, jul2895, jan2496, jan1896, jan1796, gep3, fpi2, emc, e01004, dec0198, bigcal, baryon, aug-12-2003, apr3096, apr-02-2003, Initial-CVS-Release, HEAD, Extra_Shower_Tubes_on_HMS_not_SOS
Branch point for: gep_online
Changes since 1.1: +5 -2 lines

(SAW) Split gen_data_data_structures into gen, hms, sos, and coin parts"

       SUBROUTINE  h_print_raw_dc(ABORT,err)
*--------------------------------------------------------
*-
*-   Purpose and Methods : Dump HMS_RAW_DC BANKS
*-
*-      Required Input BANKS     HMS_RAW_DC
*-
*-   Output: ABORT           - success or failure
*-         : err             - reason for failure, if any
*- 
*-   Created 29-FEB-1994   D. F. Geesaman
* $Log: h_print_raw_dc.f,v $
* Revision 1.2  1995/05/22 19:39:17  cdaq
* (SAW) Split gen_data_data_structures into gen, hms, sos, and coin parts"
*
* Revision 1.1  1994/03/24  20:15:58  cdaq
* Initial revision
*
*--------------------------------------------------------
       IMPLICIT NONE
       SAVE
*
       character*50 here
       parameter (here= 'h_print_raw_dc')
*
       logical ABORT
       character*(*) err
*
       integer*4 j
       include 'hms_data_structures.cmn'
       include 'gen_constants.par'
       include 'gen_units.par'
       include 'hms_tracking.cmn'
       include 'hms_geometry.cmn'          
*
*--------------------------------------------------------
       ABORT = .FALSE.
       err = ' '
       write(hluno,'(''        HMS_RAW_DC BANKS'')')
       write(hluno,'(''     HDC_RAW_TOT_HITS='',I4)') HDC_RAW_TOT_HITS
       if(HDC_RAW_TOT_HITS.GT.0) then
         write(hluno,'('' Num  Plane     Wire          TDC Value'')')
         write(hluno,'(1x,i2,2x,i3,7x,i4,5x,i10)')
     &     (j,HDC_RAW_PLANE_NUM(j),HDC_RAW_WIRE_NUM(j),
     &        HDC_RAW_TDC(j),j=1,HDC_RAW_TOT_HITS)    
       endif
       RETURN
       END

Analyzer/Replay: Mark Jones, Documents: Stephen Wood