From 77d60be1279299c3f5d113be7eef31b30c325646 Mon Sep 17 00:00:00 2001 From: Martin Diehl Date: Sat, 16 Feb 2019 11:30:56 +0100 Subject: [PATCH] avoid superfluous reporting --- src/DAMASK_abaqus.f | 5 +++++ src/DAMASK_marc.f90 | 5 +++++ src/mesh_abaqus.f90 | 8 -------- src/mesh_grid.f90 | 8 -------- src/mesh_marc.f90 | 9 --------- 5 files changed, 10 insertions(+), 25 deletions(-) diff --git a/src/DAMASK_abaqus.f b/src/DAMASK_abaqus.f index f17b5bb25..8cd3a4930 100644 --- a/src/DAMASK_abaqus.f +++ b/src/DAMASK_abaqus.f @@ -30,6 +30,11 @@ contains !> @brief reports and sets working directory !-------------------------------------------------------------------------------------------------- subroutine DAMASK_interface_init +#if __INTEL_COMPILER >= 1800 + use, intrinsic :: iso_fortran_env, only: & + compiler_version, & + compiler_options +#endif use ifport, only: & CHDIR diff --git a/src/DAMASK_marc.f90 b/src/DAMASK_marc.f90 index 9b1427d78..892b2cbc4 100644 --- a/src/DAMASK_marc.f90 +++ b/src/DAMASK_marc.f90 @@ -43,6 +43,11 @@ contains !> @brief reports and sets working directory !-------------------------------------------------------------------------------------------------- subroutine DAMASK_interface_init +#if __INTEL_COMPILER >= 1800 + use, intrinsic :: iso_fortran_env, only: & + compiler_version, & + compiler_options +#endif use ifport, only: & CHDIR diff --git a/src/mesh_abaqus.f90 b/src/mesh_abaqus.f90 index 60b1484c1..4e923606e 100644 --- a/src/mesh_abaqus.f90 +++ b/src/mesh_abaqus.f90 @@ -6,7 +6,6 @@ !> @brief Sets up the mesh for the solvers MSC.Marc, Abaqus and the spectral solver !-------------------------------------------------------------------------------------------------- module mesh - use, intrinsic :: iso_c_binding use prec, only: pReal, pInt use mesh_base @@ -425,11 +424,6 @@ end subroutine tMesh_abaqus_init !! Order and routines strongly depend on type of solver !-------------------------------------------------------------------------------------------------- subroutine mesh_init(ip,el) -#if defined(__GFORTRAN__) || __INTEL_COMPILER >= 1800 - use, intrinsic :: iso_fortran_env, only: & - compiler_version, & - compiler_options -#endif use DAMASK_interface use IO, only: & IO_open_InputFile, & @@ -458,8 +452,6 @@ subroutine mesh_init(ip,el) logical :: myDebug write(6,'(/,a)') ' <<<+- mesh init -+>>>' - write(6,'(a15,a)') ' Current time: ',IO_timeStamp() -#include "compilation_info.f90" mesh_unitlength = numerics_unitlength ! set physical extent of a length unit in mesh diff --git a/src/mesh_grid.f90 b/src/mesh_grid.f90 index d55c1cded..424456e3a 100644 --- a/src/mesh_grid.f90 +++ b/src/mesh_grid.f90 @@ -169,11 +169,6 @@ end subroutine tMesh_grid_init !! Order and routines strongly depend on type of solver !-------------------------------------------------------------------------------------------------- subroutine mesh_init(ip,el) -#if defined(__GFORTRAN__) || __INTEL_COMPILER >= 1800 - use, intrinsic :: iso_fortran_env, only: & - compiler_version, & - compiler_options -#endif #include use PETScsys @@ -206,9 +201,6 @@ subroutine mesh_init(ip,el) logical :: myDebug write(6,'(/,a)') ' <<<+- mesh init -+>>>' - write(6,'(a15,a)') ' Current time: ',IO_timeStamp() -#include "compilation_info.f90" - mesh_unitlength = numerics_unitlength ! set physical extent of a length unit in mesh diff --git a/src/mesh_marc.f90 b/src/mesh_marc.f90 index f9ba0378b..0c7d332c9 100644 --- a/src/mesh_marc.f90 +++ b/src/mesh_marc.f90 @@ -6,7 +6,6 @@ !> @brief Sets up the mesh for the solver MSC.Marc !-------------------------------------------------------------------------------------------------- module mesh - use, intrinsic :: iso_c_binding use prec, only: pReal, pInt use mesh_base @@ -284,11 +283,6 @@ end subroutine tMesh_marc_init !! Order and routines strongly depend on type of solver !-------------------------------------------------------------------------------------------------- subroutine mesh_init(ip,el) -#if defined(__GFORTRAN__) || __INTEL_COMPILER >= 1800 - use, intrinsic :: iso_fortran_env, only: & - compiler_version, & - compiler_options -#endif use DAMASK_interface use IO, only: & IO_open_InputFile, & @@ -322,9 +316,6 @@ subroutine mesh_init(ip,el) logical :: myDebug write(6,'(/,a)') ' <<<+- mesh init -+>>>' - write(6,'(a15,a)') ' Current time: ',IO_timeStamp() -#include "compilation_info.f90" - mesh_unitlength = numerics_unitlength ! set physical extent of a length unit in mesh