From 637f78bd52aed1be697ff0c5687b9047c7a2ea07 Mon Sep 17 00:00:00 2001 From: Martin Diehl Date: Fri, 9 Jul 2021 14:50:29 +0200 Subject: [PATCH] old name (for PETSc < 3.15) --- src/grid/DAMASK_grid.f90 | 2 +- src/grid/discretization_grid.f90 | 2 +- src/grid/grid_damage_spectral.f90 | 2 +- src/grid/grid_mech_FEM.f90 | 2 +- src/grid/grid_mech_spectral_basic.f90 | 4 ++-- src/grid/grid_mech_spectral_polarisation.f90 | 4 ++-- src/grid/grid_thermal_spectral.f90 | 2 +- src/grid/spectral_utilities.f90 | 6 +++--- src/mesh/FEM_utilities.f90 | 2 +- src/mesh/discretization_mesh.f90 | 2 +- src/mesh/mesh_mech_FEM.f90 | 2 +- src/parallelization.f90 | 2 +- 12 files changed, 16 insertions(+), 16 deletions(-) diff --git a/src/grid/DAMASK_grid.f90 b/src/grid/DAMASK_grid.f90 index 437fcf07e..c915db98a 100644 --- a/src/grid/DAMASK_grid.f90 +++ b/src/grid/DAMASK_grid.f90 @@ -9,7 +9,7 @@ program DAMASK_grid #include use PETScSys -#ifndef PETSC_HAVE_MPI_F90MODULE_VISIBILITY +#if !defined(PETSC_HAVE_MPI_F90MODULE_VISIBILITY) && !defined(PETSC_HAVE_MPI_F90MODULE) use MPI_f08 #endif diff --git a/src/grid/discretization_grid.f90 b/src/grid/discretization_grid.f90 index d53014bfb..1454aa050 100644 --- a/src/grid/discretization_grid.f90 +++ b/src/grid/discretization_grid.f90 @@ -7,7 +7,7 @@ module discretization_grid #include use PETScSys -#ifndef PETSC_HAVE_MPI_F90MODULE_VISIBILITY +#if !defined(PETSC_HAVE_MPI_F90MODULE_VISIBILITY) && !defined(PETSC_HAVE_MPI_F90MODULE) use MPI_f08 #endif diff --git a/src/grid/grid_damage_spectral.f90 b/src/grid/grid_damage_spectral.f90 index 36bbde1d8..cfe668329 100644 --- a/src/grid/grid_damage_spectral.f90 +++ b/src/grid/grid_damage_spectral.f90 @@ -9,7 +9,7 @@ module grid_damage_spectral #include use PETScDMDA use PETScSNES -#ifndef PETSC_HAVE_MPI_F90MODULE_VISIBILITY +#if !defined(PETSC_HAVE_MPI_F90MODULE_VISIBILITY) && !defined(PETSC_HAVE_MPI_F90MODULE) use MPI_f08 #endif diff --git a/src/grid/grid_mech_FEM.f90 b/src/grid/grid_mech_FEM.f90 index 00e03c457..004635018 100644 --- a/src/grid/grid_mech_FEM.f90 +++ b/src/grid/grid_mech_FEM.f90 @@ -9,7 +9,7 @@ module grid_mechanical_FEM #include use PETScDMDA use PETScSNES -#ifndef PETSC_HAVE_MPI_F90MODULE_VISIBILITY +#if !defined(PETSC_HAVE_MPI_F90MODULE_VISIBILITY) && !defined(PETSC_HAVE_MPI_F90MODULE) use MPI_f08 #endif diff --git a/src/grid/grid_mech_spectral_basic.f90 b/src/grid/grid_mech_spectral_basic.f90 index 7f48768c4..2fbb483c0 100644 --- a/src/grid/grid_mech_spectral_basic.f90 +++ b/src/grid/grid_mech_spectral_basic.f90 @@ -9,7 +9,7 @@ module grid_mechanical_spectral_basic #include use PETScDMDA use PETScSNES -#ifndef PETSC_HAVE_MPI_F90MODULE_VISIBILITY +#if !defined(PETSC_HAVE_MPI_F90MODULE_VISIBILITY) && !defined(PETSC_HAVE_MPI_F90MODULE) use MPI_f08 #endif @@ -102,7 +102,7 @@ subroutine grid_mechanical_spectral_basic_init F ! pointer to solution data PetscInt, dimension(0:worldsize-1) :: localK integer(HID_T) :: fileHandle, groupHandle -#ifndef PETSC_HAVE_MPI_F90MODULE_VISIBILITY +#if !defined(PETSC_HAVE_MPI_F90MODULE_VISIBILITY) && !defined(PETSC_HAVE_MPI_F90MODULE) type(MPI_File) :: fileUnit #else integer :: fileUnit diff --git a/src/grid/grid_mech_spectral_polarisation.f90 b/src/grid/grid_mech_spectral_polarisation.f90 index 3648a4454..a951fbd62 100644 --- a/src/grid/grid_mech_spectral_polarisation.f90 +++ b/src/grid/grid_mech_spectral_polarisation.f90 @@ -9,7 +9,7 @@ module grid_mechanical_spectral_polarisation #include use PETScDMDA use PETScSNES -#ifndef PETSC_HAVE_MPI_F90MODULE_VISIBILITY +#if !defined(PETSC_HAVE_MPI_F90MODULE_VISIBILITY) && !defined(PETSC_HAVE_MPI_F90MODULE) use MPI_f08 #endif @@ -115,7 +115,7 @@ subroutine grid_mechanical_spectral_polarisation_init F_tau ! specific (sub)pointer PetscInt, dimension(0:worldsize-1) :: localK integer(HID_T) :: fileHandle, groupHandle -#ifndef PETSC_HAVE_MPI_F90MODULE_VISIBILITY +#if !defined(PETSC_HAVE_MPI_F90MODULE_VISIBILITY) && !defined(PETSC_HAVE_MPI_F90MODULE) type(MPI_File) :: fileUnit #else integer :: fileUnit diff --git a/src/grid/grid_thermal_spectral.f90 b/src/grid/grid_thermal_spectral.f90 index 4b31d10d0..1bf815a0f 100644 --- a/src/grid/grid_thermal_spectral.f90 +++ b/src/grid/grid_thermal_spectral.f90 @@ -9,7 +9,7 @@ module grid_thermal_spectral #include use PETScDMDA use PETScSNES -#ifndef PETSC_HAVE_MPI_F90MODULE_VISIBILITY +#if !defined(PETSC_HAVE_MPI_F90MODULE_VISIBILITY) && !defined(PETSC_HAVE_MPI_F90MODULE) use MPI_f08 #endif diff --git a/src/grid/spectral_utilities.f90 b/src/grid/spectral_utilities.f90 index 128c1a916..38e208770 100644 --- a/src/grid/spectral_utilities.f90 +++ b/src/grid/spectral_utilities.f90 @@ -8,7 +8,7 @@ module spectral_utilities #include use PETScSys -#ifndef PETSC_HAVE_MPI_F90MODULE_VISIBILITY +#if !defined(PETSC_HAVE_MPI_F90MODULE_VISIBILITY) && !defined(PETSC_HAVE_MPI_F90MODULE) use MPI_f08 #endif @@ -985,7 +985,7 @@ subroutine utilities_updateCoords(F) rank_t, rank_b, & c, & ierr -#ifndef PETSC_HAVE_MPI_F90MODULE_VISIBILITY +#if !defined(PETSC_HAVE_MPI_F90MODULE_VISIBILITY) && !defined(PETSC_HAVE_MPI_F90MODULE) type(MPI_Request), dimension(4) :: request type(MPI_Status), dimension(4) :: status #else @@ -1050,7 +1050,7 @@ subroutine utilities_updateCoords(F) call MPI_Waitall(4,request,status,ierr) if(ierr /=0) error stop 'MPI error' -#ifndef PETSC_HAVE_MPI_F90MODULE_VISIBILITY +#if !defined(PETSC_HAVE_MPI_F90MODULE_VISIBILITY) && !defined(PETSC_HAVE_MPI_F90MODULE) ! ToDo #else if(any(status(MPI_ERROR,:) /= 0)) error stop 'MPI error' diff --git a/src/mesh/FEM_utilities.f90 b/src/mesh/FEM_utilities.f90 index 35336847b..981fbe529 100644 --- a/src/mesh/FEM_utilities.f90 +++ b/src/mesh/FEM_utilities.f90 @@ -10,7 +10,7 @@ module FEM_utilities use PETScDMplex use PETScDMDA use PETScIS -#ifndef PETSC_HAVE_MPI_F90MODULE_VISIBILITY +#if !defined(PETSC_HAVE_MPI_F90MODULE_VISIBILITY) && !defined(PETSC_HAVE_MPI_F90MODULE) use MPI_f08 #endif diff --git a/src/mesh/discretization_mesh.f90 b/src/mesh/discretization_mesh.f90 index aa0fb6d74..6b05e6096 100644 --- a/src/mesh/discretization_mesh.f90 +++ b/src/mesh/discretization_mesh.f90 @@ -11,7 +11,7 @@ module discretization_mesh use PETScDMplex use PETScDMDA use PETScIS -#ifndef PETSC_HAVE_MPI_F90MODULE_VISIBILITY +#if !defined(PETSC_HAVE_MPI_F90MODULE_VISIBILITY) && !defined(PETSC_HAVE_MPI_F90MODULE) use MPI_f08 #endif diff --git a/src/mesh/mesh_mech_FEM.f90 b/src/mesh/mesh_mech_FEM.f90 index fc17f9085..d3749e8ff 100644 --- a/src/mesh/mesh_mech_FEM.f90 +++ b/src/mesh/mesh_mech_FEM.f90 @@ -13,7 +13,7 @@ module mesh_mechanical_FEM use PETScDM use PETScDMplex use PETScDT -#ifndef PETSC_HAVE_MPI_F90MODULE_VISIBILITY +#if !defined(PETSC_HAVE_MPI_F90MODULE_VISIBILITY) && !defined(PETSC_HAVE_MPI_F90MODULE) use MPI_f08 #endif diff --git a/src/parallelization.f90 b/src/parallelization.f90 index 78a02563f..f8eb3207d 100644 --- a/src/parallelization.f90 +++ b/src/parallelization.f90 @@ -9,7 +9,7 @@ module parallelization #ifdef PETSC #include use PETScSys -#ifndef PETSC_HAVE_MPI_F90MODULE_VISIBILITY +#if !defined(PETSC_HAVE_MPI_F90MODULE_VISIBILITY) && !defined(PETSC_HAVE_MPI_F90MODULE) use MPI_f08 #endif !$ use OMP_LIB