1 /* xermsg.f -- this is a dummy implementation which just calls fprintf
2 */
3
4 #define V3P_NETLIB_SRC
5 #include "v3p_netlib.h"
6 #include "stdio.h"
7
8 /* Table of constant values */
9
10 /* DECK XERMSG */
xermsg_(const char * librar,const char * subrou,const char * messg,integer * nerr,integer * level,ftnlen librar_len,ftnlen subrou_len,ftnlen messg_len)11 /* Subroutine */ int xermsg_(const char *librar, const char *subrou, const char *messg, integer
12 *nerr, integer *level, ftnlen librar_len, ftnlen subrou_len, ftnlen
13 messg_len)
14 {
15
16 fprintf(stderr, "%s/%s: %s\n", librar, subrou, messg);
17 return 0;
18 } /* xermsg_ */
19
20