scale_element_quadrilateral Module Reference

module FElib / Element / Quadrilateral More...

Data Types
type	quadrilateralelement
	Derived type representing a quadrilateral element. More...

Functions/Subroutines
subroutine	quadrilateralelement_init (elem, elemorder, lumpedmassmatflag)
	Initialize an object to manage a hexahedral element.

Detailed Description

module FElib / Element / Quadrilateral

Description

A module for a quadrilateral finite element

Author

Yuta Kawai, Team SCALE

Function/Subroutine Documentation

quadrilateralelement_init()

subroutine scale_element_quadrilateral::quadrilateralelement_init	(	class(quadrilateralelement), intent(inout)	elem,
		integer, intent(in)	elemorder,
		logical, intent(in)	lumpedmassmatflag )

Initialize an object to manage a hexahedral element.

Parameters

elem	Object of finite element
elemOrder	Polynomial order with 1D direction
LumpedMassMatFlag	Flag whether mass lumping is considered

Definition at line 53 of file scale_element_quadrilateral.F90.

    
    implicit none
 
    class(QuadrilateralElement), intent(inout) :: elem
    integer, intent(in) :: elemOrder
    logical, intent(in) :: LumpedMassMatFlag
 
    !-----------------------------------------------------------------------------
    
    elem%PolyOrder = elemorder
    elem%Nv = 4
    elem%Np = (elemorder + 1)**2
    elem%Nfp = elemorder + 1
    elem%Nfaces = 4
    elem%NfpTot = elem%Nfp*elem%Nfaces
       
    call elementbase2d_init(elem, lumpedmassmatflag)
    call construct_element(elem)
 
    return

References scale_element_base::elementbase2d_final(), scale_element_base::elementbase2d_init(), scale_element_base::elementbase_construct_liftmat(), scale_element_base::elementbase_construct_massmat(), scale_element_base::elementbase_construct_stiffmat(), scale_linalgebra::linalgebra_inv(), scale_polynomial::polynomial_gendlagrangepoly_lglpt(), scale_polynomial::polynomial_gendlegendrepoly(), scale_polynomial::polynomial_gengausslegendrept(), scale_polynomial::polynomial_gengausslegendreptintweight(), scale_polynomial::polynomial_gengausslobattopt(), scale_polynomial::polynomial_gengausslobattoptintweight(), scale_polynomial::polynomial_genlagrangepoly(), and scale_polynomial::polynomial_genlegendrepoly().