only MPI_f08 is standard conforming

This commit is contained in:
Martin Diehl 2022-06-21 23:11:22 +02:00
parent b8c3d75700
commit 2f1904efec
15 changed files with 64 additions and 0 deletions

View File

@ -18,7 +18,11 @@ module HDF5_utilities
use prec use prec
use parallelization use parallelization
#if (PETSC_VERSION_MAJOR==3 && PETSC_VERSION_MINOR>14) && !defined(PETSC_HAVE_MPI_F90MODULE_VISIBILITY)
implicit none(type,external) implicit none(type,external)
#else
implicit none
#endif
private private
!-------------------------------------------------------------------------------------------------- !--------------------------------------------------------------------------------------------------

View File

@ -30,7 +30,11 @@ program DAMASK_grid
use grid_thermal_spectral use grid_thermal_spectral
use results use results
#if (PETSC_VERSION_MAJOR==3 && PETSC_VERSION_MINOR>14) && !defined(PETSC_HAVE_MPI_F90MODULE_VISIBILITY)
implicit none(type,external) implicit none(type,external)
#else
implicit none
#endif
type :: tLoadCase type :: tLoadCase
type(tRotation) :: rot !< rotation of BC type(tRotation) :: rot !< rotation of BC

View File

@ -23,7 +23,11 @@ module discretization_grid
use discretization use discretization
use geometry_plastic_nonlocal use geometry_plastic_nonlocal
#if (PETSC_VERSION_MAJOR==3 && PETSC_VERSION_MINOR>14) && !defined(PETSC_HAVE_MPI_F90MODULE_VISIBILITY)
implicit none(type,external) implicit none(type,external)
#else
implicit none
#endif
private private
integer, dimension(3), public, protected :: & integer, dimension(3), public, protected :: &

View File

@ -22,7 +22,11 @@ module grid_damage_spectral
use YAML_types use YAML_types
use config use config
#if (PETSC_VERSION_MAJOR==3 && PETSC_VERSION_MINOR>14) && !defined(PETSC_HAVE_MPI_F90MODULE_VISIBILITY)
implicit none(type,external) implicit none(type,external)
#else
implicit none
#endif
private private
type :: tNumerics type :: tNumerics

View File

@ -27,7 +27,12 @@ module grid_mechanical_FEM
use discretization use discretization
use discretization_grid use discretization_grid
#if (PETSC_VERSION_MAJOR==3 && PETSC_VERSION_MINOR>14) && !defined(PETSC_HAVE_MPI_F90MODULE_VISIBILITY)
implicit none(type,external) implicit none(type,external)
#else
implicit none
#endif
private private
type(tSolutionParams) :: params type(tSolutionParams) :: params

View File

@ -26,7 +26,11 @@ module grid_mechanical_spectral_basic
use homogenization use homogenization
use discretization_grid use discretization_grid
#if (PETSC_VERSION_MAJOR==3 && PETSC_VERSION_MINOR>14) && !defined(PETSC_HAVE_MPI_F90MODULE_VISIBILITY)
implicit none(type,external) implicit none(type,external)
#else
implicit none
#endif
private private
type(tSolutionParams) :: params type(tSolutionParams) :: params

View File

@ -26,7 +26,11 @@ module grid_mechanical_spectral_polarisation
use homogenization use homogenization
use discretization_grid use discretization_grid
#if (PETSC_VERSION_MAJOR==3 && PETSC_VERSION_MINOR>14) && !defined(PETSC_HAVE_MPI_F90MODULE_VISIBILITY)
implicit none(type,external) implicit none(type,external)
#else
implicit none
#endif
private private
type(tSolutionParams) :: params type(tSolutionParams) :: params

View File

