subroutine mod_interpolation::interpolation |
( |
integer(itm_i4), intent(in) |
type_interp, |
|
|
real(r8), dimension(4), intent(in) |
xn1, |
|
|
real(r8), dimension(4), intent(in) |
xn2, |
|
|
real(r8), dimension(4), intent(in) |
xn3, |
|
|
real(r8), dimension(4), intent(in) |
xn4, |
|
|
real(r8), intent(in) |
r, |
|
|
real(r8), intent(in) |
s, |
|
|
real(r8), intent(out) |
x, |
|
|
real(r8), intent(out), optional |
xr, |
|
|
real(r8), intent(out), optional |
xs, |
|
|
real(r8), intent(out), optional |
xrs, |
|
|
real(r8), intent(out), optional |
xrr, |
|
|
real(r8), intent(out), optional |
xss, |
|
|
real(r8), dimension(4), intent(in), optional |
yn1, |
|
|
real(r8), dimension(4), intent(in), optional |
yn2, |
|
|
real(r8), dimension(4), intent(in), optional |
yn3, |
|
|
real(r8), dimension(4), intent(in), optional |
yn4, |
|
|
real(r8), dimension(4), intent(in), optional |
pn1, |
|
|
real(r8), dimension(4), intent(in), optional |
pn2, |
|
|
real(r8), dimension(4), intent(in), optional |
pn3, |
|
|
real(r8), dimension(4), intent(in), optional |
pn4, |
|
|
real(r8), intent(out), optional |
yr, |
|
|
real(r8), intent(out), optional |
ys, |
|
|
real(r8), intent(out), optional |
ps |
|
) |
| |