223031012
/
DAMASK_EICMD
mirror of https://github.com/achalhp/DAMASK_EICMD.git
1
0
Fork 0
Code Issues Projects Releases Wiki Activity

simpler ...

This commit is contained in:
Martin Diehl 2020-03-16 19:39:18 +01:00
parent c0fc7ad9a9
commit becb04c234
1 changed files with 2 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
src/math.f90
View File

@ -89,7 +89,6 @@ contains
!-------------------------------------------------------------------------------------------------- !--------------------------------------------------------------------------------------------------
subroutine math_init subroutine math_init
integer :: i
real(pReal), dimension(4) :: randTest real(pReal), dimension(4) :: randTest
integer :: randSize integer :: randSize
integer, dimension(:), allocatable :: randInit integer, dimension(:), allocatable :: randInit
@ -107,10 +106,7 @@ subroutine math_init
endif endif
call random_seed(put = randInit) call random_seed(put = randInit)
call random_number(randTest)
do i = 1, 4
call random_number(randTest(i))
enddo
write(6,'(a,i2)') ' size of random seed: ', randSize write(6,'(a,i2)') ' size of random seed: ', randSize
write(6,'(a,i0)') ' value of random seed: ', randInit(1) write(6,'(a,i0)') ' value of random seed: ', randInit(1)