pkg/tbtables/fitsio/ftgiou.f


1
2
3
4
5
6
7
8
9
10
11

C------------------------------------------------------------------------------
        subroutine ftgiou(iounit,status)

C       get an unallocated logical unit number

        integer iounit,status

        if (status .gt. 0)return
        iounit=0
        call ftxiou(iounit,status)
        end