Analyzer/HTRACKING/h_wire_center_calc.f - view

Return to h_wire_center_calc.f CVS log

Up to [HallC] / Analyzer / HTRACKING

File: [HallC] / Analyzer / HTRACKING / h_wire_center_calc.f (download)
Revision: 1.5, Wed Sep 4 13:24:38 1996 UTC (28 years 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, apr-02-2003, Initial-CVS-Release, HEAD, Extra_Shower_Tubes_on_HMS_not_SOS
Changes since 1.4: +4 -1 lines

(??) Cosmetic

      function h_wire_center_calc(plane,wire)
*
*     function to calculate hms wire center positions in hms
*     wire chambers
*
*     d.f. geesaman              17 feb 1994
*          
*     modified   dfg  18 feb 1994
*                         add option to reverse plane wire numbering
* $Log: h_wire_center_calc.f,v $
* Revision 1.5  1996/09/04 14:24:38  saw
* (??) Cosmetic
*
* Revision 1.4  1995/05/22 19:39:33  cdaq
* (SAW) Split gen_data_data_structures into gen, hms, sos, and coin parts"
*
* Revision 1.3  1994/09/13  21:49:06  cdaq
* (JRA) Calculate wire chamber offsets
*
* Revision 1.2  1994/02/22  05:34:03  cdaq
* (SAW) Remove FLOAT call on floating arg
*
* Revision 1.1  1994/02/19  06:22:00  cdaq
* Initial revision
*
*     
*  
      implicit none
      include "hms_data_structures.cmn"
      include "hms_geometry.cmn"
*
*     input
*
      integer*4  plane      ! plane number of hit
      integer*4  wire       ! wire number  of hit
*
*     output
*
      real*4     h_wire_center_calc       !  wire center in cm
*
*     if hdc_sire_counting(plane) is 1 then wires are number in reverse order
      if(hdc_wire_counting(plane).eq.0) then 
*          normal ordering
           h_wire_center_calc = (FLOAT(wire)-hdc_central_wire(plane))
     &                     * hdc_pitch(plane) - hdc_center(plane)
      else        
           h_wire_center_calc = 
     &         ((hdc_nrwire(plane) + (1 - wire))- hdc_central_wire(plane))
     &                     * hdc_pitch(plane) - hdc_center(plane)
      endif
      return
      end

Analyzer/Replay: Mark Jones, Documents: Stephen Wood