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
|
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
|
||||||
|
|
|
@ -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
|
||||||
|
|
|
@ -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
|
||||||
|
|
Loading…
Reference in New Issue