Initial commit

2016-02-03 18:52:05 +00:00
commit d40505e161
507 changed files with 91383 additions and 0 deletions
@@ -0,0 +1,19 @@
+      FUNCTION probks(alam)
+      REAL probks,alam,EPS1,EPS2
+      PARAMETER (EPS1=0.001, EPS2=1.e-8)
+      INTEGER j
+      REAL a2,fac,term,termbf
+      a2=-2.*alam**2
+      fac=2.
+      probks=0.
+      termbf=0.
+      do 11 j=1,100
+        term=fac*exp(a2*j**2)
+        probks=probks+term
+        if(abs(term).le.EPS1*termbf.or.abs(term).le.EPS2*probks)return
+        fac=-fac
+        termbf=abs(term)
+11    continue
+      probks=1.
+      return
+      END