1 cdaq 1.1 function h_chamnum(ispace_point)
2 * This function returns the chamber number of a space point
3 * d.f. geesaman 17 January 1994
|
4 cdaq 1.2 * $Log: h_chamnum.f,v $
|
5 saw 1.3 * Revision 1.2 1995/05/22 19:39:07 cdaq
6 * (SAW) Split gen_data_data_structures into gen, hms, sos, and coin parts"
7 *
|
8 cdaq 1.2 * Revision 1.1 1994/02/19 06:13:14 cdaq
9 * Initial revision
10 *
|
11 cdaq 1.1 implicit none
|
12 cdaq 1.2 include "hms_data_structures.cmn"
|
13 cdaq 1.1 include "hms_tracking.cmn"
14 include "hms_geometry.cmn"
15 * output
16 integer*4 h_chamnum
17 * input
18 integer*4 ispace_point
19 * local variables
20 integer*4 plane
|
21 saw 1.3
22
|
23 cdaq 1.1 plane=HDC_PLANE_NUM(hspace_point_hits(ispace_point,3))
|
24 saw 1.3 h_chamnum=hdc_chamber_planes(plane)
25
|
26 cdaq 1.1 return
27 end
28 *
|