Skip to main content

VerticalEdgeBasis

Evaluate basis functions on left and right edge of biunit Quadrangle.

Interface​

INTERFACE
  MODULE PURE FUNCTION VerticalEdgeBasis_Quadrangle(qe1, qe2, x, y) &
    & RESULT(ans)
    INTEGER(I4B), INTENT(IN) :: qe1
    !! order on left vertical edge (e1), it should be greater than 1
    !! It should be greater than 2
    INTEGER(I4B), INTENT(IN) :: qe2
    !! order on right vertical edge(e2), it should be greater than 1
    !! It should be greater than 2
    REAL(DFP), INTENT(IN) :: x(:), y(:)
    !! point of evaluation
    !! these points should be between [-1, 1].
    REAL(DFP) :: ans(SIZE(x), qe1 + qe2 - 2)
  END FUNCTION VerticalEdgeBasis_Quadrangle
END INTERFACE