/[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.6 by pam-fi, Mon Aug 20 15:58:24 2007 UTC revision 1.7 by pam-fi, Tue Aug 21 07:11:33 2007 UTC
# Line 218  c                  if(DEBUG.EQ.1) Line 218  c                  if(DEBUG.EQ.1)
218       $                 print*,'READETAPARAM: ** Error opening file ** '       $                 print*,'READETAPARAM: ** Error opening file ** '
219       $                 ,c2f_path(1:c2f_pathlen)       $                 ,c2f_path(1:c2f_pathlen)
220       $                 //fname_param(1:LNBLNK(fname_param))       $                 //fname_param(1:LNBLNK(fname_param))
221                    c2f_error = 1  c                  c2f_error = 1 !! COMMENTATO TEMPORANEAMENTE
222  c                  return  c                  return
223                    goto 2001                    goto 2001
224                 endif                 endif
Legend:
Removed from v.1.6  
changed lines
  Added in v.1.7
  ViewVC Help
Powered by ViewVC 1.1.23