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

polishing

This commit is contained in:
Martin Diehl 2016-07-08 22:12:02 +02:00
parent e5abb08acd
commit bc8ecc5437
1 changed files with 7 additions and 11 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

18
code/math.f90
View File

@ -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,'(a,I,I)') 'value of random seed: ', i, randInit(i)
write(6,*) '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)