LagrangeDOF
Returns the total number of degree of freedom for a lagrange polynomial.
The total DOF is given by:
Calling example:
ans = LagrangeDOF_Quadrangle(order)
ans = LagrangeDOF_Quadrangle(p, q, r)
Interface 1
- ܀ Interface
- ️܀ See example
- ↢
INTERFACE
MODULE PURE FUNCTION LagrangeDOF_Quadrangle(order) RESULT(ans)
INTEGER(I4B), INTENT(IN) :: order
INTEGER(I4B) :: ans
END FUNCTION LagrangeDOF_Quadrangle
END INTERFACE
order
order denotes the order of quadrangle element.
program main
use easifembase
implicit none
integer( i4b ) :: i1, i2
i1 = LagrangeDOF_Quadrangle(order=1)
i2 = 4
call IS( i1, i2 )
i1 = LagrangeDOF_Quadrangle(order=2)
i2 = 9
call IS( i1, i2 )
i1 = LagrangeDOF_Quadrangle(order=3)
i2 = 16
call IS( i1, i2 )
end program main
Interface 2
- ܀ Interface
- ️܀ See example
- ↢
INTERFACE
MODULE PURE FUNCTION LagrangeDOF_Quadrangle(p,q) RESULT(ans)
INTEGER(I4B), INTENT(IN) :: p, q
INTEGER(I4B) :: ans
END FUNCTION LagrangeDOF_Quadrangle
END INTERFACE
p, q
p and q denote the order of quadrangle element in x and y direction, respectively.
program main
use easifembase
implicit none
integer( i4b ) :: i1, i2
i1 = LagrangeDOF_Quadrangle(1, 1)
i2 = 4
call IS( i1, i2 )
i1 = LagrangeDOF_Quadrangle(2, 2)
i2 = 9
call IS( i1, i2 )
i1 = LagrangeDOF_Quadrangle(3, 2)
i2 = 12
call IS( i1, i2 )
end program main