***PURPOSE Set error weight vector.
***TYPE DOUBLE PRECISION (SEWSET-S, DEWSET-D)
***AUTHOR Hindmarsh, Alan C., (LLNL)
***DESCRIPTION
This subroutine sets the error weight vector EWT according to
EWT(i) = RTOL(i)*ABS(YCUR(i)) + ATOL(i), i = 1,...,N,
with the subscript on RTOL and/or ATOL possibly replaced by 1 above,
depending on the value of ITOL.
***SEE ALSO DLSODE
***ROUTINES CALLED (NONE)
***REVISION HISTORY (YYMMDD)
791129 DATE WRITTEN
890501 Modified prologue to SLATEC/LDOC format. (FNF)
890503 Minor cosmetic changes. (FNF)
930809 Renamed to allow single/double precision versions. (ACH)
***END PROLOGUE DEWSET
**End
***FIRST EXECUTABLE STATEMENT DEWSET
Namespace: Altaxo.Calc.Ode.Obsolete.DVodeAssembly: AltaxoCore (in AltaxoCore.dll) Version: 4.8.3572.0 (4.8.3572.0)
Syntaxpublic void Run(
int N,
int ITOL,
double[] RTOL,
int offset_rtol,
double[] ATOL,
int offset_atol,
double[] YCUR,
int offset_ycur,
ref double[] EWT,
int offset_ewt
)
Parameters
- N Int32
- The number of solution components.
- ITOL Int32
- The tolerance selection indicator.
- RTOL Double
- The relative tolerance array.
- offset_rtol Int32
- The offset into RTOL.
- ATOL Double
- The absolute tolerance array.
- offset_atol Int32
- The offset into ATOL.
- YCUR Double
- The current solution vector.
- offset_ycur Int32
- The offset into YCUR.
- EWT Double
- The error weight array.
- offset_ewt Int32
- The offset into EWT.
See Also