blob: ba90c788abff0bad01f8d8f220e6353c41940417 (
plain) (
blame)
1
2
3
4
5
6
7
8
9
10
11
|
C------------------------------------------------------------------------------
subroutine ftfiou(iounit,status)
C free specified logical unit number; if iounit=-1, then free all units
integer iounit,status
if (status .gt. 0)return
call ftxiou(iounit,status)
end
|
