Initial commit

2016-02-03 18:52:05 +00:00
commit d40505e161
507 changed files with 91383 additions and 0 deletions
@@ -0,0 +1,11 @@
+      FUNCTION erfc(x)
+      REAL erfc,x
+CU    USES gammp,gammq
+      REAL gammp,gammq
+      if(x.lt.0.)then
+        erfc=1.+gammp(.5,x**2)
+      else
+        erfc=gammq(.5,x**2)
+      endif
+      return
+      END