adopted to new PETSc fortran interface

2018-08-30 11:55:13 +02:00 · 2018-08-30 11:55:13 +02:00 · d180af494e
parent 06e7156351
commit d180af494e
1 changed files with 2 additions and 9 deletions
--- 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