Initial Commit

2018-02-08 21:28:33 -05:00
commit 678c1d3966
14352 changed files with 3176737 additions and 0 deletions
@@ -0,0 +1,8 @@
+program test_init_random_seed
+  real :: r(10,4)
+  call init_random_seed()
+  call random_number(r)
+  do i =1,10
+     write (*, *) (r(i,j),j=1,4)
+  end do
+end program test_init_random_seed