blob: 1951f26cb9faba32c2b57ed8bd1c69b5fc0ef1cd (
plain) (
blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
|
# Copyright(c) 1986 Association of Universities for Research in Astronomy Inc.
include <error.h>
# FULIB -- Print an error message processed by fortran routine uliber.
procedure fulib (errcode, upkmsg, msglen)
int errcode
char upkmsg[ARB] # unpacked string
int msglen # number of chars in string
pointer sp, sppmsg
begin
call smark (sp)
call salloc (sppmsg, SZ_LINE, TY_CHAR)
# Construct error message string
call sprintf (Memc[sppmsg], SZ_LINE, "ERROR %d IN %s\n")
call pargi (errcode)
call pargstr (upkmsg)
# Call error with the constructed message
iferr (call error (errcode, Memc[sppmsg]))
call erract (EA_WARN)
call sfree (sp)
end
|
