get_area_triangle_first Module Function

pure module function get_area_triangle_first(self) result(area)

Arguments

Type IntentOptional Attributes Name
class(type_triangle_first), intent(in) :: self

Return Value real(kind=real64)


Calls

proc~~get_area_triangle_first~~CallsGraph proc~get_area_triangle_first get_area_triangle_first interface~jacobian_det_triangle_first type_triangle_first%jacobian_det_triangle_first proc~get_area_triangle_first->interface~jacobian_det_triangle_first proc~jacobian_det_triangle_first jacobian_det_triangle_first interface~jacobian_det_triangle_first->proc~jacobian_det_triangle_first interface~jacobian_triangle_first type_triangle_first%jacobian_triangle_first proc~jacobian_det_triangle_first->interface~jacobian_triangle_first proc~jacobian_triangle_first jacobian_triangle_first interface~jacobian_triangle_first->proc~jacobian_triangle_first interface~dpsi_triangle_first type_triangle_first%dpsi_triangle_first proc~jacobian_triangle_first->interface~dpsi_triangle_first proc~get_coordinate abst_mesh%get_coordinate proc~jacobian_triangle_first->proc~get_coordinate proc~get_num_nodes~3 abst_mesh%get_num_nodes proc~jacobian_triangle_first->proc~get_num_nodes~3 proc~dpsi_triangle_first dpsi_triangle_first interface~dpsi_triangle_first->proc~dpsi_triangle_first

Called by

proc~~get_area_triangle_first~~CalledByGraph proc~get_area_triangle_first get_area_triangle_first interface~get_area_triangle_first type_triangle_first%get_area_triangle_first interface~get_area_triangle_first->proc~get_area_triangle_first

Source Code

    pure module function get_area_triangle_first(self) result(area)
        implicit none
        class(type_triangle_first), intent(in) :: self
        real(real64) :: area

        type(type_dp_vector_3d) :: r

        r%x = 1.0d0 / 3.0d0
        r%y = 1.0d0 / 3.0d0
        r%z = 0.0d0

        area = 0.0d0
        area = area + 0.5d0 * self%jacobian_det(r)
    end function get_area_triangle_first