XERRWD Class

***PURPOSE Write error message with values. ***CATEGORY R3C ***TYPE DOUBLE PRECISION (XERRWV-S, XERRWD-D) ***AUTHOR Hindmarsh, Alan C., (LLNL) ***DESCRIPTION Subroutines XERRWD, XSETF, XSETUN, and the function routine IXSAV, as given here, constitute a simplified version of the SLATEC error handling package. All arguments are input arguments. MSG = The message (character array). NMES = The length of MSG (number of characters). NERR = The error number (not used). LEVEL = The error level.. 0 or 1 means recoverable (control returns to caller). 2 means fatal (run is aborted--see note below). NI = Number of integers (0, 1, or 2) to be printed with message. I1,I2 = Integers to be printed, depending on NI. NR = Number of reals (0, 1, or 2) to be printed with message. R1,R2 = Reals to be printed, depending on NR. Note.. this routine is machine-dependent and specialized for use in limited context, in the following ways.. 1. The argument MSG is assumed to be of type CHARACTER, and the message is printed with a format of (1X,A). 2. The message is assumed to take only one line. Multi-line messages are generated by repeated calls. 3. If LEVEL = 2, control passes to the statement STOP to abort the run. This statement may be machine-dependent. 4. R1 and R2 are assumed to be in double precision and are printed in D21.13 format. ***ROUTINES CALLED IXSAV ***REVISION HISTORY (YYMMDD) 920831 DATE WRITTEN 921118 Replaced MFLGSV/LUNSAV by IXSAV. (ACH) 930329 Modified prologue to SLATEC format. (FNF) 930407 Changed MSG from CHARACTER*1 array to variable. (FNF) 930922 Minor cosmetic change. (FNF) ***END PROLOGUE XERRWD *Internal Notes: For a different default logical unit number, IXSAV (or a subsidiary routine that it calls) will need to be modified. For a different run-abort command, change the statement following statement 100 at the end. ----------------------------------------------------------------------- Subroutines called by XERRWD.. None Function routine called by XERRWD.. IXSAV ----------------------------------------------------------------------- **End Declare arguments.

public class XERRWD

Public Class XERRWD