--- DarthVader/TrackerLevel2/src/F77/readallparam.f 2007/08/17 16:45:20 1.4 +++ DarthVader/TrackerLevel2/src/F77/readallparam.f 2007/08/17 16:47:16 1.5 @@ -280,7 +280,7 @@ $ print*,'READETAPARAM: ** Error opening file ** ' $ ,c2f_path(1:c2f_pathlen) $ //fname_param(1:LNBLNK(fname_param)) - c2f_error = 1 +c c2f_error = 1 !tolto solo temporaneamente c return goto 3001 endif @@ -303,7 +303,7 @@ $ //'*** Error reading file *** ' $ ,c2f_path(1:c2f_pathlen) $ //fname_param(1:LNBLNK(fname_param)) -c c2f_error = 1 !lo commento solo per il momento + c2f_error = 1 goto 3000 endif