/[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.3 by pam-fi, Thu Sep 28 14:04:40 2006 UTC revision 1.4 by pam-fi, Thu Oct 26 16:22:37 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=''        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 38  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    
Legend:
Removed from v.1.3  
changed lines
  Added in v.1.4
  ViewVC Help
Powered by ViewVC 1.1.23