dpsi_dxi_triangle_first Module Function

module function dpsi_dxi_triangle_first(self, i, xi, eta) result(dpsi)

Arguments

Type IntentOptional Attributes Name
class(type_triangle_first), intent(in) :: self
integer(kind=int32), intent(in) :: i
real(kind=real64), intent(in) :: xi
real(kind=real64), intent(in) :: eta

Return Value real(kind=real64)


Called by

proc~~dpsi_dxi_triangle_first~~CalledByGraph proc~dpsi_dxi_triangle_first dpsi_dxi_triangle_first interface~dpsi_dxi_triangle_first type_triangle_first%dpsi_dxi_triangle_first interface~dpsi_dxi_triangle_first->proc~dpsi_dxi_triangle_first proc~jacobian_triangle_first jacobian_triangle_first proc~jacobian_triangle_first->interface~dpsi_dxi_triangle_first interface~jacobian_triangle_first type_triangle_first%jacobian_triangle_first interface~jacobian_triangle_first->proc~jacobian_triangle_first proc~is_in_triangle_first is_in_triangle_first proc~is_in_triangle_first->interface~jacobian_triangle_first interface~jacobian_det_triangle_first type_triangle_first%jacobian_det_triangle_first proc~is_in_triangle_first->interface~jacobian_det_triangle_first proc~jacobian_det_triangle_first jacobian_det_triangle_first proc~jacobian_det_triangle_first->interface~jacobian_triangle_first interface~is_in_triangle_first type_triangle_first%is_in_triangle_first interface~is_in_triangle_first->proc~is_in_triangle_first interface~jacobian_det_triangle_first->proc~jacobian_det_triangle_first

Source Code

    module function dpsi_dxi_triangle_first(self, i, xi, eta) result(dpsi)
        implicit none
        class(type_triangle_first), intent(in) :: self
        integer(int32), intent(in) :: i
        real(real64), intent(in) :: xi, eta
        real(real64) :: dpsi
        select case (i)
        case (1)
            dpsi = 1.0d0
        case (2)
            dpsi = 0.0d0
        case (3)
            dpsi = -1.0d0
        case default
            dpsi = 0.0d0
        end select
    end function dpsi_dxi_triangle_first