1 2 3 4 5 6 7 8 9 10 11
include "fitsio.h" procedure fscmsg # clear the FITSIO error stack begin call ftcmsg end