subroutine s_print_links * prints the output of link matching * d.f. geesaman 7 Sept 1993 * $Log: s_print_links.f,v $ * Revision 1.2 1995/05/22 19:45:45 cdaq * (SAW) Split gen_data_data_structures into gen, hms, sos, and coin parts" * * Revision 1.1 1994/02/21 16:15:59 cdaq * Initial revision * * implicit none include "sos_data_structures.cmn" include "sos_tracking.cmn" integer*4 itrack,ihit write(sluno, & '('' NUMBER OF TRACKS FROM SOS LINKED STUBS='',i4)') SNTRACKS_FP if(SNTRACKS_FP.gt.0) then write(sluno,'('' Track HITS'')') do itrack=1,SNTRACKS_FP write(sluno,1000) itrack,(SNTRACK_HITS(itrack,ihit), & ihit=2,SNTRACK_HITS(itrack,1)+1) 1000 format(2x,i3,2x,24i3) enddo endif return end