Initial commit

2016-02-03 18:52:05 +00:00
commit d40505e161
507 changed files with 91383 additions and 0 deletions
@@ -0,0 +1,12 @@
+      FUNCTION irbit2(iseed)
+      INTEGER irbit2,iseed,IB1,IB2,IB5,IB18,MASK
+      PARAMETER (IB1=1,IB2=2,IB5=16,IB18=131072,MASK=IB1+IB2+IB5)
+      if(iand(iseed,IB18).ne.0)then
+        iseed=ior(ishft(ieor(iseed,MASK),1),IB1)
+        irbit2=1
+      else
+        iseed=iand(ishft(iseed,1),not(IB1))
+        irbit2=0
+      endif
+      return
+      END