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

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

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

revision 1.8 by pam-fi, Tue Oct 9 15:54:38 2007 UTC revision 1.10 by mocchiut, Tue Aug 4 14:01:39 2009 UTC
# Line 9  Line 9 
9    
10        c2f_error = 0        c2f_error = 0
11    
12    
13  c      if(C2F_DEBUG.EQ.1.eq.1)print *                    c      if(C2F_DEBUG.EQ.1.eq.1)print *                  
14        if(verbose.eq.1)print *                          if(verbose.eq.1)print *                  
15       $     ,c2f_path(1:c2f_pathlen)//'trk-maskvk.dat'       $     ,c2f_path(1:c2f_pathlen)//'trk-maskvk.dat'
# Line 36  c            if(C2F_DEBUG.EQ.1.eq.1) Line 37  c            if(C2F_DEBUG.EQ.1.eq.1)
37              c2f_error = 1              c2f_error = 1
38              goto 1000              goto 1000
39           endif           endif
40             if(verbose.eq.1)print*,'view ',iv,': ',(mask_vk(iv,i),i=1,24)
41        enddo        enddo
42   1000 close(10)   1000 close(10)
43   1001 continue      c 1001 continue    
44        return        return
45        end        end
46    
Legend:
Removed from v.1.8  
changed lines
  Added in v.1.10
  ViewVC Help
Powered by ViewVC 1.1.23