@ -25,7 +25,11 @@ module grid_thermal_spectral
use YAML_types use YAML_types
use config use config
#if (PETSC_VERSION_MAJOR==3 && PETSC_VERSION_MINOR>14) && !defined(PETSC_HAVE_MPI_F90MODULE_VISIBILITY)
implicit none(type,external) implicit none(type,external)
#else
implicit none
#endif
private private
type :: tNumerics type :: tNumerics

View File

@ -22,7 +22,12 @@ module spectral_utilities
use discretization use discretization
use homogenization use homogenization
#if (PETSC_VERSION_MAJOR==3 && PETSC_VERSION_MINOR>14) && !defined(PETSC_HAVE_MPI_F90MODULE_VISIBILITY)
implicit none(type,external) implicit none(type,external)
#else
implicit none
#endif
private private
!-------------------------------------------------------------------------------------------------- !--------------------------------------------------------------------------------------------------

View File

@ -21,7 +21,11 @@ module FEM_utilities
use homogenization use homogenization
use FEM_quadrature use FEM_quadrature
#if (PETSC_VERSION_MAJOR==3 && PETSC_VERSION_MINOR>14) && !defined(PETSC_HAVE_MPI_F90MODULE_VISIBILITY)
implicit none(type,external) implicit none(type,external)
#else
implicit none
#endif
private private
logical, public :: cutBack = .false. !< cut back of BVP solver in case convergence is not achieved or a material point is terminally ill logical, public :: cutBack = .false. !< cut back of BVP solver in case convergence is not achieved or a material point is terminally ill

View File

@ -25,7 +25,11 @@ module discretization_mesh
use YAML_types use YAML_types
use prec use prec
#if (PETSC_VERSION_MAJOR==3 && PETSC_VERSION_MINOR>14) && !defined(PETSC_HAVE_MPI_F90MODULE_VISIBILITY)
implicit none(type,external) implicit none(type,external)
#else
implicit none
#endif
private private
integer, public, protected :: & integer, public, protected :: &

View File

@ -26,7 +26,11 @@ module mesh_mechanical_FEM
use homogenization use homogenization
use math use math
#if (PETSC_VERSION_MAJOR==3 && PETSC_VERSION_MINOR>14) && !defined(PETSC_HAVE_MPI_F90MODULE_VISIBILITY)
implicit none(type,external) implicit none(type,external)
#else
implicit none
#endif
private private
!-------------------------------------------------------------------------------------------------- !--------------------------------------------------------------------------------------------------

View File

@ -18,7 +18,11 @@ module parallelization
use prec use prec
#if (PETSC_VERSION_MAJOR==3 && PETSC_VERSION_MINOR>14) && !defined(PETSC_HAVE_MPI_F90MODULE_VISIBILITY)
implicit none(type,external) implicit none(type,external)
#else
implicit none
#endif
private private
#ifndef PETSC #ifndef PETSC

View File

@ -12,8 +12,14 @@ subroutine quit(stop_id)
#endif #endif
use HDF5 use HDF5
#if (PETSC_VERSION_MAJOR==3 && PETSC_VERSION_MINOR>14) && !defined(PETSC_HAVE_MPI_F90MODULE_VISIBILITY)
implicit none(type,external) implicit none(type,external)
#else
implicit none
#endif
integer, intent(in) :: stop_id integer, intent(in) :: stop_id
integer, dimension(8) :: dateAndTime integer, dimension(8) :: dateAndTime
integer :: err_HDF5 integer :: err_HDF5
integer(MPI_INTEGER_KIND) :: err_MPI integer(MPI_INTEGER_KIND) :: err_MPI

View File

@ -21,7 +21,11 @@ module results
use DAMASK_interface use DAMASK_interface
#endif #endif
#if (PETSC_VERSION_MAJOR==3 && PETSC_VERSION_MINOR>14) && !defined(PETSC_HAVE_MPI_F90MODULE_VISIBILITY)
implicit none(type,external) implicit none(type,external)
#else
implicit none
#endif
private private
integer(HID_T) :: resultsFile integer(HID_T) :: resultsFile