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 @@
+      SUBROUTINE metrop(de,t,ans)
+      REAL de,t
+      LOGICAL ans
+CU    USES ran3
+      INTEGER jdum
+      REAL ran3
+      SAVE jdum
+      DATA jdum /1/
+      ans=(de.lt.0.0).or.(ran3(jdum).lt.exp(-de/t))
+      return
+      END