splint_real Subroutine
-
- numerical-tools, KKRhost, voronoi, kkrimp, kkrscatter
- 27 statements
- Source File
public subroutine splint_real(xa, ya, y2a, n, x, y, yderiv)
Given the arrays xa(1:n) and ya(1:n) of length n, which tabulate a
function (with the xai's in order), and given the array y2a(1:n), which
is the output from spline above, and given a value of x, this routine
returns a cubic-spline interpolated value y and the derivative yderiv.
We will nd the right place in the table by means of bisection.
This is optimal if sequential calls to this routine are at random
values of x. If sequential calls are in order, and closely
spaced, one would do better to store previous values of
klo and khi and test if they remain appropriate on the next call.
Note
Taken from "Numerical Recipes in Fortran 77", W.H.Press et al.
Arguments
| Type | Intent | Optional | Attributes | Name | ||
|---|---|---|---|---|---|---|
| real(kind=dp), | dimension(*) | :: | xa | |||
| real(kind=dp), | dimension(*) | :: | ya | |||
| real(kind=dp), | dimension(*) | :: | y2a | |||
| integer | :: | n | ||||
| real(kind=dp) | :: | x | ||||
| real(kind=dp) | :: | y | ||||
| real(kind=dp) | :: | yderiv |