pkg/tbtables/fitsio/fitssppb/fsgmsg.x


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15

include "fitsio.h"

procedure fsgmsg(text)

# Return oldest error message from the FITSIO error stack

char    text[SZ_FCARD]       # o text string
%       character ftext*80

begin

call ftgmsg(ftext)

call f77upk(ftext  ,text ,SZ_FCARD)
end