REAL FUNCTION VLPCOEFF ( IORD, R0, COEFF )

Argument Definitions (+ indicates altered content)
INTEGER            IORD
REAL*8             COEFF(*),   R0
Description
                                                                        * 
  Copyright (C) 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.                            * 
                                                                        * 
 
### vlpcoeff ### 
    This function uses the Horner scheme to calculate the value of a 
    polynomial defined by coefficients stored in array coeff at a 
    point r0 
 
    vlpcoeff(r0)=coeff(1)+coeff(2)*r0+...+coeff(iord)*r0**(iord-1)
Source file:vlpcoeff.f
Local Variables (+ indicates altered content)
INTEGER           +I