adding a lot of grabage

BloubWorld/mathstuff.f90

@@ -5,21 +5,23 @@ module mathstuff
 
   ! ----------------------------------------------------------------
   !   really quick'n'dirty hack
-  !                  not working yet...
+  !                  not really tested yet...
 
   subroutine init_random_seed()
 
     integer, dimension(3) :: tarray
-    integer               :: t3
+    integer               :: t3, foo
     real                  :: dummy
     call itime(tarray)
     t3 = 3600*tarray(1) + 60*tarray(2) + tarray(3)
-    write(0, '(A,3I3,A,I6)') "sranding: ", tarray, " --> ", t3
+    ! write(0, '(A,3I3,A,I6)') "sranding: ", tarray, " --> ", t3
     call srand(t3)
 
     ! after initializing the random generator engine,
     ! you MUST use it for initializing the initializer
-    dummy = rand()
+    do foo=1, tarray(1)+5
+      dummy = rand()
+    enddo
 
   end subroutine