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

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