fixing use for new Intel Fortran

visibility of use associated entities can now be limited
This commit is contained in:
Martin Diehl 2020-11-28 06:53:06 +01:00
parent 60f9cb704f
commit 80c8c9e51e
3 changed files with 6 additions and 4 deletions

View File

@ -5,6 +5,7 @@
!-------------------------------------------------------------------------------------------------- !--------------------------------------------------------------------------------------------------
module spectral_utilities module spectral_utilities
use, intrinsic :: iso_c_binding use, intrinsic :: iso_c_binding
#include <petsc/finclude/petscsys.h> #include <petsc/finclude/petscsys.h>
use PETScSys use PETScSys
@ -14,6 +15,7 @@ module spectral_utilities
use math use math
use rotations use rotations
use IO use IO
use config
use discretization_grid use discretization_grid
use discretization use discretization
use homogenization use homogenization

View File

@ -17,8 +17,8 @@ module math
#if __INTEL_COMPILER >= 1900 #if __INTEL_COMPILER >= 1900
! do not make use associated entities available to other modules ! do not make use associated entities available to other modules
private :: & private :: &
prec, & IO, &
IO config
#endif #endif
real(pReal), parameter :: PI = acos(-1.0_pReal) !< ratio of a circle's circumference to its diameter real(pReal), parameter :: PI = acos(-1.0_pReal) !< ratio of a circle's circumference to its diameter

View File

@ -12,11 +12,11 @@ module FEM_utilities
use PETScis use PETScis
use prec use prec
use FEsolving
use homogenization
use config use config
use math use math
use IO
use discretization_mesh use discretization_mesh
use homogenization
implicit none implicit none
private private