M.Z.

2002-08-12 09:07:08 +00:00
parent bde19bb973
commit 643f0d81be
10 changed files with 187 additions and 73 deletions
--- a/tecs/sys_aunix.f
+++ b/tecs/sys_aunix.f
@@ -356,3 +356,14 @@
 	  endif
 	endif
 	end
+
+!-----------------------------------------------------------------------------
+!
+        subroutine sys_open_read(lun, name, ios)
+!
+! open a file as read only (needed to open files with read-only access)
+	integer lun, ios
+	character name*(*)
+
+	open (lun, file=name, status='old', readonly, iostat=ios)
+	end