M.Z.

2002-08-22 11:12:38 +00:00
parent ac002aca73
commit 3243258d29
1 changed files with 8 additions and 1 deletions
--- a/tecs/tecs_client.f
+++ b/tecs/tecs_client.f
@ -101,7 +101,14 @@
 	  else
 	    call sys_get_lun(luns(idx))
 	  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
 	endif
 11	l=l+1