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

M.Z. 20.08.2003

Browse Source
This commit is contained in:
cvs
2003-08-20 14:40:52 +00:00
parent 3f17e76df1
commit b9c35befdd
8 changed files with 159 additions and 25 deletions
Download Patch File Download Diff File Expand all files Collapse all files

9
tecs/sys_lun.f
View File

@@ -6,8 +6,9 @@
!!
integer LUN !! out
logical*1 act(50:100)/51*.false./
common /sys_lun/act
logical*1 act(50:100)
common/syslun/act
data act/51*.false./
integer l
@@ -29,8 +30,8 @@
!!
integer LUN !! in
logical*1 act(50:100)/51*.false./
common /sys_lun/act
logical*1 act(50:100)
common/syslun/act
if (lun .lt. 50 .or. lun .gt. 99) then
stop 'SYS_FREE_LUN: illegal lun'