whitespace polishing
This commit is contained in:
parent
5a5f1cfc5b
commit
bb234938cc
|
@ -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, &
|
||||||
-1.0_pREAL, -1.0_pREAL, 1.0_pREAL], shape=[3,4])
|
-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
|
real(pREAL), dimension(:), allocatable :: p
|
||||||
end type group_real
|
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)
|
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_weights, & !< quadrature weights for each quadrature rule
|
||||||
FEM_quadrature_points !< quadrature point coordinates (in simplical system) for each quadrature rule
|
FEM_quadrature_points !< quadrature point coordinates (in simplical system) for each quadrature rule
|
||||||
|
|
||||||
|
|
Loading…
Reference in New Issue