5 SUBROUTINE dyypnw (NEQ, Y, YPRIME, CJ, RL, P, ICOPT, ID,
37 IMPLICIT DOUBLE PRECISION (a-h,o-z)
38 dimension y(*), yprime(*), ynew(*), ypnew(*), id(*), p(*)
40 IF (icopt .EQ. 1)
THEN
43 ynew(i) = y(i) - rl*p(i)
47 ypnew(i) = yprime(i) - rl*cj*p(i)
52 ynew(i) = y(i) - rl*p(i)
std::string dimension(void) const
subroutine dyypnw(NEQ, Y, YPRIME, CJ, RL, P, ICOPT, ID, YNEW, YPNEW)