function s_chamnum(ispace_point)
*     This function returns the chamber number of a space point
*      d.f. geesaman              8 Sept 1993
* $Log: s_chamnum.f,v $
* Revision 1.2  1995/05/22 19:45:33  cdaq
* (SAW) Split gen_data_data_structures into gen, hms, sos, and coin parts"
*
* Revision 1.1  1994/02/21  16:07:27  cdaq
* Initial revision
*
      implicit none
      include "sos_data_structures.cmn"
      include "sos_tracking.cmn"
      include "sos_geometry.cmn"
*     output
      integer*4 s_chamnum
*     input
      integer*4 ispace_point
*     local variables
      integer*4 plane
      s_chamnum=0
      plane=SDC_PLANE_NUM(sspace_point_hits(ispace_point,3))
      if(plane.gt.0 .and. plane.le. sdc_num_planes) then
          s_chamnum=sdc_chamber_planes(plane)
      endif
      return
      end
*