From 3243258d29175e07bcd8cf2cf24990b4f7071381 Mon Sep 17 00:00:00 2001
From: cvs <cvs>
Date: Thu, 22 Aug 2002 11:12:38 +0000
Subject: [PATCH] M.Z.

---
 tecs/tecs_client.f | 9 ++++++++-
 1 file changed, 8 insertions(+), 1 deletion(-)

diff --git a/tecs/tecs_client.f b/tecs/tecs_client.f
index cf8be020..d0dd1224 100644
--- 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