1
extern int xermsg_(char *librar, char *subrou, char *messg, integer *nerr, integer *level, ftnlen librar_len, ftnlen subrou_len, ftnlen messg_len);
2
/*:ref: j4save_ 4 3 4 4 12 */
3
/*:ref: xerprn_ 14 6 13 4 13 4 124 124 */
4
/*:ref: xersve_ 14 10 13 13 13 4 4 4 4 124 124 124 */
5
/*:ref: xerhlt_ 14 2 13 124 */
6
/*:ref: xercnt_ 14 9 13 13 13 4 4 4 124 124 124 */