Initial commit

2016-02-03 18:52:05 +00:00
commit d40505e161
507 changed files with 91383 additions and 0 deletions
@@ -0,0 +1,14 @@
+      FUNCTION gammp(a,x)
+      REAL a,gammp,x
+CU    USES gcf,gser
+      REAL gammcf,gamser,gln
+      if(x.lt.0..or.a.le.0.)pause 'bad arguments in gammp'
+      if(x.lt.a+1.)then
+        call gser(gamser,a,x,gln)
+        gammp=gamser
+      else
+        call gcf(gammcf,a,x,gln)
+        gammp=1.-gammcf
+      endif
+      return
+      END