/[PAMELA software]/DarthVader/TrackerLevel2/src/F77/analysissubroutines.f
ViewVC logotype

Diff of /DarthVader/TrackerLevel2/src/F77/analysissubroutines.f

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

revision 1.1 by mocchiut, Fri May 19 13:15:54 2006 UTC revision 1.2 by pam-fi, Tue May 30 16:30:37 2006 UTC
# Line 22  Line 22 
22    
23        include 'momanhough_init.f'        include 'momanhough_init.f'
24                
25        logical DEBUG  c      logical DEBUG
26        common/dbg/DEBUG  c      common/dbg/DEBUG
27    
28  *-------------------------------------------------------------------------------  *-------------------------------------------------------------------------------
29  *     STEP 1  *     STEP 1
# Line 154  c      iflag=0 Line 154  c      iflag=0
154    
155        include 'momanhough_init.f'        include 'momanhough_init.f'
156                
157        logical DEBUG  c      logical DEBUG
158        common/dbg/DEBUG  c      common/dbg/DEBUG
159    
160        logical FIMAGE            !        logical FIMAGE            !
161    
# Line 613  c*************************************** Line 613  c***************************************
613        include 'common_xyzPAM.f'        include 'common_xyzPAM.f'
614        include 'common_resxy.f'        include 'common_resxy.f'
615    
616        logical DEBUG  c      logical DEBUG
617        common/dbg/DEBUG  c      common/dbg/DEBUG
618    
619        integer icx,icy           !X-Y cluster ID        integer icx,icy           !X-Y cluster ID
620        integer sensor        integer sensor
# Line 1644  c$$$      end Line 1644  c$$$      end
1644        include 'calib.f'        include 'calib.f'
1645        include 'level1.f'        include 'level1.f'
1646    
1647        logical DEBUG  c      logical DEBUG
1648        common/dbg/DEBUG  c      common/dbg/DEBUG
1649    
1650  *     output flag  *     output flag
1651  *     --------------  *     --------------
# Line 1859  c     goto 880       !fill ntp and go to Line 1859  c     goto 880       !fill ntp and go to
1859        include 'calib.f'        include 'calib.f'
1860        include 'level1.f'        include 'level1.f'
1861    
1862        logical DEBUG  c      logical DEBUG
1863        common/dbg/DEBUG  c      common/dbg/DEBUG
1864    
1865  *     output flag  *     output flag
1866  *     --------------  *     --------------
# Line 2295  c*************************************** Line 2295  c***************************************
2295        include 'calib.f'        include 'calib.f'
2296        include 'level1.f'        include 'level1.f'
2297    
2298        logical DEBUG  c      logical DEBUG
2299        common/dbg/DEBUG  c      common/dbg/DEBUG
2300    
2301  *     output flag  *     output flag
2302  *     --------------  *     --------------
# Line 2517  c     goto 880               !ntp fill Line 2517  c     goto 880               !ntp fill
2517        include 'common_momanhough.f'        include 'common_momanhough.f'
2518        include 'momanhough_init.f'        include 'momanhough_init.f'
2519    
2520        logical DEBUG  c      logical DEBUG
2521        common/dbg/DEBUG  c      common/dbg/DEBUG
2522    
2523  *     output flag  *     output flag
2524  *     --------------  *     --------------
# Line 2733  c$$$     $           ,(db_cloud(iii),iii Line 2733  c$$$     $           ,(db_cloud(iii),iii
2733        include 'common_momanhough.f'        include 'common_momanhough.f'
2734        include 'momanhough_init.f'        include 'momanhough_init.f'
2735    
2736        logical DEBUG  c      logical DEBUG
2737        common/dbg/DEBUG  c      common/dbg/DEBUG
2738    
2739  *     output flag  *     output flag
2740  *     --------------  *     --------------
# Line 2947  c*************************************** Line 2947  c***************************************
2947        include 'common_mech.f'        include 'common_mech.f'
2948        include 'momanhough_init.f'        include 'momanhough_init.f'
2949    
2950        logical DEBUG  c      logical DEBUG
2951        common/dbg/DEBUG  c      common/dbg/DEBUG
2952    
2953  *     output flag  *     output flag
2954  *     --------------  *     --------------
# Line 3284  c*************************************** Line 3284  c***************************************
3284        include 'level1.f'        include 'level1.f'
3285        include 'calib.f'        include 'calib.f'
3286    
3287        logical DEBUG  c      logical DEBUG
3288        common/dbg/DEBUG  c      common/dbg/DEBUG
3289    
3290  *     flag to chose PFA  *     flag to chose PFA
3291        character*10 PFA        character*10 PFA
# Line 3605  c              dedxtrk(nplanes-ip+1) = d Line 3605  c              dedxtrk(nplanes-ip+1) = d
3605  c      include 'calib.f'  c      include 'calib.f'
3606  c      include 'level1.f'  c      include 'level1.f'
3607    
3608        logical DEBUG  c      logical DEBUG
3609        common/dbg/DEBUG  c      common/dbg/DEBUG
3610    
3611    
3612        do ip=1,nplanes           !loop on planes        do ip=1,nplanes           !loop on planes
Legend:
Removed from v.1.1  
changed lines
  Added in v.1.2
  ViewVC Help
Powered by ViewVC 1.1.23