module mathstuff

  implicit none

  contains

  ! ----------------------------------------------------------------
  !   really quick'n'dirty hack

  subroutine init_random_seed()

    integer, dimension(3) :: tarray
    integer t3

    call itime(tarray)
    t3 = 200*tarray(1) + 20*tarray(2) + tarray(3)
    print *, tarray, ' --> ', t3
    call srand(t3)

  end subroutine 

  ! ----------------------------------------------------------------
end module mathstuff