Initial commit

2016-02-03 18:52:05 +00:00
commit d40505e161
507 changed files with 91383 additions and 0 deletions
@@ -0,0 +1,8 @@
+      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