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

better crypto security in sranding

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
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