linse/sics
0
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

M.Z.

Browse Source
This commit is contained in:
cvs
2002-08-22 11:12:38 +00:00
parent ac002aca73
commit 3243258d29
1 changed files with 8 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

9
tecs/tecs_client.f
View File

@ -101,7 +101,14 @@
else else
call sys_get_lun(luns(idx)) call sys_get_lun(luns(idx))
endif endif
open(luns(idx), name=line(2:), status='old', readonly) call sys_open_read(luns(idx), line(2:), i)
if (i .ne. 0) then
print *,'error opening ',line(2:)
close(luns(idx))
call sys_free_lun(luns(idx))
nfiles=nfiles-1
idx=mod(nfiles, maxfiles)
endif
goto 1 goto 1
endif endif
11 l=l+1 11 l=l+1