subroutine h_print_links * prints the output of link matching * d.f. geesaman 7 Sept 1993 * $Log: h_print_links.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/02/19 06:16:24 cdaq * Initial revision * * implicit none include "hms_data_structures.cmn" include "hms_tracking.cmn" integer*4 itrack,ihit write(hluno,'('' NUMBER OF TRACKS FROM HMS LINKED STUBS='',i4)') & HNTRACKS_FP if(HNTRACKS_FP.gt.0) then write(hluno,'('' Track HITS'')') do itrack=1,HNTRACKS_FP write(hluno,1000) itrack,(HNTRACK_HITS(itrack,ihit), & ihit=2,HNTRACK_HITS(itrack,1)+1) 1000 format(2x,i3,2x,24i3) enddo endif return end