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

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

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

revision 1.2 by pam-fi, Tue May 30 16:30:37 2006 UTC revision 1.5 by pam-fi, Thu Nov 2 15:31:06 2006 UTC
# Line 22  Line 22 
22        COMMON/DBG/DEBUG,VERBOSE,WARNING        COMMON/DBG/DEBUG,VERBOSE,WARNING
23        SAVE/DBG/        SAVE/DBG/
24    
25        character*80 cpath        character*256 cpath
26        character*80 ppath        character*256 ppath
27    
28                
29        b_error=0        b_error=0
30          ppath=''
31    
32        la=80        la=256
33        do i=1,80        do i=1,256
34           if(cpath(i:i).eq.'/')la=i           if(cpath(i:i).eq.'/')la=i
35        enddo        enddo
36        ppath=cpath(1:la)        ppath=cpath(1:la)
# Line 37  Line 38 
38        b_path    = ppath        b_path    = ppath
39        b_pathlen = la        b_pathlen = la
40    
 c     FUNZIONAAAAAAAAAAAAAAA!!!!!!!!!!!!!!!!!!  
   
 c      if(b_debug.eq.1)print*,'Field loaded: ',b_loaded  
41        if(DEBUG)print*,'Field loaded: ',b_loaded        if(DEBUG)print*,'Field loaded: ',b_loaded
42        if(b_loaded.eq.0)then        if(b_loaded.eq.0)then
43    
# Line 94  c     implicit double precision (a-h,o-z Line 92  c     implicit double precision (a-h,o-z
92        COMMON/DBG/DEBUG,VERBOSE,WARNING        COMMON/DBG/DEBUG,VERBOSE,WARNING
93        SAVE/DBG/        SAVE/DBG/
94    
95        character*80 path        character*256 path
96                
97  C  C
98        REAL hmemor(10000000)        REAL hmemor(10000000)
# Line 466  C Line 464  C
464        COMMON/DBG/DEBUG,VERBOSE,WARNING        COMMON/DBG/DEBUG,VERBOSE,WARNING
465        SAVE/DBG/        SAVE/DBG/
466    
467        character*80 path        character*256 path
468    
469        REAL hmemor(10000000)        REAL hmemor(10000000)
470        integer Iquest(100)            integer Iquest(100)    
Legend:
Removed from v.1.2  
changed lines
  Added in v.1.5
  ViewVC Help
Powered by ViewVC 1.1.23