Initial commit

2016-02-03 18:52:05 +00:00
commit d40505e161
507 changed files with 91383 additions and 0 deletions
@@ -0,0 +1,7 @@
+      FUNCTION beta(z,w)
+      REAL beta,w,z
+CU    USES gammln
+      REAL gammln
+      beta=exp(gammln(z)+gammln(w)-gammln(z+w))
+      return
+      END