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           * $Log:$
 5                 implicit none
 6                 include "gen_data_structures.cmn"
 7                 include "hms_tracking.cmn"
 8                 include "hms_geometry.cmn"
 9           *     output
10                 integer*4 h_chamnum
11           *     input
12                 integer*4 ispace_point
13           *     local variables
14                 integer*4 plane
15                 h_chamnum=0
16                 plane=HDC_PLANE_NUM(hspace_point_hits(ispace_point,3))
17                 if(plane.gt.0 .and. plane.le. hdc_num_planes) then
18                     h_chamnum=hdc_chamber_planes(plane)
19                 endif
20                 return
21                 end
22 cdaq  1.1 *