From ac898be8885b899de7783fd22cfae1c15114035d Mon Sep 17 00:00:00 2001 From: Martin Diehl Date: Fri, 22 Sep 2023 20:24:58 +0200 Subject: [PATCH] fix issues with compilation preprocessor statement or unsupported private/public statemens for modules seem to confuse CMake --- src/math.f90 | 9 --------- src/phase.f90 | 15 --------------- 2 files changed, 24 deletions(-) diff --git a/src/math.f90 b/src/math.f90 index 24141f4e9..be66fdffb 100644 --- a/src/math.f90 +++ b/src/math.f90 @@ -30,15 +30,6 @@ module math module procedure math_expand_real end interface math_expand -#if __INTEL_COMPILER >= 1900 - ! do not make use of associated entities available to other modules - private :: & - misc, & - IO, & - config, & - parallelization -#endif - real(pREAL), parameter :: & PI = acos(-1.0_pREAL), & !< ratio of a circle's circumference to its diameter TAU = 2.0_pREAL*PI, & !< ratio of a circle's circumference to its radius diff --git a/src/phase.f90 b/src/phase.f90 index 4cc341913..ffa606cc2 100644 --- a/src/phase.f90 +++ b/src/phase.f90 @@ -353,21 +353,6 @@ module phase end interface - -#if __INTEL_COMPILER >= 1900 - public :: & - prec, & - math, & - rotations, & - IO, & - config, & - material, & - result, & - crystal, & - discretization, & - HDF5_utilities -#endif - public :: & phase_init, & phase_homogenizedC66, &