REAL FUNCTION FLP ( IORD, N, R, F, R0 )

Argument Definitions (+ indicates altered content)
INTEGER            IORD,       N
REAL*8             F(N),       R(N),       R0
Description
                                                                        * 
  Copyright (C) 1996 Leif Laaksonen, Dage Sundholm                      * 
  Copyright (C) 1996-2010 Jacek Kobus               * 
                                                                        * 
  This program is free software; you can redistribute it and/or modify  * 
  it under the terms of the GNU General Public License version 2 as     * 
  published by the Free Software Foundation.                            * 
                                                                        * 
 
### flp ### 
    It is assumed that function f(r) is tabulated at grid points r_i, 
    i=1,...,n which are stored in array r and the corresponding values 
    f_i are in array f. 
    The function fr0 uses the Lagrange polynomial of a given order to 
    calculate f(r0). The interpolation employs grid points adjacent to 
    r0. 
  iord - number of grid point used for interpolation 
    n  - dimension of arrys r and f 
    r  - array of abscissas 
    f  - array of corresponding values of a given function f 
    r0 - an abscissa for which f(r0) is calculated via 8th-order 
         Lagrange polynomial
Source file:flp.f
External Functions and Subroutines Called
REAL*8             VLPCOEFF
SUBROUTINE         LPCOEFF
Local Variables (+ indicates altered content)
INTEGER           +I,         +ISTART,    +K,         +NEAREST
REAL*8             COEFF(9),  +COEFF2(9,9)