fixing use for new Intel Fortran
visibility of use associated entities can now be limited
This commit is contained in:
parent
60f9cb704f
commit
80c8c9e51e
|
@ -5,6 +5,7 @@
|
|||
!--------------------------------------------------------------------------------------------------
|
||||
module spectral_utilities
|
||||
use, intrinsic :: iso_c_binding
|
||||
|
||||
#include <petsc/finclude/petscsys.h>
|
||||
use PETScSys
|
||||
|
||||
|
@ -14,6 +15,7 @@ module spectral_utilities
|
|||
use math
|
||||
use rotations
|
||||
use IO
|
||||
use config
|
||||
use discretization_grid
|
||||
use discretization
|
||||
use homogenization
|
||||
|
|
|
@ -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
|
||||
|
|
|
@ -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
|
||||
|
|
Loading…
Reference in New Issue