Files
sics/tecs/get_lun.for
2000-04-10 15:38:21 +00:00

9 lines
104 B
Fortran

subroutine lib$get_lun(lun)
integer lun
lun=33
end
subroutine lib$free_lun(lun)
integer lun
end