/[PAMELA software]/DarthVader/TrackerLevel2/inc/F77/common_momanhough.f
ViewVC logotype

Diff of /DarthVader/TrackerLevel2/inc/F77/common_momanhough.f

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.8 by pam-fi, Tue Nov 21 17:13:52 2006 UTC revision 1.11 by pam-fi, Wed Nov 7 10:38:52 2007 UTC
# Line 280  c--------------------------------------- Line 280  c---------------------------------------
280        REAL YGOOD_STORE(NPLANES,NTRACKSMAX)        REAL YGOOD_STORE(NPLANES,NTRACKSMAX)
281        INTEGER CP_STORE(NPLANES,NTRACKSMAX)        INTEGER CP_STORE(NPLANES,NTRACKSMAX)
282        INTEGER CLS_STORE(NPLANES,NTRACKSMAX)        INTEGER CLS_STORE(NPLANES,NTRACKSMAX)
283          INTEGER SENSOR_STORE(NPLANES,NTRACKSMAX)
284          INTEGER LADDER_STORE(NPLANES,NTRACKSMAX)
285          REAL BX_STORE(NPLANES,NTRACKSMAX)
286          REAL BY_STORE(NPLANES,NTRACKSMAX)
287        REAL RCHI2_STORE(NTRACKSMAX)        REAL RCHI2_STORE(NTRACKSMAX)
288        common/track_candidates/NTRACKS,AL_STORE        common/trackcandidates/NTRACKS,AL_STORE
289       $     ,XV_STORE,YV_STORE,ZV_STORE       $     ,XV_STORE,YV_STORE,ZV_STORE
290       $     ,XM_STORE,YM_STORE,ZM_STORE       $     ,XM_STORE,YM_STORE,ZM_STORE
291       $     ,RESX_STORE,RESY_STORE       $     ,RESX_STORE,RESY_STORE
292       $     ,AXV_STORE,AYV_STORE       $     ,AXV_STORE,AYV_STORE
293       $     ,XGOOD_STORE,YGOOD_STORE       $     ,XGOOD_STORE,YGOOD_STORE
294       $     ,CP_STORE,CLS_STORE,RCHI2_STORE       $     ,CP_STORE,CLS_STORE
295         $     ,SENSOR_STORE,LADDER_STORE
296         $     ,BX_STORE,BY_STORE
297         $     ,RCHI2_STORE
298    
299    
300  *     best-candidate selection  *     best-candidate selection
# Line 349  c$$$ Line 356  c$$$
356  *     Parameter normalization constants, needed to evaluate  *     Parameter normalization constants, needed to evaluate
357  *     distances in parameter space  *     distances in parameter space
358  *     -----------------------------------------------------  *     -----------------------------------------------------
       parameter (Dalfaxz3=1.)  
359    
360  *     --- David ground  *     --- David ground
361  c$$$      parameter (Dalfayz1=0.8864e-1)  c$$$      parameter (Dalfayz1=0.8864e-1)
362  c$$$      parameter (Dalfayz2=0.6204e-3)  c$$$      parameter (Dalfayz2=0.6204e-3)
363  c$$$      parameter (Dalfaxz1=0.2909e-1)  c$$$      parameter (Dalfaxz1=0.2909e-1)
364  c$$$      parameter (Dalfaxz2=0.2759e-2)  c$$$      parameter (Dalfaxz2=0.2759e-2)
365  *     --- David flight (preliminary)  *     --- David flight
366        parameter (Dalfayz1=0.64e-3)        parameter (Dalfayz1=0.64e-3)
367        parameter (Dalfayz2=0.54e-3)        parameter (Dalfayz2=0.54e-3)
368        parameter (Dalfaxz1=0.50e-3)        parameter (Dalfaxz1=0.50e-3)
369        parameter (Dalfaxz2=0.12e-3)        parameter (Dalfaxz2=0.12e-3)
370          parameter (Dalfaxz3=0.86e-5)
371    
372    
373  *     -----------------------------------------------------  *     -----------------------------------------------------
# Line 379  c$$$      parameter(maxcutx=150.) Line 386  c$$$      parameter(maxcutx=150.)
386  c$$$      parameter(nstepx=50)     !inclusion-cut increasing steps  c$$$      parameter(nstepx=50)     !inclusion-cut increasing steps
387  c$$$      parameter(nstepy=50)  c$$$      parameter(nstepy=50)
388  *     --- David flight (preliminary)  *     --- David flight (preliminary)
389        parameter(cutystart=7.)    c$$$      parameter(cutystart=7.)  
390        parameter(cutystep=5.)                c$$$      parameter(cutystep=5.)              
391    c$$$      parameter(cutxstart=5.)
392    c$$$      parameter(cutxstep=2.)  
393    c$$$      parameter(maxcuty=200.)
394    c$$$      parameter(maxcutx=150.)  
395    c$$$      parameter(nstepx=5)       !inclusion-cut increasing steps
396    c$$$      parameter(nstepy=5)      
397    *     --- David flight
398          parameter(cutystart=30.)  
399          parameter(cutystep=10.)              !buoni???
400        parameter(cutxstart=5.)        parameter(cutxstart=5.)
401        parameter(cutxstep=2.)          parameter(cutxstep=2.)  
402        parameter(maxcuty=200.)        parameter(maxcuty=1000.)
403        parameter(maxcutx=150.)          parameter(maxcutx=1000.)  
404        parameter(nstepx=5)       !inclusion-cut increasing steps        parameter(nstepx=10)     !inclusion-cut increasing steps
405        parameter(nstepy=5)        parameter(nstepy=30)
         
406    
407    
408        real cutdistyz            !y0 / tg theta_yz space          real cutdistyz            !y0 / tg theta_yz space  
# Line 431  c      parameter (defmax=10000.) !GV-1 Line 446  c      parameter (defmax=10000.) !GV-1
446  *     cut to include new couple or single clusters in the  *     cut to include new couple or single clusters in the
447  *     track fitting, after the first fit  *     track fitting, after the first fit
448  *     -----------------------------------------------------  *     -----------------------------------------------------
449        parameter (clinc=3)  c      parameter (clinc=3)
450          parameter (clinc=7)
451    
452    
453    
Legend:
Removed from v.1.8  
changed lines
  Added in v.1.11
  ViewVC Help
Powered by ViewVC 1.1.23