LagrangeDOF

Returns the total number of degrees of freedom.

The total number of degree of freedom is given by:

$$t_{dof}=(p+1)*(q+1)*(r+1)$$

Calling example:

ans = LagrangeDOF_Hexahedron(order)
ans = LagrangeDOF_Hexahedron(p,q,r)

Interface 1

܀ Interface

INTERFACE LagrangeDOF_Hexahedron
  MODULE PURE FUNCTION LagrangeDOF_Hexahedron1(order) RESULT(ans)
    INTEGER(I4B), INTENT(IN) :: order
    INTEGER(I4B) :: ans
  END FUNCTION LagrangeDOF_Hexahedron1
END INTERFACE LagrangeDOF_Hexahedron

️܀ See example

program main
  use easifembase
  implicit none
  integer( i4b ) :: i1, i2, order
  order=1
  i1 = LagrangeDOF_Hexahedron(order=order)
  i2 = (order+1)*(order+2)*(order+3)/6
  call IS( i1, i2 )
  order=2
  i1 = LagrangeDOF_Hexahedron(order=order)
  i2 = (order+1)*(order+2)*(order+3)/6
  call IS( i1, i2 )
  order=3
  i1 = LagrangeDOF_Hexahedron(order=order)
  i2 = (order+1)*(order+2)*(order+3)/6
  call IS( i1, i2 )
end program main

↢

Interface 2

INTERFACE LagrangeDOF_Hexahedron
  MODULE PURE FUNCTION LagrangeDOF_Hexahedron2(p, q, r) RESULT(ans)
    INTEGER(I4B), INTENT(IN) :: p, q, r
    INTEGER(I4B) :: ans
  END FUNCTION LagrangeDOF_Hexahedron2
END INTERFACE LagrangeDOF_Hexahedron