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

not needed

This commit is contained in:
Martin Diehl 2019-03-07 22:44:33 +01:00
parent 4a636dbd99
commit a4cdbab7cf
1 changed files with 5 additions and 14 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

19
src/math.f90
View File

@ -188,25 +188,16 @@ contains
!> @brief initialization of random seed generator !> @brief initialization of random seed generator
!-------------------------------------------------------------------------------------------------- !--------------------------------------------------------------------------------------------------
subroutine math_init subroutine math_init
use numerics, only: &
#if defined(__GFORTRAN__) || __INTEL_COMPILER >= 1800 randomSeed
use, intrinsic :: iso_fortran_env, only: &
compiler_version, &
compiler_options
#endif
use numerics, only: randomSeed
use IO, only: IO_timeStamp
implicit none implicit none
integer(pInt) :: i integer(pInt) :: i
real(pReal), dimension(4) :: randTest real(pReal), dimension(4) :: randTest
! the following variables are system dependend and shound NOT be pInt integer :: randSize
integer :: randSize ! gfortran requires a variable length to compile integer, dimension(:), allocatable :: randInit
integer, dimension(:), allocatable :: randInit ! if recalculations of former randomness (with given seed) is necessary
! comment the first random_seed call out, set randSize to 1, and use ifort
write(6,'(/,a)') ' <<<+- math init -+>>>' write(6,'(/,a)') ' <<<+- math init -+>>>'
write(6,'(a15,a)') ' Current time: ',IO_timeStamp()
#include "compilation_info.f90"
call random_seed(size=randSize) call random_seed(size=randSize)
if (allocated(randInit)) deallocate(randInit) if (allocated(randInit)) deallocate(randInit)