Merge branch 'mesh_compile' into 'development'

Petsc Destroy interfaces are not included in version<=3.16.x yet See merge request damask/DAMASK!792
damask-multiphysics · Aug 4, 2023 · 7d1adeb · 7d1adeb
2 parents d428024 + cc77d5c
commit 7d1adeb
Show file tree

Hide file tree

Showing 2 changed files with 2 additions and 2 deletions.
diff --git a/src/mesh/discretization_mesh.f90 b/src/mesh/discretization_mesh.f90
@@ -56,7 +56,7 @@ module discretization_mesh
  real(pREAL), dimension(:,:,:), allocatable :: &
  mesh_ipCoordinates !< IP x,y,z coordinates (after deformation!)
 
-#ifdef PETSC_USE_64BIT_INDICES
+#if defined(PETSC_USE_64BIT_INDICES) || PETSC_VERSION_MINOR < 17
  external :: &
  DMDestroy
 #endif

diff --git a/src/mesh/mesh_mech_FEM.f90 b/src/mesh/mesh_mech_FEM.f90
@@ -72,7 +72,7 @@ module mesh_mechanical_FEM
  real(pREAL), parameter :: eps = 1.0e-18_pREAL
 
  external :: & ! ToDo: write interfaces
-#ifdef PETSC_USE_64BIT_INDICES
+#if defined(PETSC_USE_64BIT_INDICES) || PETSC_VERSION_MINOR < 17
  ISDestroy, &
 #endif
  PetscSectionGetNumFields, &