FromUnitTriangleToBiUnitTriangle

This routine provides a biunit triangle to unit triangle mapping.

Interface

܀ Interface

INTERFACE
  MODULE PURE FUNCTION FromUnitTriangle2BiUnitTriangle(xin) RESULT(ans)
    REAL(DFP), INTENT(IN) :: xin(:, :)
    REAL(DFP) :: ans(2, SIZE(xin, 2))
  END FUNCTION FromUnitTriangle2BiUnitTriangle
END INTERFACE

️܀ See example

PROGRAM main
USE easifemBase
IMPLICIT NONE
REAL(dfp) :: xij(2, 3)
xij = RefCoord_Triangle("unit")
CALL display(xij, "unit triangle : ")
CALL display(FromUnitTriangle2BiUnitTriangle(xij), "biunit triangle: ")
END PROGRAM main

↢