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

better crypto security in sranding

Browse Source
This commit is contained in:
tth 2022-02-17 13:41:09 +01:00
parent 45a695f9e0
commit 3343c48588
1 changed files with 2 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
BloubWorld/mathstuff.f90
View File

@ -1,7 +1,6 @@
module mathstuff module mathstuff
implicit none implicit none
contains contains
! ---------------------------------------------------------------- ! ----------------------------------------------------------------
@ -13,8 +12,8 @@ module mathstuff
integer t3 integer t3
call itime(tarray) call itime(tarray)
t3 = 200*tarray(1) + 20*tarray(2) + tarray(3) t3 = 3600*tarray(1) + 60*tarray(2) + tarray(3)
print *, tarray, ' --> ', t3 write(0, '(A,3I3,A,I6)') "sranding: ", tarray, " --> ", t3
call srand(t3) call srand(t3)
end subroutine end subroutine