subroutine h_print_stubs * subroutine to dump output of H_LEFT_RIGHT * All the results are contained in hms_tracking.inc * d.f. geesaman 17 January 1994 * $Log: h_print_stubs.f,v $ * Revision 1.2 1995/05/22 19:39:18 cdaq * (SAW) Split gen_data_data_structures into gen, hms, sos, and coin parts" * * Revision 1.1 1994/02/19 06:16:52 cdaq * Initial revision * implicit none include "hms_data_structures.cmn" include "hms_tracking.cmn" include "hms_geometry.cmn" * local variables integer*4 i,j write(hluno,'('' HMS STUB FIT RESULTS'')') if(hnspace_points_tot.ge.1) then write(hluno,'(''point x_t y_t '', & '' xp_t yp_t'')') write(hluno,'('' [cm] [cm] '', & '' [rad] [rad]'')') 1001 format(3x,i3,4x,4e15.7) do i=1,hnspace_points_tot write(hluno,1001) i,(hbeststub(i,j),j=1,4) enddo write(hluno,'('' hit HDC_WIRE_CENTER HDC_DRIFT_DIS '', & '' HDC_WIRE_COORD'')') do i=1,HDC_TOT_HITS write(hluno,1002) i,HDC_WIRE_CENTER(i),HDC_DRIFT_DIS(i), & HDC_WIRE_COORD(i) 1002 format(3x,i3,4x,e16.8,2x,e16.8,2x,e16.8) enddo endif return end