subroutine s_prt_track_tests

*-------------------------------------------------------------------
* author: John Arrington
* created: 3/28/94
*
* s_prt_track_tests dumps the sos_track_tests bank.
*
* modifications:
* $Log: s_prt_track_tests.f,v $
* Revision 1.2  1995/05/22 19:45:52  cdaq
* (SAW) Split gen_data_data_structures into gen, hms, sos, and coin parts"
*
* Revision 1.1  1994/04/13  18:22:19  cdaq
* Initial revision
*
*-------------------------------------------------------------------

        implicit none

        include 'sos_data_structures.cmn'
        include 'sos_scin_parms.cmn'
        include 'sos_scin_tof.cmn'
        include 'sos_tracking.cmn'

        logical abort
        integer*4 ihit, itrk
        character*1024 errmsg
        character*25 here
        parameter (here = 's_prt_track_tests')

        save

       if(sntracks_fp.gt.0) then
        write(sluno,'(''        SOS_TRACK_TESTS BANK'')')
        write(sluno,'(''SHOWER COUNTER TESTS'')')
        write(sluno,'(''  num_blks   plane1   plane2   plane3   plane4'', 
     &        ''    shtrk    prtrk'')')
        do itrk=1, sntracks_fp
          write(sluno,'(i10,6f9.3)') snblocks_cal(itrk), 
     &          strack_e1(itrk), strack_e2(itrk),
     &          strack_e3(itrk), strack_e4(itrk),
     &          strack_et(itrk), strack_preshower_e(itrk)
        enddo
        write(sluno,'(''SCIN/CERENKOV TESTS'')')
        write(sluno,'(''  trk   beta  chisq_beta  fp_time  '',
     &        ''num_scin_hit'')')
        do itrk=1, sntracks_fp
          write(sluno,'(i4,f8.4,f10.4,f9.3,i12)') itrk,
     &          sbeta(itrk), sbeta_chisq(itrk), stime_at_fp(itrk),
     &          snum_scin_hit(itrk)
        enddo

        do itrk=1, sntracks_fp
          write(sluno,'(''hits on track number'',i3,'', and dE/dx:'')') itrk
          write(sluno,'(16i6)') 
     &       (sscin_hit(itrk,ihit),ihit=1,snum_scin_hit(itrk))
          write(sluno,'(16f6.1)') 
     &       (sdedx(itrk,ihit),ihit=1,snum_scin_hit(itrk))
        enddo
       endif         ! end check on zero focal plane tracks
        return
        end