1 SUBROUTINE sewset (N, ITOL, RTOL, ATOL, YCUR, EWT)
25 REAL RTOL, ATOL, YCUR, EWT
26 dimension rtol(*), atol(*), ycur(n), ewt(n)
29 go to(10, 20, 30, 40), itol
32 15 ewt(i) = rtol(1)*
abs(ycur(i)) + atol(1)
36 25 ewt(i) = rtol(1)*
abs(ycur(i)) + atol(i)
40 35 ewt(i) = rtol(i)*
abs(ycur(i)) + atol(1)
44 45 ewt(i) = rtol(i)*
abs(ycur(i)) + atol(i)
subroutine sewset(N, ITOL, RTOL, ATOL, YCUR, EWT)
std::string dimension(void) const