1 SUBROUTINE ewset(n, itol, rtol, atol, ycur, ewt)
8 REAL(rprec),
DIMENSION(*) :: rtol, atol
9 REAL(rprec),
DIMENSION(n) :: ycur, ewt
21 ewt = rtol(1)*abs(ycur) + atol(1)
24 ewt = rtol(1)*abs(ycur) + atol(:n)
27 ewt = rtol(:n)*abs(ycur) + atol(1)
30 ewt = rtol(:n)*abs(ycur) + atol(:n)