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 ran0(idum)
+      INTEGER idum,IA,IM,IQ,IR,MASK
+      REAL ran0,AM
+      PARAMETER (IA=16807,IM=2147483647,AM=1./IM,IQ=127773,IR=2836,
+     *MASK=123459876)
+      INTEGER k
+      idum=ieor(idum,MASK)
+      k=idum/IQ
+      idum=IA*(idum-k*IQ)-IR*k
+      if (idum.lt.0) idum=idum+IM
+      ran0=AM*idum
+      idum=ieor(idum,MASK)
+      return
+      END