subroutine s_print_stubs * subroutine to dump output of S_LEFT_RIGHT * All the results are contained in sos_tracking.inc * d.f. geesaman 5 September 1993 * $Log: s_print_stubs.f,v $ * Revision 1.3 1995/05/22 19:45:46 cdaq * (SAW) Split gen_data_data_structures into gen, hms, sos, and coin parts" * * Revision 1.2 1995/05/11 21:06:54 cdaq * (JRA) ??? * * Revision 1.1 1994/02/21 16:38:06 cdaq * Initial revision * implicit none include "sos_data_structures.cmn" include "sos_tracking.cmn" include "sos_geometry.cmn" * local variables integer*4 i,j,k write(sluno,'('' SOS STUB FIT RESULTS'')') if(snspace_points_tot.ge.1) then write(sluno,'(''point x_t y_t '', & '' xp_t yp_t'')') write(sluno,'('' [cm] [cm] '', & '' [rad] [rad]'')') 1001 format(3x,i3,4x,4e15.7) do i=1,snspace_points_tot write(sluno,1001) i,(sbeststub(i,j),j=1,4) enddo write(sluno,'('' hit plane SDC_WIRE_CENTER SDC_DRIFT_DIS '', & '' SDC_WIRE_COORD'')') do i=1,snspace_points_tot do j=1,sspace_point_hits(i,1) k=sspace_point_hits(i,2+j) write(sluno,1002) k,sdc_plane_num(k),SDC_WIRE_CENTER(k), & SDC_DRIFT_DIS(k),SDC_WIRE_COORD(k) 1002 format(2x,i3,i4,4x,e16.8,2x,e16.8,2x,e16.8) enddo write(sluno,*) ' ' enddo endif return end