diff --git a/src/grid/spectral_utilities.f90 b/src/grid/spectral_utilities.f90 index c7277a9d0..1e1608d7c 100644 --- a/src/grid/spectral_utilities.f90 +++ b/src/grid/spectral_utilities.f90 @@ -5,6 +5,7 @@ !-------------------------------------------------------------------------------------------------- module spectral_utilities use, intrinsic :: iso_c_binding + #include use PETScSys @@ -14,6 +15,7 @@ module spectral_utilities use math use rotations use IO + use config use discretization_grid use discretization use homogenization diff --git a/src/math.f90 b/src/math.f90 index 1fc9bd7eb..8005b5406 100644 --- a/src/math.f90 +++ b/src/math.f90 @@ -17,8 +17,8 @@ module math #if __INTEL_COMPILER >= 1900 ! do not make use associated entities available to other modules private :: & - prec, & - IO + IO, & + config #endif real(pReal), parameter :: PI = acos(-1.0_pReal) !< ratio of a circle's circumference to its diameter diff --git a/src/mesh/FEM_utilities.f90 b/src/mesh/FEM_utilities.f90 index 4c958ee2e..118735e89 100644 --- a/src/mesh/FEM_utilities.f90 +++ b/src/mesh/FEM_utilities.f90 @@ -12,11 +12,11 @@ module FEM_utilities use PETScis use prec - use FEsolving - use homogenization use config use math + use IO use discretization_mesh + use homogenization implicit none private