Return to h_chamnum.f CVS log

Up to [HallC] / Analyzer / HTRACKING

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
*