path: root/pkg/tbtables/fitsio/ftcmsg.f

C------------------------------------------------------------------------------
        subroutine ftcmsg

C       clear the error message stack
        call ftxmsg(0,'dummy')
        end