Commit a44a3742 authored by rtoy's avatar rtoy
Browse files

opkdemo7.f:

o Fix typo

opkdemo8.f:
o Fix typo
parent 7de1e133
......@@ -429,7 +429,7 @@ c The returned value is
c elkup = norm of ( y - ytrue ) / ( rtol*abs(ytrue) + atol ).
c
integer n, itol, i
double precision y, ewt, rtol, atol, y9, y99,
double precision y, ewt, rtol, atol, y9, y99
c double precision y99a, y99b, y99c,
c 1 y99d, y99e, y99f, y99g, dvnorm
dimension y(n), ewt(n), y9(9), y99(99)
......
......@@ -438,7 +438,7 @@ c as a computed solution at t = 0.4, using data-loaded values for
c accurate answers (from running with much smaller tolerances).
c
integer mb, nb, k
double precision y, abermx, ae1, ae2, ae3, u1, u2, u3, zero,
double precision y, abermx, ae1, ae2, ae3, u1, u2, u3, zero
c 1 u1a, u1b, u1c, u1d, u1e, u1f, u1g,
c 2 u2a, u2b, u2c, u2d, u2e, u2f, u2g,
c 3 u3a, u3b, u3c, u3d, u3e, u3f, u3g
......
Supports Markdown
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment