Initial commit

2016-02-03 18:52:05 +00:00
commit d40505e161
507 changed files with 91383 additions and 0 deletions
@@ -0,0 +1,10 @@
+      FUNCTION expdev(idum)
+      INTEGER idum
+      REAL expdev
+CU    USES ran1
+      REAL dum,ran1
+1     dum=ran1(idum)
+      if(dum.eq.0.)goto 1
+      expdev=-log(dum)
+      return
+      END