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 gammq(a,x)
+      REAL a,gammq,x
+CU    USES gcf,gser
+      REAL gammcf,gamser,gln
+      if(x.lt.0..or.a.le.0.)pause 'bad arguments in gammq'
+      if(x.lt.a+1.)then
+        call gser(gamser,a,x,gln)
+        gammq=1.-gamser
+      else
+        call gcf(gammcf,a,x,gln)
+        gammq=gammcf
+      endif
+      return
+      END