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 bico(n,k)
+      INTEGER k,n
+      REAL bico
+CU    USES factln
+      REAL factln
+      bico=nint(exp(factln(n)-factln(k)-factln(n-k)))
+      return
+      END