From bb234938cc14a31ec804da359cee6ef1495db003 Mon Sep 17 00:00:00 2001 From: Martin Diehl Date: Thu, 2 Nov 2023 15:43:11 +0100 Subject: [PATCH] whitespace polishing --- src/mesh/FEM_quadrature.f90 | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/src/mesh/FEM_quadrature.f90 b/src/mesh/FEM_quadrature.f90 index 891e0be0d..b618fad92 100644 --- a/src/mesh/FEM_quadrature.f90 +++ b/src/mesh/FEM_quadrature.f90 @@ -20,13 +20,13 @@ module FEM_quadrature -1.0_pREAL, 1.0_pREAL, -1.0_pREAL, & -1.0_pREAL, -1.0_pREAL, 1.0_pREAL], shape=[3,4]) - type :: group_real !< variable length datatype + type :: group_real !< variable length datatype real(pREAL), dimension(:), allocatable :: p end type group_real - integer, dimension(2:3,maxOrder), public, protected :: & + integer, dimension(2:3,maxOrder), public, protected :: & FEM_nQuadrature !< number of quadrature points for spatial dimension(2-3) and interpolation order (1-maxOrder) - type(group_real), dimension(2:3,maxOrder), public, protected :: & + type(group_real), dimension(2:3,maxOrder), public, protected :: & FEM_quadrature_weights, & !< quadrature weights for each quadrature rule FEM_quadrature_points !< quadrature point coordinates (in simplical system) for each quadrature rule