blob: 039454c8321e89219d3c3cc497b6fabaa742bda5 (
plain) (
blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
|
include "fitsio.h"
procedure fsgerr(errnum,text)
# Return a descriptive error message corresponding to the error number
int errnum # i error number
char text[SZ_FERRTXT] # i text string
% character ftext*30
begin
call ftgerr(errnum,ftext)
call f77upk(ftext ,text ,SZ_FERRTXT)
end
|
