SUBROUTINE VPOLAGR (FF, zz, zi, z, na, nplus1)
ARGUMENTS
OUT
FF(NA) output function real
IN
ZZ coordinate of desired result real
ZI(NA,NPLUS1) input field real
Z(NPLUS1) vertical coordinate real
NA horizontal dimension of FF and ZI integer
NPLUS1 maximum degree of Lagrange polynomial + 1 integer
(1,NPLUS1) (NA,NPLUS1) ^
+-------------+ |Z(NPLUS1)
| | |Z(NPLUS1-1)
| | array ZI |
+-----FF------+ -+ZZ height
| | |
| | |Z(2)
+-------------+ |Z(1)
(1,1) (NA,1)
DESCRIPTION
Given the vertical field ZI and the height Z of each row of ZI, finds the cross section at height ZZ, that is, the function FF.
EXAMPLE
Number 1
Return to RPN home page