Initial commit

dataassim/math/numrec/f77_sources/elle.for

@@ -0,0 +1,10 @@
+      FUNCTION elle(phi,ak)
+      REAL elle,ak,phi
+CU    USES rd,rf
+      REAL cc,q,s,rd,rf
+      s=sin(phi)
+      cc=cos(phi)**2
+      q=(1.-s*ak)*(1.+s*ak)
+      elle=s*(rf(cc,q,1.)-((s*ak)**2)*rd(cc,q,1.)/3.)
+      return
+      END