tTh/Fortraneries
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

fixing the crypto-fix

Browse Source
This commit is contained in:
tth 2022-02-17 18:08:58 +01:00
parent cfc8ea6b63
commit 64206904ca
1 changed files with 7 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
BloubWorld/mathstuff.f90
View File

@ -5,17 +5,22 @@ module mathstuff
! ---------------------------------------------------------------- ! ----------------------------------------------------------------
! really quick'n'dirty hack ! really quick'n'dirty hack
! not working yet...
subroutine init_random_seed() subroutine init_random_seed()
integer, dimension(3) :: tarray integer, dimension(3) :: tarray
integer t3 integer :: t3
real :: dummy
call itime(tarray) call itime(tarray)
t3 = 3600*tarray(1) + 60*tarray(2) + tarray(3) 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) call srand(t3)
! after initializing the random generator,
! you MUST use it for initializin the initialier
dummy = rand()
end subroutine end subroutine
! ---------------------------------------------------------------- ! ----------------------------------------------------------------