From d180af494ed961b36fcfc5ab6670a03d1279ef03 Mon Sep 17 00:00:00 2001
From: Martin Diehl <m.diehl@mpie.de>
Date: Thu, 30 Aug 2018 11:55:13 +0200
Subject: [PATCH] adopted to new PETSc fortran interface

---
 src/meshFEM.f90 | 11 ++---------
 1 file changed, 2 insertions(+), 9 deletions(-)

diff --git a/src/meshFEM.f90 b/src/meshFEM.f90
index 7d79dd46d..1e6a95449 100644
--- a/src/meshFEM.f90
+++ b/src/meshFEM.f90
@@ -8,10 +8,12 @@
 !> results
 !--------------------------------------------------------------------------------------------------
 module mesh     
+#include <petsc/finclude/petscdmplex.h>
 #include <petsc/finclude/petscis.h>
 #include <petsc/finclude/petscdmda.h>
  use prec, only: pReal, pInt
 
+use PETScdmplex
 use PETScdmda
 use PETScis
 
@@ -89,15 +91,6 @@ use PETScis
    mesh_FEM_build_ipCoordinates, &
    mesh_cellCenterCoordinates
 
- external :: &
-   DMPlexCreateFromFile, &
-   DMPlexDistribute, &
-   DMPlexCopyCoordinates, &
-   DMGetStratumSize, &
-   DMPlexGetHeightStratum, &
-   DMPlexGetLabelValue, &
-   DMPlexSetLabelValue
-   
 contains