documenting/silencing gfortran
This commit is contained in:
parent
58a7921966
commit
de7ef43095
|
@ -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)))
|
||||
|
|
|
@ -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 :: &
|
||||
|
|
|
@ -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
|
||||
|
|
Loading…
Reference in New Issue