PETSc 3.9 style (no SIGSEGVs anymore)

This commit is contained in:
Martin Diehl 2018-08-30 12:38:44 +02:00
parent 8b6bef159e
commit b930c68887
1 changed files with 2 additions and 12 deletions

View File

@ -3,9 +3,11 @@
!> @brief Utilities used by the FEM solver !> @brief Utilities used by the FEM solver
!-------------------------------------------------------------------------------------------------- !--------------------------------------------------------------------------------------------------
module FEM_utilities module FEM_utilities
#include <petsc/finclude/petscdmplex.h>
#include <petsc/finclude/petsc.h> #include <petsc/finclude/petsc.h>
use prec, only: pReal, pInt use prec, only: pReal, pInt
use PETScdmplex
use PETScdmda use PETScdmda
use PETScis use PETScis
@ -140,18 +142,6 @@ use PETScis
COMPONENT_SOLUTE_CVaHPOT_ID, & COMPONENT_SOLUTE_CVaHPOT_ID, &
COMPONENT_MGTWIN_PHI_ID COMPONENT_MGTWIN_PHI_ID
external :: &
PetscOptionsInsertString, &
PetscObjectSetName, &
DMPlexGetHeightStratum, &
DMGetLabelIdIS, &
DMPlexGetChart, &
DMPlexLabelComplete, &
PetscViewerHDF5Open, &
PetscViewerHDF5PushGroup, &
PetscViewerHDF5PopGroup, &
PetscViewerDestroy
contains contains
!-------------------------------------------------------------------------------------------------- !--------------------------------------------------------------------------------------------------