documenting/silencing gfortran

This commit is contained in:
Martin Diehl 2021-07-21 23:43:55 +02:00
parent 58a7921966
commit de7ef43095
3 changed files with 9 additions and 8 deletions

View File

@ -124,7 +124,7 @@ subroutine FEM_quadrature_init()
allocate(FEM_quadrature_weights(3,2)%p(FEM_nQuadrature(3,2)))
FEM_quadrature_weights(3,2)%p(1:4) = 0.25_pReal
FEM_quadrature_points (3,2)%p = permutationStar31([0.1381966011250105_pReal])
FEM_quadrature_points (3,2)%p = permutationStar31([1.3819660112501052e-1_pReal])
!--------------------------------------------------------------------------------------------------
! 3D cubic
@ -141,7 +141,7 @@ subroutine FEM_quadrature_init()
permutationStar22([4.5503704125649649e-2_pReal]) ]
!--------------------------------------------------------------------------------------------------
! 3D quartic
! 3D quartic (lower precision/unknown source)
FEM_nQuadrature(3,4) = 35
allocate(FEM_quadrature_weights(3,4)%p(FEM_nQuadrature(3,4)))
@ -159,7 +159,7 @@ subroutine FEM_quadrature_init()
permutationStar4([0.25_pReal]) ]
!--------------------------------------------------------------------------------------------------
! 3D quintic
! 3D quintic (lower precision/unknown source)
FEM_nQuadrature(3,5) = 56
allocate(FEM_quadrature_weights(3,5)%p(FEM_nQuadrature(3,5)))

View File

@ -71,16 +71,14 @@ subroutine discretization_mesh_init(restart)
logical, intent(in) :: restart
integer, allocatable, dimension(:) :: chunkPos
integer :: dimPlex, &
mesh_Nnodes, & !< total number of nodes in mesh
j, l, &
j, &
debug_element, debug_ip
PetscSF :: sf
DM :: globalMesh
PetscInt :: nFaceSets
PetscInt, pointer, dimension(:) :: pFaceSets
character(len=pStringLen), dimension(:), allocatable :: fileContent
IS :: faceSetIS
PetscErrorCode :: ierr
integer, dimension(:), allocatable :: &

View File

@ -6,7 +6,10 @@
!--------------------------------------------------------------------------------------------------
subroutine quit(stop_id)
#include <petsc/finclude/petscsys.h>
use PetscSys
use PETScSys
#if (PETSC_VERSION_MAJOR==3 && PETSC_VERSION_MINOR>14) && !defined(PETSC_HAVE_MPI_F90MODULE_VISIBILITY)
use MPI_f08
#endif
use HDF5
implicit none