DEWSETRun Method

***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

public 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
)

Public Sub Run ( 
	N As Integer,
	ITOL As Integer,
	RTOL As Double(),
	offset_rtol As Integer,
	ATOL As Double(),
	offset_atol As Integer,
	YCUR As Double(),
	offset_ycur As Integer,
	ByRef EWT As Double(),
	offset_ewt As Integer
)