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

8
src/math.f90
View File

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