Analyzer/HTRACKING/h_chamnum.f - view

Return to h_chamnum.f CVS log

Up to [HallC] / Analyzer / HTRACKING

File: [HallC] / Analyzer / HTRACKING / h_chamnum.f (download)
Revision: 1.3, Tue Apr 30 11:32:51 1996 UTC (28 years, 4 months ago) by saw
Branch: MAIN
CVS Tags: spring03, sep0596, sep-26-2002, sep-25-2002, sep-24-2002, sep-09-2002, sane, pionct, online07, online04, online03, oct1199, nov2696, mduality, mar-24-2003, gep_online, gep3, fpi2, emc, e01004, dec0198, bigcal, baryon, aug-12-2003, apr3096, apr-02-2003, Initial-CVS-Release, HEAD, Extra_Shower_Tubes_on_HMS_not_SOS
Changes since 1.2: +7 -4 lines

(JRA) Remove (unneeded?) check on plane range

      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.3  1996/04/30 12:32:51  saw
* (JRA) Remove (unneeded?) check on plane range
*
* Revision 1.2  1995/05/22 19:39:07  cdaq
* (SAW) Split gen_data_data_structures into gen, hms, sos, and coin parts"
*
* Revision 1.1  1994/02/19  06:13:14  cdaq
* Initial revision
*
      implicit none
      include "hms_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


      plane=HDC_PLANE_NUM(hspace_point_hits(ispace_point,3))
      h_chamnum=hdc_chamber_planes(plane)

      return
      end
*

Analyzer/Replay: Mark Jones, Documents: Stephen Wood