LagrangeDOF

Returns the total number of degree of freedom for a lagrange polynomial on triangle.

The total DOF is given by:

$$\frac{1}{2}(n+1)(n+2)$$

Interface

܀ Interface

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

️܀ See example

program main
  use easifembase
  implicit none
  integer( i4b ) :: i1, i2

  i1 = LagrangeDOF_Triangle(order=1)
  i2 = 3
  call IS( i1, i2 )
  i1 = LagrangeDOF_Triangle(order=2)
  i2 = 6
  call IS( i1, i2 )
  i1 = LagrangeDOF_Triangle(order=3)
  i2 = 10
  call IS( i1, i2 )

end program main

↢