LagrangeInDOF

Returns the total number of degree of freedom for a lagrange polynomial in cell/face of triangle.

The dof are strictly inside the triangle.

The total number of DOF inside the triangle is given by:

$$(p-1)*(q-1)$$

Interface 1

܀ Interface

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

️܀ See example

program main
  use easifembase
  implicit none
  integer( i4b ) :: i1, i2
  i1 = LagrangeInDOF_Quadrangle(order=1)
  i2 = 0
  call IS( i1, i2 )
  i1 = LagrangeInDOF_Quadrangle(order=2)
  i2 = 1
  call IS( i1, i2 )
  i1 = LagrangeInDOF_Quadrangle(order=3)
  i2 = 4
  call IS( i1, i2 )
end program main

↢