/[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.3 by pam-fi, Fri Aug 17 14:36:06 2007 UTC revision 1.5 by pam-fi, Fri Aug 17 16:47:16 2007 UTC
# Line 280  c                        if(C2F_DEBUG.eq Line 280  c                        if(C2F_DEBUG.eq
280       $           print*,'READETAPARAM: ** Error opening file ** '       $           print*,'READETAPARAM: ** Error opening file ** '
281       $           ,c2f_path(1:c2f_pathlen)       $           ,c2f_path(1:c2f_pathlen)
282       $           //fname_param(1:LNBLNK(fname_param))       $           //fname_param(1:LNBLNK(fname_param))
283              c2f_error = 1  c            c2f_error = 1 !tolto solo temporaneamente
284  c     return  c     return
285              goto 3001              goto 3001
286           endif           endif
# Line 303  c     return Line 303  c     return
303       $              //'*** Error reading file *** '       $              //'*** Error reading file *** '
304       $              ,c2f_path(1:c2f_pathlen)       $              ,c2f_path(1:c2f_pathlen)
305       $              //fname_param(1:LNBLNK(fname_param))       $              //fname_param(1:LNBLNK(fname_param))
306                 c2f_error = 1                 c2f_error = 1
307                 goto 3000                         goto 3000        
308              endif              endif
309                    
Legend:
Removed from v.1.3  
changed lines
  Added in v.1.5
  ViewVC Help
Powered by ViewVC 1.1.23