pkg/tbtables/fitsio/ftgmsg.f


1
2
3
4
5
6
7

C------------------------------------------------------------------------------
        subroutine ftgmsg(text)

C       get error message from top of stack and shift the stack up one message
        character*(*) text
        call ftxmsg(-1,text)
        end