subroutine s_prt_tof(itrk)

*-------------------------------------------------------------------
* author: John Arrington
* created: 3/27/94
*
* s_prt_tof dumps the sos_scin_tof bank.
*
* modifications:
* $Log: s_prt_tof.f,v $
* Revision 1.3  1995/05/22 19:45:51  cdaq
* (SAW) Split gen_data_data_structures into gen, hms, sos, and coin parts"
*
* Revision 1.2  1994/11/23  13:57:39  cdaq
* (SPB) Recopied from hms file and modified names for SOS
*
* Revision 1.1  1994/04/13  18:22:01  cdaq
* Initial revision
*
*-------------------------------------------------------------------

      implicit none

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

      integer*4 ihit, itrk

      save

      write(sluno,'(''              ***S_SCIN_TOF BANK***'')')
      write(sluno,'(''        TRACK NUMBER'',i3)') itrk
      write(sluno,'(''POSITION/CALIBRATION VARIABLES:'')')
      write(sluno,'(''  +coord  -coord '',
     &     '' pos_dt  neg_dt  +sigma  +sigma'')')
      do ihit=1,sscin_tot_hits
        write(sluno,'(f8.3,f8.3,2f8.3,2f8.3)')
     &       sscin_pos_coord(ihit), sscin_neg_coord(ihit),
     &       sscin_neg_time_offset(ihit), sscin_pos_time_offset(ihit),
     &       sscin_pos_sigma(ihit), sscin_neg_sigma(ihit)
      enddo
      write(sluno,'(''HIT POSITION AND OTHER CALCULATED VARIABLES:'')')
      write(sluno,'(''  long_coord trans_coord    +time    -time'',
     &     '' scin_time scin_sig  on_track  time@fp'')')
      do ihit=1,sscin_tot_hits
        write(sluno,'(2f12.4,2f9.3,2f10.3,l2,f10.3)')
     &       sscin_long_coord(ihit), sscin_trans_coord(ihit),
     &       sscin_pos_time(ihit), sscin_neg_time(ihit),
     &       sscin_time(ihit),  sscin_sigma(ihit),
     &       sscin_on_track(itrk,ihit),sscin_time_fp(ihit)
      enddo
      write(sluno,'(''  trk  beta     chisq_beta  fp_time '',
     &     ''num_scin_hit'')')
      write(sluno,'(i4,f8.4,f14.3,f9.3,i8)') itrk,
     &     sbeta(itrk), sbeta_chisq(itrk), stime_at_fp(itrk),
     &     snum_scin_hit(itrk)
      write(sluno,*)

      return
      end