polishing
This commit is contained in:
parent
e5abb08acd
commit
bc8ecc5437
|
@ -193,11 +193,9 @@ subroutine math_init
|
||||||
! comment the first random_seed call out, set randSize to 1, and use ifort
|
! comment the first random_seed call out, set randSize to 1, and use ifort
|
||||||
character(len=64) :: error_msg
|
character(len=64) :: error_msg
|
||||||
|
|
||||||
mainProcess: if (worldrank == 0) then
|
|
||||||
write(6,'(/,a)') ' <<<+- math init -+>>>'
|
write(6,'(/,a)') ' <<<+- math init -+>>>'
|
||||||
write(6,'(a15,a)') ' Current time: ',IO_timeStamp()
|
write(6,'(a15,a)') ' Current time: ',IO_timeStamp()
|
||||||
#include "compilation_info.f90"
|
#include "compilation_info.f90"
|
||||||
endif mainProcess
|
|
||||||
|
|
||||||
call random_seed(size=randSize)
|
call random_seed(size=randSize)
|
||||||
if (allocated(randInit)) deallocate(randInit)
|
if (allocated(randInit)) deallocate(randInit)
|
||||||
|
@ -216,13 +214,11 @@ subroutine math_init
|
||||||
call random_number(randTest(i))
|
call random_number(randTest(i))
|
||||||
enddo
|
enddo
|
||||||
|
|
||||||
mainProcess2: if (worldrank == 0) then
|
write(6,'(a,I)') 'size of random seed: ', randSize
|
||||||
write(6,*) 'size of random seed: ', randSize
|
|
||||||
do i =1, randSize
|
do i =1, randSize
|
||||||
write(6,*) 'value of random seed: ', i, randInit(i)
|
write(6,'(a,I,I)') 'value of random seed: ', i, randInit(i)
|
||||||
enddo
|
enddo
|
||||||
write(6,'(a,4(/,26x,f17.14),/)') ' start of random sequence: ', randTest
|
write(6,'(a,4(/,26x,f17.14),/)') ' start of random sequence: ', randTest
|
||||||
endif mainProcess2
|
|
||||||
|
|
||||||
call random_seed(put = randInit)
|
call random_seed(put = randInit)
|
||||||
|
|
||||||
|
|
Loading…
Reference in New Issue