also report correctly negative seeds
This commit is contained in:
parent
26496976c8
commit
588525611b
12
src/math.f90
12
src/math.f90
|
@ -91,28 +91,26 @@ subroutine math_init
|
|||
integer :: randSize
|
||||
integer, dimension(:), allocatable :: randInit
|
||||
|
||||
write(6,'(/,a)') ' <<<+- math init -+>>>'
|
||||
write(6,'(/,a)') ' <<<+- math init -+>>>'; flush(6)
|
||||
|
||||
call random_seed(size=randSize)
|
||||
allocate(randInit(randSize))
|
||||
if (randomSeed > 0) then
|
||||
randInit = randomSeed
|
||||
call random_seed(put=randInit)
|
||||
else
|
||||
call random_seed()
|
||||
call random_seed(get = randInit)
|
||||
randInit(2:randSize) = randInit(1)
|
||||
call random_seed(put = randInit)
|
||||
endif
|
||||
|
||||
call random_seed(put=randInit)
|
||||
|
||||
do i = 1, 4
|
||||
call random_number(randTest(i))
|
||||
enddo
|
||||
|
||||
write(6,'(a,I2)') ' size of random seed: ', randSize
|
||||
do i = 1,randSize
|
||||
write(6,'(a,I2,I14)') ' value of random seed: ', i, randInit(i)
|
||||
enddo
|
||||
write(6,'(a,i2)') ' size of random seed: ', randSize
|
||||
write(6,'(a,i0)') ' value of random seed: ', randInit(1)
|
||||
write(6,'(a,4(/,26x,f17.14),/)') ' start of random sequence: ', randTest
|
||||
|
||||
call random_seed(put = randInit)
|
||||
|
|
|
@ -54,12 +54,12 @@ subroutine mesh_init(ip,el)
|
|||
node0_cell
|
||||
type(tElement) :: elem
|
||||
|
||||
integer :: nElems
|
||||
integer, dimension(:), allocatable :: &
|
||||
microstructureAt, &
|
||||
homogenizationAt
|
||||
integer:: &
|
||||
Nnodes !< total number of nodes in mesh
|
||||
Nnodes, & !< total number of nodes in the mesh
|
||||
Nelems !< total number of elements in the mesh
|
||||
|
||||
real(pReal), dimension(:,:), allocatable :: &
|
||||
IP_reshaped
|
||||
|
|
Loading…
Reference in New Issue