pkg/tbtables/fitsio/ftpmsg.f


1
2
3
4
5
6
7

C------------------------------------------------------------------------------
        subroutine ftpmsg(text)

C       put error message onto stack.
        character*(*) text
        call ftxmsg(1,text)
        end