fpoly.for

来自「Numerical Recipes一书中例子的源码所用到的函数集,William」· FOR 代码 · 共 11 行

      SUBROUTINE fpoly(x,p,np)
      INTEGER np
      REAL x,p(np)
      INTEGER j
      p(1)=1.
      do 11 j=2,np
        p(j)=p(j-1)*x
11    continue
      return
      END