include "fitsio.h"

procedure fscmsg

# clear the FITSIO error stack

begin


call ftcmsg
end