only MPI_f08 is standard conforming

src/HDF5_utilities.f90

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

src/grid/DAMASK_grid.f90

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

src/grid/discretization_grid.f90

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

src/grid/grid_damage_spectral.f90

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

src/grid/grid_mech_FEM.f90

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

src/grid/grid_mech_spectral_basic.f90

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

src/grid/grid_mech_spectral_polarisation.f90

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

src/grid/grid_thermal_spectral.f90

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

src/grid/spectral_utilities.f90

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

src/mesh/FEM_utilities.f90

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

src/mesh/discretization_mesh.f90

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

src/mesh/mesh_mech_FEM.f90

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

src/parallelization.f90

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

src/quit.f90

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

src/results.f90

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