Initial commit

2016-02-03 18:52:05 +00:00
commit d40505e161
507 changed files with 91383 additions and 0 deletions
@@ -0,0 +1,11 @@
+      FUNCTION ellpi(phi,en,ak)
+      REAL ellpi,ak,en,phi
+CU    USES rf,rj
+      REAL cc,enss,q,s,rf,rj
+      s=sin(phi)
+      enss=en*s*s
+      cc=cos(phi)**2
+      q=(1.-s*ak)*(1.+s*ak)
+      ellpi=s*(rf(cc,q,1.)-enss*rj(cc,q,1.,1.+enss)/3.)
+      return
+      END