HP MLIB User's Guide Vol. 2 7th Ed.

Chapter 7 Miscellaneous Routines 623
VECLIB error handler XERVEC
Name XERVEC
VECLIB error handler
Purpose XERVEC is the error handler for many of the subprograms in the VECLIB
library, as indicated in the “Notes” section in the subprogram descriptions. As
supplied in VECLIB, XERVEC writes one of the following error messages onto
the standard error file:
*****************************************************************************
* XERVEC: subprogram name called with invalid value of argument number iarg *
*****************************************************************************
********************************************************************
* XERVEC: error detected by subprogram name: text of error message *
********************************************************************
*************************************************************************
* XERVEC: error iarg detected by subprogram name: text of error message *
*************************************************************************
where name is the name of the subprogram in which the error was detected,
iarg is the argument number of the offending argument, and text of error
message is a character string. If the main program is in Fortran, a call
traceback is also written onto the standard error file. XERVEC then terminates
execution with a nonzero exit status.
You can supply a version of XERVEC that alters this action. All VECLIB
subprograms that call XERVEC have a RETURN statement after the CALL
statement, so your version could set a flag in a common block and RETURN.
The flag could be tested in the program unit that calls the VECLIB
subprogram.
Usage VECLIB:
CHARACTER*(*) name, messag
INTEGER*4 iarg
CALL XERVEC(name, iarg, messag)
VECLIB8:
CHARACTER*(*) name, messag
INTEGER*8 iarg
CALL XERVEC(name, iarg, messag)
Input name The name of the subprogram in which the error was
detected.