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           *