ellf.for

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

      FUNCTION ellf(phi,ak)
      REAL ellf,ak,phi
CU    USES rf
      REAL s,rf
      s=sin(phi)
      ellf=s*rf(cos(phi)**2,(1.-s*ak)*(1.+s*ak),1.)
      return
      END