***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.
Namespace: Altaxo.Calc.Ode.Obsolete.DVodeAssembly: AltaxoCore (in AltaxoCore.dll) Version: 4.8.3179.0 (4.8.3179.0)
Syntax public void Run(
string MSG,
int NMES,
int NERR,
int LEVEL,
int NI,
int I1,
int I2,
int NR,
double R1,
double R2
)
Parameters
- MSG String
-
= The message (character array).
- NMES Int32
-
= The length of MSG (number of characters).
- NERR Int32
-
= The error number (not used).
- LEVEL Int32
-
= The error level..
0 or 1 means recoverable (control returns to caller).
2 means fatal (run is aborted--see note below).
- NI Int32
-
= Number of integers (0, 1, or 2) to be printed with message.
- I1 Int32
[Missing <param name="I1"/> documentation for "M:Altaxo.Calc.Ode.Obsolete.DVode.XERRWD.Run(System.String,System.Int32,System.Int32,System.Int32,System.Int32,System.Int32,System.Int32,System.Int32,System.Double,System.Double)"]
- I2 Int32
[Missing <param name="I2"/> documentation for "M:Altaxo.Calc.Ode.Obsolete.DVode.XERRWD.Run(System.String,System.Int32,System.Int32,System.Int32,System.Int32,System.Int32,System.Int32,System.Int32,System.Double,System.Double)"]
- NR Int32
-
= Number of reals (0, 1, or 2) to be printed with message.
- R1 Double
[Missing <param name="R1"/> documentation for "M:Altaxo.Calc.Ode.Obsolete.DVode.XERRWD.Run(System.String,System.Int32,System.Int32,System.Int32,System.Int32,System.Int32,System.Int32,System.Int32,System.Double,System.Double)"]
- R2 Double
[Missing <param name="R2"/> documentation for "M:Altaxo.Calc.Ode.Obsolete.DVode.XERRWD.Run(System.String,System.Int32,System.Int32,System.Int32,System.Int32,System.Int32,System.Int32,System.Int32,System.Double,System.Double)"]
See Also