|
version 1.1.2.9, 2009/07/18 00:01:58
|
version 1.1.2.10, 2009/07/21 17:17:17
|
|
|
|
| $ hfpp_prune_zclose(2*(dcset-1)+2) + | $ hfpp_prune_zclose(2*(dcset-1)+2) + |
| $ hfpp_prune_zslop(dcset)/tan(theta) .and. | $ hfpp_prune_zslop(dcset)/tan(theta) .and. |
| $ nplanestemp.eq.6 ) | $ nplanestemp.eq.6 ) |
| |
if(dcset.eq.2.and.bestref.gt.0) then |
| |
greattrack(i) = ( conetest.eq.1.and. |
| |
$ sclose.le.hfpp_prune_sclose(1) |
| |
$ .and.zclose.ge.hfpp_prune_zclose(2*(dcset-1)+1)- |
| |
$ hfpp_prune_zslop(dcset)/tan(theta).and.zclose.le. |
| |
$ hfpp_prune_zclose(2*(dcset-1)+2) + |
| |
$ hfpp_prune_zslop(dcset)/tan(theta) .and. |
| |
$ nplanestemp.eq.6 ) |
| |
endif |
| |
|
| | |
| if(greattrack(i)) any_great = .true. | if(greattrack(i)) any_great = .true. |
| | |
Return to
h_fpp_tracking_ajp.f
CVS log
Up to [HallC] / Analyzer / HTRACKING / Attic