FromBiUnitTriangleToUnitTriangle

This routine provides a biunit triangle to unit triangle mapping.

Interface

܀ Interface

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

️܀ See example

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

↢