SUBROUTINE COUPE (R, np, z, ni, nj, x1, y1, x2, y2, ok)
ARGUMENTS
OUT
R(NP) field that contains the results of the cross section real
IN
NP number of points in the cross section integer
Z(NI,NJ) field for which the cross section is computed real
NI x-dimension of array Z integer
NJ y-dimension of array Z integer
X1 x-coordinate of the left point of the cross section real
Y1 y-coordinate of the left point of the cross section real
X2 x-coordinate of the right point of the cross section real
Y2 y-coordinate of the right point of the cross section real
OK OK iff indexes are in the limits of field Z logical
(1,NJ) (NI,NJ)
+-------------+
| |
| *(X2,Y2)| field Z
| / |
| * | NP=3
| / |
| *(X1,Y1) |
+-------------+
(1,1) (NI,1)
DESCRIPTION
Computes a cross section of NP points in the field Z from the point (X1,Y1) to the point (X2,Y2), where X1, Y1, X2 and Y2 are fractionnary indexes. It uses bilinear interpolation.
EXAMPLE
Number 1
Return to RPN home page