3 REAL*8 FUNCTION r8seval2(N, U, X, Y, B, C, D, deriv)
7 INTEGER,
PARAMETER :: R8=selected_real_kind(12,100)
11 real*8 u, x(n), y(n), b(n), c(n), d(n),
deriv
44 IF ( u .LT. x(i) )
GO TO 10
45 IF ( u .LE. x(i+1) )
GO TO 30
52 IF ( u .LT. x(k) ) j = k
53 IF ( u .GE. x(k) ) i = k
54 IF ( j .GT. i+1 )
GO TO 20
60 r8seval2 = y(i) + dx*(b(i) + dx*(c(i) + dx*d(i)))
61 deriv = b(i) + dx*(2.0_r8*c(i) + dx*3.0_r8*d(i))
64 zslop=(y(n)-y(n-1))/(x(n)-x(n-1))
66 zslop=(y(i+1)-y(i))/(x(i+1)-x(i))
68 r8seval2=y(i)+dx*zslop