From 187b3603d3091206b6cf03467d4b5a00d08aff2d Mon Sep 17 00:00:00 2001
From: Martin Diehl <mail@martin-diehl.net>
Date: Sat, 8 Feb 2020 09:08:52 +0100
Subject: [PATCH] using new names

---
 src/mesh/FEM_mech.f90 | 4 ++++
 1 file changed, 4 insertions(+)

diff --git a/src/mesh/FEM_mech.f90 b/src/mesh/FEM_mech.f90
index eef31e426..f7c9e846d 100644
--- a/src/mesh/FEM_mech.f90
+++ b/src/mesh/FEM_mech.f90
@@ -471,7 +471,11 @@ subroutine FEM_mech_formJacobian(dm_local,xx_local,Jac_pre,Jac,dummy,ierr)
   call MatZeroEntries(Jac,ierr); CHKERRQ(ierr)
   call DMGetDS(dm_local,prob,ierr); CHKERRQ(ierr)
   call PetscDSGetTabulation(prob,0,basisField,basisFieldDer,ierr)
+#if (PETSC_VERSION_MINOR < 11)
   call DMGetSection(dm_local,section,ierr); CHKERRQ(ierr)
+#else
+  call DMGetLocalSection(dm_local,section,ierr); CHKERRQ(ierr)
+#endif
   call DMGetGlobalSection(dm_local,gSection,ierr); CHKERRQ(ierr)
 
   call DMGetLocalVector(dm_local,x_local,ierr); CHKERRQ(ierr)