LagrangeInDOF

Returns the total number of degrees of freedom internal to hexahedron.

The total number of degree of freedom is given by:

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

Interface 1

܀ Interface

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

️܀ See example

program main
  use easifembase
  implicit none
  integer( i4b ) :: i1, i2, order
  order=1
  i1 = LagrangeInDOF_Hexahedron(order=order)
  i2 = (order-1)**3
  call IS( i1, i2 )
  order=2
  i1 = LagrangeInDOF_Hexahedron(order=order)
  i2 = (order-1)**3
  call IS( i1, i2 )
  order=3
  i1 = LagrangeInDOF_Hexahedron(order=order)
  i2 = (order-1)**3
  call IS( i1, i2 )
end program main

↢

Interface 2

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