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