223031012
/
DAMASK_EICMD
mirror of https://github.com/achalhp/DAMASK_EICMD.git
1
0
Fork 0
Code Issues Projects Releases Wiki Activity

Merge branch 'mesh_compile' into 'development' 

Petsc Destroy interfaces are not included in version<=3.16.x yet

See merge request damask/DAMASK!792
This commit is contained in:
Martin Diehl 2023-08-04 19:58:16 +00:00
parent d428024d4d cc77d5c69b
commit 7d1adebde9
2 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
src/mesh/discretization_mesh.f90
View File

@ -56,7 +56,7 @@ module discretization_mesh
real(pREAL), dimension(:,:,:), allocatable :: & real(pREAL), dimension(:,:,:), allocatable :: &
mesh_ipCoordinates !< IP x,y,z coordinates (after deformation!) 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 :: & external :: &
DMDestroy DMDestroy
#endif #endif

2
src/mesh/mesh_mech_FEM.f90
View File

@ -72,7 +72,7 @@ module mesh_mechanical_FEM
real(pREAL), parameter :: eps = 1.0e-18_pREAL real(pREAL), parameter :: eps = 1.0e-18_pREAL
external :: & ! ToDo: write interfaces external :: & ! ToDo: write interfaces
#ifdef PETSC_USE_64BIT_INDICES #if defined(PETSC_USE_64BIT_INDICES) || PETSC_VERSION_MINOR < 17
ISDestroy, & ISDestroy, &
#endif #endif
PetscSectionGetNumFields, & PetscSectionGetNumFields, &