diff --git a/BloubWorld/mathstuff.f90 b/BloubWorld/mathstuff.f90
index f0851ab..fd34426 100644
--- a/BloubWorld/mathstuff.f90
+++ b/BloubWorld/mathstuff.f90
@@ -1,7 +1,6 @@
 module mathstuff
 
   implicit none
-
   contains
 
   ! ----------------------------------------------------------------
@@ -13,8 +12,8 @@ module mathstuff
     integer t3
 
     call itime(tarray)
-    t3 = 200*tarray(1) + 20*tarray(2) + tarray(3)
-    print *, tarray, ' --> ', t3
+    t3 = 3600*tarray(1) + 60*tarray(2) + tarray(3)
+    write(0, '(A,3I3,A,I6)') "sranding: ", tarray, " --> ", t3
     call srand(t3)
 
   end subroutine