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 12:23:12 +00:00
parent 764c3d81db
commit 5c0e919cdf
4 changed files with 729 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

12
tecs/sys_linux.f
View File

@@ -3,7 +3,7 @@
!!------------------------------------------------------------------------------
!! 10.9.97 M. Zolliker
!!
!! System dependent subroutines for ALPHA UNIX
!! System dependent subroutines for LINUX
!!------------------------------------------------------------------------------
!!
subroutine SYS_GETENV(NAME, VALUE) !!
@@ -362,3 +362,13 @@
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', iostat=ios)
end