SUBROUTINE INTRPR (FI, ifi, jfi, f, if, jf, xi, yi, x, y, FX, FY, FXY,
hx, hy, kl, p, s, c, a, d, work)
ARGUMENTS
OUT
FI(IFI,JFI) interpolated field real
FX(IF,JF) partial derivative of F with respect to x real
FY(IF,JF) partial derivative with respect to y real
FXY(IF,JF) partial second derivative with respect to x and y real
IN
IFI x-dimension of array FI integer
JFI y-dimension of array FI integer
F(IF,JF) original field integer
IF x-dimension of arrays F, FX, FY and FXY integer
JF y-dimension of arrays F, FX, FY and FXY integer
XI(IFI,JFI) x location of the values of the interpolated field FI real
YI(IFI,JFI) y location of the values of the interpolated field FI real
X(IF) x location of the values of the original field F real
Y(JF) y location of the values of the original field F real
HX(IF) grid-lengths defined by HX(i)=X(i+1)-X(i),i=1,IF-1 integer
HY(JF) grid-lengths defined by HY(i)=Y(i+1)-Y(i),i=1,JF-1 integer
KL 0 or 1 (how to compute FXY: FXY or FYX) integer
P working storage vectors of length l=max(IF,JF) real
S working storage vectors of length l=max(IF,JF) real
C working storage vectors of length l=max(IF,JF) real
A working storage vectors of length l=max(IF,JF) real
D working storage vectors of length l=max(IF,JF) real
WORK dummy real
(1,JFI) (IFI,JFI)
+-------------+
| |
| | array FI, XI and YI
| |
| |
| |
+-------------+
(1,1) (IFI,1)
(1,JF) (IF,JF)
+-------------+
| |
| | arrays F, FX, FY and FXY
| |
| |
| |
+-------------+
(1,1) (IF,1)
DESCRIPTION
Interpolate at arbitrary points of a grid from an arbitrary rectangular grid.
EXAMPLE
Number 1
SEE ALSO
d1, d1int1, d1int2, d1intr, defvec, dn, fd1, fdm, int1d1, intrp, spd
Return to RPN home page