Analyzer/HTRACKING/h_prt_track_tests.f - view

Return to h_prt_track_tests.f CVS log

Up to [HallC] / Analyzer / HTRACKING

File: [HallC] / Analyzer / HTRACKING / h_prt_track_tests.f (download)
Revision: 1.2, Mon May 22 18:39:24 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, gep_online, 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
Changes since 1.1: +5 -2 lines

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

        subroutine h_prt_track_tests

*-------------------------------------------------------------------
* author: John Arrington
* created: 3/28/94
*
* h_prt_track_tests dumps the hms_track_tests bank.
*
* modifications:
* $Log: h_prt_track_tests.f,v $
* Revision 1.2  1995/05/22 19:39:24  cdaq
* (SAW) Split gen_data_data_structures into gen, hms, sos, and coin parts"
*
* Revision 1.1  1994/04/13  15:43:55  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_track_tests')

        save

       if(hntracks_fp.gt.0) then
        write(hluno,'(''        h_TRACK_TESTS BANK'')')
        write(hluno,'(''SHOWER COUNTER TESTS'')')
        write(hluno,'(''  num_blks   plane1   plane2   plane3   plane4'', 
     &        ''    shtrk    prtrk'')')
        do itrk=1, hntracks_fp
          write(hluno,'(i10,6f9.3)') hnblocks_cal(itrk), 
     &          htrack_e1(itrk), htrack_e2(itrk),
     &          htrack_e3(itrk), htrack_e4(itrk),
     &          htrack_et(itrk), htrack_preshower_e(itrk)
        enddo
        write(hluno,'(''SCIN/CERENKOV TESTS'')')
        write(hluno,'(''  trk   beta  chisq_beta  fp_time  '',
     &        ''num_scin_hit'')')
        do itrk=1, hntracks_fp
          write(hluno,'(i4,f8.4,f10.4,f9.3,i12)') itrk,
     &          hbeta(itrk), hbeta_chisq(itrk), htime_at_fp(itrk),
     &          hnum_scin_hit(itrk)
        enddo

        do itrk=1, hntracks_fp
          write(hluno,'(''hits on track number'',i3,'', and dE/dx:'')') itrk
          write(hluno,'(16i6)') 
     &       (hscin_hit(itrk,ihit),ihit=1,hnum_scin_hit(itrk))
          write(hluno,'(16f6.1)') 
     &       (hdedx(itrk,ihit),ihit=1,hnum_scin_hit(itrk))
        enddo
       endif         ! end check on zero focal plane tracks
        return
        end

Analyzer/Replay: Mark Jones, Documents: Stephen Wood