getArow2D Module Function

    pure module function getArow2D(N, xi, eta) result(row)
    integer, intent(in)     :: N
    real(wp), intent(in)    :: xi, eta
    real(wp), dimension(N)  :: row

    select case (N)
    case (4)
        row = pascal_row(1, xi, eta)
    case (9)
        row = pascal_row(2, xi, eta)
    case (16)
        row = pascal_row(3, xi, eta)
    case (25)
        row = pascal_row(4, xi, eta)
    case default
        row = 0.d0
        ! print*, 'getArow2D called with N = ', N
        ! print*, 'That N is not yet implemented'
    end select

    return
end function getArow2D