diff --git a/src/CPFEM.f90 b/src/CPFEM.f90 index eef56506f..b3848a9eb 100644 --- a/src/CPFEM.f90 +++ b/src/CPFEM.f90 @@ -113,7 +113,11 @@ end subroutine CPFEM_initAll !> @brief allocate the arrays defined in module CPFEM and initialize them !-------------------------------------------------------------------------------------------------- subroutine CPFEM_init - use, intrinsic :: iso_fortran_env ! to get compiler_version and compiler_options (at least for gfortran 4.6 at the moment) +#ifdef __GFORTRAN__ + use, intrinsic :: iso_fortran_env, only: & + compiler_version, & + compiler_options +#endif use prec, only: & pInt use IO, only: & diff --git a/src/CPFEM2.f90 b/src/CPFEM2.f90 index 3e926ee71..0ac916046 100644 --- a/src/CPFEM2.f90 +++ b/src/CPFEM2.f90 @@ -82,7 +82,11 @@ end subroutine CPFEM_initAll !> @brief allocate the arrays defined in module CPFEM and initialize them !-------------------------------------------------------------------------------------------------- subroutine CPFEM_init - use, intrinsic :: iso_fortran_env ! to get compiler_version and compiler_options (at least for gfortran 4.6 at the moment) +#ifdef __GFORTRAN__ + use, intrinsic :: iso_fortran_env, only: & + compiler_version, & + compiler_options +#endif use prec, only: & pInt use IO, only: & diff --git a/src/DAMASK_spectral.f90 b/src/DAMASK_spectral.f90 index dfa1746b2..dc529b2e8 100644 --- a/src/DAMASK_spectral.f90 +++ b/src/DAMASK_spectral.f90 @@ -7,8 +7,11 @@ !> results !-------------------------------------------------------------------------------------------------- program DAMASK_spectral - use, intrinsic :: & - iso_fortran_env ! to get compiler_version and compiler_options (at least for gfortran >4.6 at the moment) +#ifdef __GFORTRAN__ + use, intrinsic :: iso_fortran_env, only: & + compiler_version, & + compiler_options +#endif use prec, only: & pInt, & pLongInt, & diff --git a/src/FEsolving.f90 b/src/FEsolving.f90 index 8e09a1524..5fdb2ebf8 100644 --- a/src/FEsolving.f90 +++ b/src/FEsolving.f90 @@ -43,7 +43,11 @@ contains !> solver the information is provided by the interface module !-------------------------------------------------------------------------------------------------- subroutine FE_init - use, intrinsic :: iso_fortran_env ! to get compiler_version and compiler_options (at least for gfortran 4.6 at the moment) +#ifdef __GFORTRAN__ + use, intrinsic :: iso_fortran_env, only: & + compiler_version, & + compiler_options +#endif use debug, only: & debug_level, & debug_FEsolving, & diff --git a/src/IO.f90 b/src/IO.f90 index 08e0f9422..224fad8c4 100644 --- a/src/IO.f90 +++ b/src/IO.f90 @@ -81,7 +81,11 @@ contains !> @brief only outputs revision number !-------------------------------------------------------------------------------------------------- subroutine IO_init - use, intrinsic :: iso_fortran_env ! to get compiler_version and compiler_options (at least for gfortran 4.6 at the moment) +#ifdef __GFORTRAN__ + use, intrinsic :: iso_fortran_env, only: & + compiler_version, & + compiler_options +#endif implicit none diff --git a/src/constitutive.f90 b/src/constitutive.f90 index de8f61c2a..ec9c7fdef 100644 --- a/src/constitutive.f90 +++ b/src/constitutive.f90 @@ -37,7 +37,11 @@ contains !> @brief allocates arrays pointing to array of the various constitutive modules !-------------------------------------------------------------------------------------------------- subroutine constitutive_init() - use, intrinsic :: iso_fortran_env ! to get compiler_version and compiler_options (at least for gfortran 4.6 at the moment) +#ifdef __GFORTRAN__ + use, intrinsic :: iso_fortran_env, only: & + compiler_version, & + compiler_options +#endif use prec, only: & pReal use debug, only: & diff --git a/src/crystallite.f90 b/src/crystallite.f90 index 6f0ade021..c1af4424b 100644 --- a/src/crystallite.f90 +++ b/src/crystallite.f90 @@ -137,7 +137,11 @@ contains !> @brief allocates and initialize per grain variables !-------------------------------------------------------------------------------------------------- subroutine crystallite_init - use, intrinsic :: iso_fortran_env ! to get compiler_version and compiler_options (at least for gfortran 4.6 at the moment) +#ifdef __GFORTRAN__ + use, intrinsic :: iso_fortran_env, only: & + compiler_version, & + compiler_options +#endif use debug, only: & debug_info, & debug_reset, & diff --git a/src/damage_local.f90 b/src/damage_local.f90 index b604c2be4..a24f0b1a5 100644 --- a/src/damage_local.f90 +++ b/src/damage_local.f90 @@ -41,7 +41,11 @@ contains !> @brief allocates all neccessary fields, reads information from material configuration file !-------------------------------------------------------------------------------------------------- subroutine damage_local_init(fileUnit) - use, intrinsic :: iso_fortran_env ! to get compiler_version and compiler_options (at least for gfortran 4.6 at the moment) +#ifdef __GFORTRAN__ + use, intrinsic :: iso_fortran_env, only: & + compiler_version, & + compiler_options +#endif use IO, only: & IO_read, & IO_lc, & diff --git a/src/damage_none.f90 b/src/damage_none.f90 index a9ecfb5de..746de340c 100644 --- a/src/damage_none.f90 +++ b/src/damage_none.f90 @@ -16,7 +16,11 @@ contains !> @brief allocates all neccessary fields, reads information from material configuration file !-------------------------------------------------------------------------------------------------- subroutine damage_none_init() - use, intrinsic :: iso_fortran_env ! to get compiler_version and compiler_options (at least for gfortran 4.6 at the moment) +#ifdef __GFORTRAN__ + use, intrinsic :: iso_fortran_env, only: & + compiler_version, & + compiler_options +#endif use prec, only: & pInt use IO, only: & diff --git a/src/damage_nonlocal.f90 b/src/damage_nonlocal.f90 index 65d012705..fb960ed7f 100644 --- a/src/damage_nonlocal.f90 +++ b/src/damage_nonlocal.f90 @@ -46,7 +46,11 @@ contains !> @details reads in material parameters, allocates arrays, and does sanity checks !-------------------------------------------------------------------------------------------------- subroutine damage_nonlocal_init(fileUnit) - use, intrinsic :: iso_fortran_env ! to get compiler_version and compiler_options (at least for gfortran 4.6 at the moment) +#ifdef __GFORTRAN__ + use, intrinsic :: iso_fortran_env, only: & + compiler_version, & + compiler_options +#endif use IO, only: & IO_read, & IO_lc, & diff --git a/src/debug.f90 b/src/debug.f90 index 03a0d6f08..396454c19 100644 --- a/src/debug.f90 +++ b/src/debug.f90 @@ -102,7 +102,11 @@ contains !> @brief reads in parameters from debug.config and allocates arrays !-------------------------------------------------------------------------------------------------- subroutine debug_init - use, intrinsic :: iso_fortran_env ! to get compiler_version and compiler_options (at least for gfortran 4.6 at the moment) +#ifdef __GFORTRAN__ + use, intrinsic :: iso_fortran_env, only: & + compiler_version, & + compiler_options +#endif use numerics, only: & nStress, & nState, & diff --git a/src/homogenization.f90 b/src/homogenization.f90 index 93fe50631..504f68e8c 100644 --- a/src/homogenization.f90 +++ b/src/homogenization.f90 @@ -71,7 +71,11 @@ contains !> @brief module initialization !-------------------------------------------------------------------------------------------------- subroutine homogenization_init - use, intrinsic :: iso_fortran_env ! to get compiler_version and compiler_options (at least for gfortran 4.6 at the moment) +#ifdef __GFORTRAN__ + use, intrinsic :: iso_fortran_env, only: & + compiler_version, & + compiler_options +#endif use math, only: & math_I3 use debug, only: & diff --git a/src/homogenization_RGC.f90 b/src/homogenization_RGC.f90 index ef293fc22..43c16a39d 100644 --- a/src/homogenization_RGC.f90 +++ b/src/homogenization_RGC.f90 @@ -72,7 +72,11 @@ contains !> @brief allocates all neccessary fields, reads information from material configuration file !-------------------------------------------------------------------------------------------------- subroutine homogenization_RGC_init(fileUnit) - use, intrinsic :: iso_fortran_env ! to get compiler_version and compiler_options (at least for gfortran 4.6 at the moment) +#ifdef __GFORTRAN__ + use, intrinsic :: iso_fortran_env, only: & + compiler_version, & + compiler_options +#endif use prec, only: & pReal, & pInt diff --git a/src/homogenization_isostrain.f90 b/src/homogenization_isostrain.f90 index b12e30ab3..aeb77c275 100644 --- a/src/homogenization_isostrain.f90 +++ b/src/homogenization_isostrain.f90 @@ -49,7 +49,11 @@ contains !> @brief allocates all neccessary fields, reads information from material configuration file !-------------------------------------------------------------------------------------------------- subroutine homogenization_isostrain_init(fileUnit) - use, intrinsic :: iso_fortran_env ! to get compiler_version and compiler_options (at least for gfortran 4.6 at the moment) +#ifdef __GFORTRAN__ + use, intrinsic :: iso_fortran_env, only: & + compiler_version, & + compiler_options +#endif use prec, only: & pReal use debug, only: & diff --git a/src/homogenization_none.f90 b/src/homogenization_none.f90 index 7f9518e90..11bed7813 100644 --- a/src/homogenization_none.f90 +++ b/src/homogenization_none.f90 @@ -18,7 +18,11 @@ contains !> @brief allocates all neccessary fields, reads information from material configuration file !-------------------------------------------------------------------------------------------------- subroutine homogenization_none_init() - use, intrinsic :: iso_fortran_env ! to get compiler_version and compiler_options (at least for gfortran 4.6 at the moment) +#ifdef __GFORTRAN__ + use, intrinsic :: iso_fortran_env, only: & + compiler_version, & + compiler_options +#endif use prec, only: & pReal, & pInt diff --git a/src/hydrogenflux_cahnhilliard.f90 b/src/hydrogenflux_cahnhilliard.f90 index 35168da2d..db08bf5d8 100644 --- a/src/hydrogenflux_cahnhilliard.f90 +++ b/src/hydrogenflux_cahnhilliard.f90 @@ -51,7 +51,11 @@ contains !> @details reads in material parameters, allocates arrays, and does sanity checks !-------------------------------------------------------------------------------------------------- subroutine hydrogenflux_cahnhilliard_init(fileUnit) - use, intrinsic :: iso_fortran_env ! to get compiler_version and compiler_options (at least for gfortran 4.6 at the moment) +#ifdef __GFORTRAN__ + use, intrinsic :: iso_fortran_env, only: & + compiler_version, & + compiler_options +#endif use IO, only: & IO_read, & IO_lc, & diff --git a/src/hydrogenflux_isoconc.f90 b/src/hydrogenflux_isoconc.f90 index b4bcfb5e3..df5c01e68 100644 --- a/src/hydrogenflux_isoconc.f90 +++ b/src/hydrogenflux_isoconc.f90 @@ -16,7 +16,11 @@ contains !> @brief allocates all neccessary fields, reads information from material configuration file !-------------------------------------------------------------------------------------------------- subroutine hydrogenflux_isoconc_init() - use, intrinsic :: iso_fortran_env ! to get compiler_version and compiler_options (at least for gfortran 4.6 at the moment) +#ifdef __GFORTRAN__ + use, intrinsic :: iso_fortran_env, only: & + compiler_version, & + compiler_options +#endif use prec, only: & pReal, & pInt diff --git a/src/kinematics_cleavage_opening.f90 b/src/kinematics_cleavage_opening.f90 index 8ac1a5646..146918f5c 100644 --- a/src/kinematics_cleavage_opening.f90 +++ b/src/kinematics_cleavage_opening.f90 @@ -51,7 +51,11 @@ contains !> @details reads in material parameters, allocates arrays, and does sanity checks !-------------------------------------------------------------------------------------------------- subroutine kinematics_cleavage_opening_init(fileUnit) - use, intrinsic :: iso_fortran_env ! to get compiler_version and compiler_options (at least for gfortran 4.6 at the moment) +#ifdef __GFORTRAN__ + use, intrinsic :: iso_fortran_env, only: & + compiler_version, & + compiler_options +#endif use debug, only: & debug_level,& debug_constitutive,& diff --git a/src/kinematics_hydrogen_strain.f90 b/src/kinematics_hydrogen_strain.f90 index 7a33d1a5f..c3af7e2a2 100644 --- a/src/kinematics_hydrogen_strain.f90 +++ b/src/kinematics_hydrogen_strain.f90 @@ -41,7 +41,11 @@ contains !> @details reads in material parameters, allocates arrays, and does sanity checks !-------------------------------------------------------------------------------------------------- subroutine kinematics_hydrogen_strain_init(fileUnit) - use, intrinsic :: iso_fortran_env ! to get compiler_version and compiler_options (at least for gfortran 4.6 at the moment) +#ifdef __GFORTRAN__ + use, intrinsic :: iso_fortran_env, only: & + compiler_version, & + compiler_options +#endif use debug, only: & debug_level,& debug_constitutive,& diff --git a/src/kinematics_slipplane_opening.f90 b/src/kinematics_slipplane_opening.f90 index 60487e5b4..f32efa929 100644 --- a/src/kinematics_slipplane_opening.f90 +++ b/src/kinematics_slipplane_opening.f90 @@ -51,7 +51,11 @@ contains !> @details reads in material parameters, allocates arrays, and does sanity checks !-------------------------------------------------------------------------------------------------- subroutine kinematics_slipplane_opening_init(fileUnit) - use, intrinsic :: iso_fortran_env ! to get compiler_version and compiler_options (at least for gfortran 4.6 at the moment) +#ifdef __GFORTRAN__ + use, intrinsic :: iso_fortran_env, only: & + compiler_version, & + compiler_options +#endif use debug, only: & debug_level,& debug_constitutive,& diff --git a/src/kinematics_thermal_expansion.f90 b/src/kinematics_thermal_expansion.f90 index 572fd91af..30c267d34 100644 --- a/src/kinematics_thermal_expansion.f90 +++ b/src/kinematics_thermal_expansion.f90 @@ -41,7 +41,11 @@ contains !> @details reads in material parameters, allocates arrays, and does sanity checks !-------------------------------------------------------------------------------------------------- subroutine kinematics_thermal_expansion_init(fileUnit) - use, intrinsic :: iso_fortran_env ! to get compiler_version and compiler_options (at least for gfortran 4.6 at the moment) +#ifdef __GFORTRAN__ + use, intrinsic :: iso_fortran_env, only: & + compiler_version, & + compiler_options +#endif use debug, only: & debug_level,& debug_constitutive,& diff --git a/src/kinematics_vacancy_strain.f90 b/src/kinematics_vacancy_strain.f90 index 704de7d1f..791c0e3c1 100644 --- a/src/kinematics_vacancy_strain.f90 +++ b/src/kinematics_vacancy_strain.f90 @@ -41,7 +41,11 @@ contains !> @details reads in material parameters, allocates arrays, and does sanity checks !-------------------------------------------------------------------------------------------------- subroutine kinematics_vacancy_strain_init(fileUnit) - use, intrinsic :: iso_fortran_env ! to get compiler_version and compiler_options (at least for gfortran 4.6 at the moment) +#ifdef __GFORTRAN__ + use, intrinsic :: iso_fortran_env, only: & + compiler_version, & + compiler_options +#endif use debug, only: & debug_level,& debug_constitutive,& diff --git a/src/lattice.f90 b/src/lattice.f90 index a970ed85a..328d65380 100644 --- a/src/lattice.f90 +++ b/src/lattice.f90 @@ -1243,7 +1243,11 @@ contains !> @brief Module initialization !-------------------------------------------------------------------------------------------------- subroutine lattice_init - use, intrinsic :: iso_fortran_env ! to get compiler_version and compiler_options (at least for gfortran 4.6 at the moment) +#ifdef __GFORTRAN__ + use, intrinsic :: iso_fortran_env, only: & + compiler_version, & + compiler_options +#endif use IO, only: & IO_open_file,& IO_open_jobFile_stat, & diff --git a/src/material.f90 b/src/material.f90 index a77c4871a..587958f16 100644 --- a/src/material.f90 +++ b/src/material.f90 @@ -367,7 +367,11 @@ contains !> material.config !-------------------------------------------------------------------------------------------------- subroutine material_init() - use, intrinsic :: iso_fortran_env ! to get compiler_version and compiler_options (at least for gfortran 4.6 at the moment) +#ifdef __GFORTRAN__ + use, intrinsic :: iso_fortran_env, only: & + compiler_version, & + compiler_options +#endif use IO, only: & IO_error, & IO_open_file, & diff --git a/src/math.f90 b/src/math.f90 index 82da6dfb2..0813ecc0d 100644 --- a/src/math.f90 +++ b/src/math.f90 @@ -172,7 +172,11 @@ contains !-------------------------------------------------------------------------------------------------- subroutine math_init - use, intrinsic :: iso_fortran_env ! to get compiler_version and compiler_options (at least for gfortran 4.6 at the moment) +#ifdef __GFORTRAN__ + use, intrinsic :: iso_fortran_env, only: & + compiler_version, & + compiler_options +#endif use numerics, only: fixedSeed use IO, only: IO_timeStamp diff --git a/src/mesh.f90 b/src/mesh.f90 index 75e6886fe..87160f2c7 100644 --- a/src/mesh.f90 +++ b/src/mesh.f90 @@ -472,7 +472,11 @@ contains !! Order and routines strongly depend on type of solver !-------------------------------------------------------------------------------------------------- subroutine mesh_init(ip,el) - use, intrinsic :: iso_fortran_env ! to get compiler_version and compiler_options (at least for gfortran 4.6 at the moment) +#ifdef __GFORTRAN__ + use, intrinsic :: iso_fortran_env, only: & + compiler_version, & + compiler_options +#endif use DAMASK_interface use IO, only: & #ifdef Abaqus diff --git a/src/numerics.f90 b/src/numerics.f90 index db7bf0fe4..2085e221e 100644 --- a/src/numerics.f90 +++ b/src/numerics.f90 @@ -198,7 +198,11 @@ contains ! a sanity check !-------------------------------------------------------------------------------------------------- subroutine numerics_init - use, intrinsic :: iso_fortran_env ! to get compiler_version and compiler_options (at least for gfortran 4.6 at the moment) +#ifdef __GFORTRAN__ + use, intrinsic :: iso_fortran_env, only: & + compiler_version, & + compiler_options +#endif use IO, only: & IO_read, & IO_error, & diff --git a/src/plastic_disloUCLA.f90 b/src/plastic_disloUCLA.f90 index 62d09186f..75e087770 100644 --- a/src/plastic_disloUCLA.f90 +++ b/src/plastic_disloUCLA.f90 @@ -119,7 +119,11 @@ contains !> @details reads in material parameters, allocates arrays, and does sanity checks !-------------------------------------------------------------------------------------------------- subroutine plastic_disloUCLA_init(fileUnit) - use, intrinsic :: iso_fortran_env ! to get compiler_version and compiler_options (at least for gfortran 4.6 at the moment) +#ifdef __GFORTRAN__ + use, intrinsic :: iso_fortran_env, only: & + compiler_version, & + compiler_options +#endif use debug, only: & debug_level,& debug_constitutive,& diff --git a/src/plastic_dislotwin.f90 b/src/plastic_dislotwin.f90 index 43fe0c6d8..50b14bdf9 100644 --- a/src/plastic_dislotwin.f90 +++ b/src/plastic_dislotwin.f90 @@ -198,7 +198,11 @@ contains !> @details reads in material parameters, allocates arrays, and does sanity checks !-------------------------------------------------------------------------------------------------- subroutine plastic_dislotwin_init(fileUnit) - use, intrinsic :: iso_fortran_env ! to get compiler_version and compiler_options (at least for gfortran 4.6 at the moment) +#ifdef __GFORTRAN__ + use, intrinsic :: iso_fortran_env, only: & + compiler_version, & + compiler_options +#endif use prec, only: & dEq0, & dNeq0, & diff --git a/src/plastic_isotropic.f90 b/src/plastic_isotropic.f90 index 54cb241c2..14c282f9a 100644 --- a/src/plastic_isotropic.f90 +++ b/src/plastic_isotropic.f90 @@ -90,7 +90,11 @@ contains !> @details reads in material parameters, allocates arrays, and does sanity checks !-------------------------------------------------------------------------------------------------- subroutine plastic_isotropic_init(fileUnit) - use, intrinsic :: iso_fortran_env ! to get compiler_version and compiler_options (at least for gfortran 4.6 at the moment) +#ifdef __GFORTRAN__ + use, intrinsic :: iso_fortran_env, only: & + compiler_version, & + compiler_options +#endif use debug, only: & debug_level, & debug_constitutive, & diff --git a/src/plastic_none.f90 b/src/plastic_none.f90 index 7a7589774..839a4fa9f 100644 --- a/src/plastic_none.f90 +++ b/src/plastic_none.f90 @@ -26,7 +26,11 @@ contains !> @details reads in material parameters, allocates arrays, and does sanity checks !-------------------------------------------------------------------------------------------------- subroutine plastic_none_init - use, intrinsic :: iso_fortran_env ! to get compiler_version and compiler_options (at least for gfortran 4.6 at the moment) +#ifdef __GFORTRAN__ + use, intrinsic :: iso_fortran_env, only: & + compiler_version, & + compiler_options +#endif use debug, only: & debug_level, & debug_constitutive, & diff --git a/src/plastic_phenoplus.f90 b/src/plastic_phenoplus.f90 index 105a64b34..e0e5ed1b5 100644 --- a/src/plastic_phenoplus.f90 +++ b/src/plastic_phenoplus.f90 @@ -111,7 +111,11 @@ contains !> @details reads in material parameters, allocates arrays, and does sanity checks !-------------------------------------------------------------------------------------------------- subroutine plastic_phenoplus_init(fileUnit) - use, intrinsic :: iso_fortran_env ! to get compiler_version and compiler_options (at least for gfortran 4.6 at the moment) +#ifdef __GFORTRAN__ + use, intrinsic :: iso_fortran_env, only: & + compiler_version, & + compiler_options +#endif use prec, only: & dEq0 use debug, only: & diff --git a/src/plastic_phenopowerlaw.f90 b/src/plastic_phenopowerlaw.f90 index a7c7b10e6..55d31fa9b 100644 --- a/src/plastic_phenopowerlaw.f90 +++ b/src/plastic_phenopowerlaw.f90 @@ -123,7 +123,11 @@ contains !> @details reads in material parameters, allocates arrays, and does sanity checks !-------------------------------------------------------------------------------------------------- subroutine plastic_phenopowerlaw_init(fileUnit) - use, intrinsic :: iso_fortran_env ! to get compiler_version and compiler_options (at least for gfortran 4.6 at the moment) +#ifdef __GFORTRAN__ + use, intrinsic :: iso_fortran_env, only: & + compiler_version, & + compiler_options +#endif use prec, only: & dEq0 use debug, only: & diff --git a/src/plastic_titanmod.f90 b/src/plastic_titanmod.f90 index ac80af82b..169e3e4b5 100644 --- a/src/plastic_titanmod.f90 +++ b/src/plastic_titanmod.f90 @@ -184,7 +184,11 @@ module plastic_titanmod !> @details reads in material parameters, allocates arrays, and does sanity checks !-------------------------------------------------------------------------------------------------- subroutine plastic_titanmod_init(fileUnit) - use, intrinsic :: iso_fortran_env ! to get compiler_version and compiler_options (at least for gfortran 4.6 at the moment) +#ifdef __GFORTRAN__ + use, intrinsic :: iso_fortran_env, only: & + compiler_version, & + compiler_options +#endif use debug, only: & debug_level,& debug_constitutive,& diff --git a/src/porosity_none.f90 b/src/porosity_none.f90 index 1e6ea9dc9..2bca99384 100644 --- a/src/porosity_none.f90 +++ b/src/porosity_none.f90 @@ -16,7 +16,11 @@ contains !> @brief allocates all neccessary fields, reads information from material configuration file !-------------------------------------------------------------------------------------------------- subroutine porosity_none_init() - use, intrinsic :: iso_fortran_env ! to get compiler_version and compiler_options (at least for gfortran 4.6 at the moment) +#ifdef __GFORTRAN__ + use, intrinsic :: iso_fortran_env, only: & + compiler_version, & + compiler_options +#endif use prec, only: & pReal, & pInt diff --git a/src/porosity_phasefield.f90 b/src/porosity_phasefield.f90 index b41ae2756..3f1c853a4 100644 --- a/src/porosity_phasefield.f90 +++ b/src/porosity_phasefield.f90 @@ -48,7 +48,11 @@ contains !> @details reads in material parameters, allocates arrays, and does sanity checks !-------------------------------------------------------------------------------------------------- subroutine porosity_phasefield_init(fileUnit) - use, intrinsic :: iso_fortran_env ! to get compiler_version and compiler_options (at least for gfortran 4.6 at the moment) +#ifdef __GFORTRAN__ + use, intrinsic :: iso_fortran_env, only: & + compiler_version, & + compiler_options +#endif use IO, only: & IO_read, & IO_lc, & diff --git a/src/prec.f90 b/src/prec.f90 index c130ba007..0e3b276db 100644 --- a/src/prec.f90 +++ b/src/prec.f90 @@ -111,8 +111,11 @@ contains !> @brief reporting precision !-------------------------------------------------------------------------------------------------- subroutine prec_init - use, intrinsic :: & - iso_fortran_env ! to get compiler_version and compiler_options (at least for gfortran 4.6 at the moment) +#ifdef __GFORTRAN__ + use, intrinsic :: iso_fortran_env, only: & + compiler_version, & + compiler_options +#endif implicit none external :: & diff --git a/src/source_damage_anisoBrittle.f90 b/src/source_damage_anisoBrittle.f90 index 53cc411af..cad6bf1e4 100644 --- a/src/source_damage_anisoBrittle.f90 +++ b/src/source_damage_anisoBrittle.f90 @@ -63,7 +63,11 @@ contains !> @details reads in material parameters, allocates arrays, and does sanity checks !-------------------------------------------------------------------------------------------------- subroutine source_damage_anisoBrittle_init(fileUnit) - use, intrinsic :: iso_fortran_env ! to get compiler_version and compiler_options (at least for gfortran 4.6 at the moment) +#ifdef __GFORTRAN__ + use, intrinsic :: iso_fortran_env, only: & + compiler_version, & + compiler_options +#endif use debug, only: & debug_level,& debug_constitutive,& diff --git a/src/source_damage_anisoDuctile.f90 b/src/source_damage_anisoDuctile.f90 index 1a79e3b34..959e62e26 100644 --- a/src/source_damage_anisoDuctile.f90 +++ b/src/source_damage_anisoDuctile.f90 @@ -67,7 +67,11 @@ contains !> @details reads in material parameters, allocates arrays, and does sanity checks !-------------------------------------------------------------------------------------------------- subroutine source_damage_anisoDuctile_init(fileUnit) - use, intrinsic :: iso_fortran_env ! to get compiler_version and compiler_options (at least for gfortran 4.6 at the moment) +#ifdef __GFORTRAN__ + use, intrinsic :: iso_fortran_env, only: & + compiler_version, & + compiler_options +#endif use debug, only: & debug_level,& debug_constitutive,& diff --git a/src/source_damage_isoBrittle.f90 b/src/source_damage_isoBrittle.f90 index 18194618e..bd1026765 100644 --- a/src/source_damage_isoBrittle.f90 +++ b/src/source_damage_isoBrittle.f90 @@ -53,7 +53,11 @@ contains !> @details reads in material parameters, allocates arrays, and does sanity checks !-------------------------------------------------------------------------------------------------- subroutine source_damage_isoBrittle_init(fileUnit) - use, intrinsic :: iso_fortran_env ! to get compiler_version and compiler_options (at least for gfortran 4.6 at the moment) +#ifdef __GFORTRAN__ + use, intrinsic :: iso_fortran_env, only: & + compiler_version, & + compiler_options +#endif use debug, only: & debug_level,& debug_constitutive,& diff --git a/src/source_damage_isoDuctile.f90 b/src/source_damage_isoDuctile.f90 index f30f9a72e..5d7e4f862 100644 --- a/src/source_damage_isoDuctile.f90 +++ b/src/source_damage_isoDuctile.f90 @@ -53,7 +53,11 @@ contains !> @details reads in material parameters, allocates arrays, and does sanity checks !-------------------------------------------------------------------------------------------------- subroutine source_damage_isoDuctile_init(fileUnit) - use, intrinsic :: iso_fortran_env ! to get compiler_version and compiler_options (at least for gfortran 4.6 at the moment) +#ifdef __GFORTRAN__ + use, intrinsic :: iso_fortran_env, only: & + compiler_version, & + compiler_options +#endif use debug, only: & debug_level,& debug_constitutive,& diff --git a/src/source_thermal_dissipation.f90 b/src/source_thermal_dissipation.f90 index d649549ad..99c41f062 100644 --- a/src/source_thermal_dissipation.f90 +++ b/src/source_thermal_dissipation.f90 @@ -39,7 +39,11 @@ contains !> @details reads in material parameters, allocates arrays, and does sanity checks !-------------------------------------------------------------------------------------------------- subroutine source_thermal_dissipation_init(fileUnit) - use, intrinsic :: iso_fortran_env ! to get compiler_version and compiler_options (at least for gfortran 4.6 at the moment) +#ifdef __GFORTRAN__ + use, intrinsic :: iso_fortran_env, only: & + compiler_version, & + compiler_options +#endif use debug, only: & debug_level,& debug_constitutive,& diff --git a/src/source_thermal_externalheat.f90 b/src/source_thermal_externalheat.f90 index 60aaebe42..6b015689a 100644 --- a/src/source_thermal_externalheat.f90 +++ b/src/source_thermal_externalheat.f90 @@ -45,7 +45,11 @@ contains !> @details reads in material parameters, allocates arrays, and does sanity checks !-------------------------------------------------------------------------------------------------- subroutine source_thermal_externalheat_init(fileUnit) - use, intrinsic :: iso_fortran_env ! to get compiler_version and compiler_options (at least for gfortran 4.6 at the moment) +#ifdef __GFORTRAN__ + use, intrinsic :: iso_fortran_env, only: & + compiler_version, & + compiler_options +#endif use debug, only: & debug_level,& debug_constitutive,& diff --git a/src/source_vacancy_irradiation.f90 b/src/source_vacancy_irradiation.f90 index 986c229ff..8f24b39be 100644 --- a/src/source_vacancy_irradiation.f90 +++ b/src/source_vacancy_irradiation.f90 @@ -41,7 +41,11 @@ contains !> @details reads in material parameters, allocates arrays, and does sanity checks !-------------------------------------------------------------------------------------------------- subroutine source_vacancy_irradiation_init(fileUnit) - use, intrinsic :: iso_fortran_env ! to get compiler_version and compiler_options (at least for gfortran 4.6 at the moment) +#ifdef __GFORTRAN__ + use, intrinsic :: iso_fortran_env, only: & + compiler_version, & + compiler_options +#endif use debug, only: & debug_level,& debug_constitutive,& diff --git a/src/source_vacancy_phenoplasticity.f90 b/src/source_vacancy_phenoplasticity.f90 index 924490637..26c3ae828 100644 --- a/src/source_vacancy_phenoplasticity.f90 +++ b/src/source_vacancy_phenoplasticity.f90 @@ -39,7 +39,11 @@ contains !> @details reads in material parameters, allocates arrays, and does sanity checks !-------------------------------------------------------------------------------------------------- subroutine source_vacancy_phenoplasticity_init(fileUnit) - use, intrinsic :: iso_fortran_env ! to get compiler_version and compiler_options (at least for gfortran 4.6 at the moment) +#ifdef __GFORTRAN__ + use, intrinsic :: iso_fortran_env, only: & + compiler_version, & + compiler_options +#endif use debug, only: & debug_level,& debug_constitutive,& diff --git a/src/source_vacancy_thermalfluc.f90 b/src/source_vacancy_thermalfluc.f90 index b835e8bce..e5d3b0574 100644 --- a/src/source_vacancy_thermalfluc.f90 +++ b/src/source_vacancy_thermalfluc.f90 @@ -41,7 +41,11 @@ contains !> @details reads in material parameters, allocates arrays, and does sanity checks !-------------------------------------------------------------------------------------------------- subroutine source_vacancy_thermalfluc_init(fileUnit) - use, intrinsic :: iso_fortran_env ! to get compiler_version and compiler_options (at least for gfortran 4.6 at the moment) +#ifdef __GFORTRAN__ + use, intrinsic :: iso_fortran_env, only: & + compiler_version, & + compiler_options +#endif use debug, only: & debug_level,& debug_constitutive,& diff --git a/src/spectral_damage.f90 b/src/spectral_damage.f90 index 9c259a2fb..727659870 100644 --- a/src/spectral_damage.f90 +++ b/src/spectral_damage.f90 @@ -60,7 +60,11 @@ contains !> @brief allocates all neccessary fields and fills them with data, potentially from restart info !-------------------------------------------------------------------------------------------------- subroutine spectral_damage_init() - use, intrinsic :: iso_fortran_env ! to get compiler_version and compiler_options (at least for gfortran >4.6 at the moment) +#ifdef __GFORTRAN__ + use, intrinsic :: iso_fortran_env, only: & + compiler_version, & + compiler_options +#endif use IO, only: & IO_intOut, & IO_read_realFile, & diff --git a/src/spectral_interface.f90 b/src/spectral_interface.f90 index 80a109a10..3c8489d04 100644 --- a/src/spectral_interface.f90 +++ b/src/spectral_interface.f90 @@ -42,7 +42,9 @@ contains !! information on computation to screen !-------------------------------------------------------------------------------------------------- subroutine DAMASK_interface_init() - use, intrinsic :: iso_fortran_env ! to get compiler_version and compiler_options (at least for gfortran 4.6 at the moment) + use, intrinsic :: & + iso_fortran_env + use system_routines, only: & getHostName diff --git a/src/spectral_mech_AL.f90 b/src/spectral_mech_AL.f90 index 951ab2521..6d0fff286 100644 --- a/src/spectral_mech_AL.f90 +++ b/src/spectral_mech_AL.f90 @@ -84,7 +84,11 @@ contains !> @todo use sourced allocation, e.g. allocate(Fdot,source = F_lastInc) !-------------------------------------------------------------------------------------------------- subroutine AL_init - use, intrinsic :: iso_fortran_env ! to get compiler_version and compiler_options (at least for gfortran >4.6 at the moment) +#ifdef __GFORTRAN__ + use, intrinsic :: iso_fortran_env, only: & + compiler_version, & + compiler_options +#endif use IO, only: & IO_intOut, & IO_read_realFile, & diff --git a/src/spectral_mech_Basic.f90 b/src/spectral_mech_Basic.f90 index e20ed6761..cfb727129 100644 --- a/src/spectral_mech_Basic.f90 +++ b/src/spectral_mech_Basic.f90 @@ -72,7 +72,11 @@ contains !> @brief allocates all neccessary fields and fills them with data, potentially from restart info !-------------------------------------------------------------------------------------------------- subroutine basicPETSc_init - use, intrinsic :: iso_fortran_env ! to get compiler_version and compiler_options (at least for gfortran >4.6 at the moment) +#ifdef __GFORTRAN__ + use, intrinsic :: iso_fortran_env, only: & + compiler_version, & + compiler_options +#endif use IO, only: & IO_intOut, & IO_read_realFile, & diff --git a/src/spectral_mech_Polarisation.f90 b/src/spectral_mech_Polarisation.f90 index ed44793bb..ecf707d46 100644 --- a/src/spectral_mech_Polarisation.f90 +++ b/src/spectral_mech_Polarisation.f90 @@ -84,7 +84,11 @@ contains !> @todo use sourced allocation, e.g. allocate(Fdot,source = F_lastInc) !-------------------------------------------------------------------------------------------------- subroutine Polarisation_init - use, intrinsic :: iso_fortran_env ! to get compiler_version and compiler_options (at least for gfortran >4.6 at the moment) +#ifdef __GFORTRAN__ + use, intrinsic :: iso_fortran_env, only: & + compiler_version, & + compiler_options +#endif use IO, only: & IO_intOut, & IO_read_realFile, & diff --git a/src/spectral_thermal.f90 b/src/spectral_thermal.f90 index 490325ab7..322f12031 100644 --- a/src/spectral_thermal.f90 +++ b/src/spectral_thermal.f90 @@ -60,7 +60,11 @@ contains !> @brief allocates all neccessary fields and fills them with data, potentially from restart info !-------------------------------------------------------------------------------------------------- subroutine spectral_thermal_init - use, intrinsic :: iso_fortran_env ! to get compiler_version and compiler_options (at least for gfortran >4.6 at the moment) +#ifdef __GFORTRAN__ + use, intrinsic :: iso_fortran_env, only: & + compiler_version, & + compiler_options +#endif use IO, only: & IO_intOut, & IO_read_realFile, & diff --git a/src/spectral_utilities.f90 b/src/spectral_utilities.f90 index 0773a9065..1ad251747 100644 --- a/src/spectral_utilities.f90 +++ b/src/spectral_utilities.f90 @@ -160,7 +160,11 @@ contains !> Initializes FFTW. !-------------------------------------------------------------------------------------------------- subroutine utilities_init() - use, intrinsic :: iso_fortran_env ! to get compiler_version and compiler_options (at least for gfortran >4.6 at the moment) +#ifdef __GFORTRAN__ + use, intrinsic :: iso_fortran_env, only: & + compiler_version, & + compiler_options +#endif use IO, only: & IO_error, & IO_warning, & diff --git a/src/thermal_adiabatic.f90 b/src/thermal_adiabatic.f90 index a0626af62..7f23a81b5 100644 --- a/src/thermal_adiabatic.f90 +++ b/src/thermal_adiabatic.f90 @@ -46,7 +46,11 @@ contains !> @details reads in material parameters, allocates arrays, and does sanity checks !-------------------------------------------------------------------------------------------------- subroutine thermal_adiabatic_init(fileUnit) - use, intrinsic :: iso_fortran_env ! to get compiler_version and compiler_options (at least for gfortran 4.6 at the moment) +#ifdef __GFORTRAN__ + use, intrinsic :: iso_fortran_env, only: & + compiler_version, & + compiler_options +#endif use IO, only: & IO_read, & IO_lc, & diff --git a/src/thermal_conduction.f90 b/src/thermal_conduction.f90 index 973ae2d03..c55d1d3eb 100644 --- a/src/thermal_conduction.f90 +++ b/src/thermal_conduction.f90 @@ -47,7 +47,11 @@ contains !> @details reads in material parameters, allocates arrays, and does sanity checks !-------------------------------------------------------------------------------------------------- subroutine thermal_conduction_init(fileUnit) - use, intrinsic :: iso_fortran_env ! to get compiler_version and compiler_options (at least for gfortran 4.6 at the moment) +#ifdef __GFORTRAN__ + use, intrinsic :: iso_fortran_env, only: & + compiler_version, & + compiler_options +#endif use IO, only: & IO_read, & IO_lc, & diff --git a/src/thermal_isothermal.f90 b/src/thermal_isothermal.f90 index 30ca7562a..87e846f12 100644 --- a/src/thermal_isothermal.f90 +++ b/src/thermal_isothermal.f90 @@ -16,7 +16,11 @@ contains !> @brief allocates all neccessary fields, reads information from material configuration file !-------------------------------------------------------------------------------------------------- subroutine thermal_isothermal_init() - use, intrinsic :: iso_fortran_env ! to get compiler_version and compiler_options (at least for gfortran 4.6 at the moment) +#ifdef __GFORTRAN__ + use, intrinsic :: iso_fortran_env, only: & + compiler_version, & + compiler_options +#endif use prec, only: & pReal, & pInt diff --git a/src/vacancyflux_cahnhilliard.f90 b/src/vacancyflux_cahnhilliard.f90 index f73f66631..9f6ecd8b0 100644 --- a/src/vacancyflux_cahnhilliard.f90 +++ b/src/vacancyflux_cahnhilliard.f90 @@ -61,7 +61,11 @@ contains !> @details reads in material parameters, allocates arrays, and does sanity checks !-------------------------------------------------------------------------------------------------- subroutine vacancyflux_cahnhilliard_init(fileUnit) - use, intrinsic :: iso_fortran_env ! to get compiler_version and compiler_options (at least for gfortran 4.6 at the moment) +#ifdef __GFORTRAN__ + use, intrinsic :: iso_fortran_env, only: & + compiler_version, & + compiler_options +#endif use IO, only: & IO_read, & IO_lc, & diff --git a/src/vacancyflux_isochempot.f90 b/src/vacancyflux_isochempot.f90 index 642d5a2e0..8c256467f 100644 --- a/src/vacancyflux_isochempot.f90 +++ b/src/vacancyflux_isochempot.f90 @@ -44,7 +44,11 @@ contains !> @details reads in material parameters, allocates arrays, and does sanity checks !-------------------------------------------------------------------------------------------------- subroutine vacancyflux_isochempot_init(fileUnit) - use, intrinsic :: iso_fortran_env ! to get compiler_version and compiler_options (at least for gfortran 4.6 at the moment) +#ifdef __GFORTRAN__ + use, intrinsic :: iso_fortran_env, only: & + compiler_version, & + compiler_options +#endif use IO, only: & IO_read, & IO_lc, & diff --git a/src/vacancyflux_isoconc.f90 b/src/vacancyflux_isoconc.f90 index e4c20b246..ad7842e3f 100644 --- a/src/vacancyflux_isoconc.f90 +++ b/src/vacancyflux_isoconc.f90 @@ -16,7 +16,11 @@ contains !> @brief allocates all neccessary fields, reads information from material configuration file !-------------------------------------------------------------------------------------------------- subroutine vacancyflux_isoconc_init() - use, intrinsic :: iso_fortran_env ! to get compiler_version and compiler_options (at least for gfortran 4.6 at the moment) +#ifdef __GFORTRAN__ + use, intrinsic :: iso_fortran_env, only: & + compiler_version, & + compiler_options +#endif use prec, only: & pReal, & pInt