Initial commit

2016-02-03 18:52:05 +00:00
commit d40505e161
507 changed files with 91383 additions and 0 deletions
@@ -0,0 +1,13 @@
+      SUBROUTINE ranpt(pt,region,n)
+      INTEGER n,idum
+      REAL pt(n),region(2*n)
+      COMMON /ranno/ idum
+      SAVE /ranno/
+CU    USES ran1
+      INTEGER j
+      REAL ran1
+      do 11 j=1,n
+        pt(j)=region(j)+(region(j+n)-region(j))*ran1(idum)
+11    continue
+      return
+      END