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           * Revision 1.1  1994/02/19  06:13:14  cdaq
 6           * Initial revision
 7           *

 8 cdaq  1.1       implicit none

 9 cdaq  1.2       include "hms_data_structures.cmn"

10 cdaq  1.1       include "hms_tracking.cmn"
11                 include "hms_geometry.cmn"
12           *     output
13                 integer*4 h_chamnum
14           *     input
15                 integer*4 ispace_point
16           *     local variables
17                 integer*4 plane
18                 h_chamnum=0
19                 plane=HDC_PLANE_NUM(hspace_point_hits(ispace_point,3))
20                 if(plane.gt.0 .and. plane.le. hdc_num_planes) then
21                     h_chamnum=hdc_chamber_planes(plane)
22                 endif
23                 return
24                 end
25           *