Return to h_chamnum.f CVS log | Up to [HallC] / Analyzer / HTRACKING |
File: [HallC] / Analyzer / HTRACKING / h_chamnum.f
(download)
Revision: 1.1, Sat Feb 19 06:13:14 1994 UTC (30 years, 7 months ago) by cdaq Branch: MAIN CVS Tags: oct1194, nov2894, may1894, mar1495, jun1794, jun1594, jun1394, jun0794, jul0794, jan2795, dec0694, aug1794, aug0394, apr1594, apr0695 Initial revision |
function h_chamnum(ispace_point) * This function returns the chamber number of a space point * d.f. geesaman 17 January 1994 * $Log: h_chamnum.f,v $ * Revision 1.1 1994/02/19 06:13:14 cdaq * Initial revision * implicit none include "gen_data_structures.cmn" include "hms_tracking.cmn" include "hms_geometry.cmn" * output integer*4 h_chamnum * input integer*4 ispace_point * local variables integer*4 plane h_chamnum=0 plane=HDC_PLANE_NUM(hspace_point_hits(ispace_point,3)) if(plane.gt.0 .and. plane.le. hdc_num_planes) then h_chamnum=hdc_chamber_planes(plane) endif return end *
Analyzer/Replay: Mark Jones, Documents: Stephen Wood |
Powered by ViewCVS 0.9.2-cvsgraph-1.4.0 |