(file) Return to h_track_fit.f CVS log (file) (dir) Up to [HallC] / Analyzer / HTRACKING

Diff for /Analyzer/HTRACKING/h_track_fit.f between version 1.6 and 1.7

version 1.6, 1994/12/06 15:45:27 version 1.7, 1995/01/27 20:26:50
Line 9 
Line 9 
 *                              remove minuit. Make fit linear *                              remove minuit. Make fit linear
 *                              still does not do errors properly *                              still does not do errors properly
 * $Log$ * $Log$
   * Revision 1.7  1995/01/27 20:26:50  cdaq
   * (JRA) Remove Mack's personal focalplane diceamatic (z slicer) code
   *
 * Revision 1.6  1994/12/06 15:45:27  cdaq * Revision 1.6  1994/12/06 15:45:27  cdaq
 * (DJM) Take slices in Z to look for best focus * (DJM) Take slices in Z to look for best focus
 * *
Line 46 
Line 49 
       integer*4 ihit,ierr       integer*4 ihit,ierr
       integer*4 hit,plane       integer*4 hit,plane
       integer*4 i,j,k                             ! loop index       integer*4 i,j,k                             ! loop index
       real*4 z_slice  *      real*4 z_slice
  
       real*8   H_DPSIFUN       real*8   H_DPSIFUN
       real*8   pos       real*8   pos
Line 166 
Line 169 
         enddo                           ! end loop over tracks         enddo                           ! end loop over tracks
       endif       endif
  
 *     A reasonable selection of slices is presently -80,-60,-40,-20,0,20,40  **     A reasonable selection of slices is presently -80,-60,-40,-20,0,20,40
 *     ,60,80.   Zero is the nominal midplane between the chambers, -80  **     ,60,80.   Zero is the nominal midplane between the chambers, -80
 *     corresponds closely to the exit flange position.  This slice pattern  **     corresponds closely to the exit flange position.  This slice pattern
 *     is created with hz_wild=-80., hdelta_z_wild=20., and hnum_zslice=9  **     is created with hz_wild=-80., hdelta_z_wild=20., and hnum_zslice=9
       if(hz_slice_enable.ne.0)then  *      if(hz_slice_enable.ne.0)then
         do k=1,hnum_zslice  *        do k=1,hnum_zslice
           z_slice = hz_wild + (k-1)*hdelta_z_wild  *          z_slice = hz_wild + (k-1)*hdelta_z_wild
           hx_fp_wild(k) = hx_fp(1) + hxp_fp(1)*z_slice  *          hx_fp_wild(k) = hx_fp(1) + hxp_fp(1)*z_slice
           hy_fp_wild(k) = hy_fp(1) + hyp_fp(1)*z_slice  *          hy_fp_wild(k) = hy_fp(1) + hyp_fp(1)*z_slice
         enddo  *        enddo
       endif  *      endif
  
 * calculate residuals for each chamber if in single stub mode * calculate residuals for each chamber if in single stub mode
 * and there were 2 tracks found one in first chanber and one in the second * and there were 2 tracks found one in first chanber and one in the second

Legend:
Removed from v.1.6  
changed lines
  Added in v.1.7
Analyzer/Replay: Mark Jones, Documents: Stephen Wood
 Powered by
ViewCVS 0.9.2-cvsgraph-1.4.0