set_dp_vector_3d Subroutine

private subroutine set_dp_vector_3d(self, x_val, y_val, z_val)

Type Bound

type_dp_vector_3d

Arguments

Type IntentOptional Attributes Name
class(type_dp_vector_3d), intent(inout) :: self
real(kind=real64), intent(in) :: x_val
real(kind=real64), intent(in) :: y_val
real(kind=real64), intent(in) :: z_val

Called by

proc~~set_dp_vector_3d~~CalledByGraph proc~set_dp_vector_3d type_dp_vector_3d%set_dp_vector_3d none~set~3 type_dp_vector_3d%set none~set~3->proc~set_dp_vector_3d proc~initialize_abst_mesh abst_mesh%initialize_abst_mesh proc~initialize_abst_mesh->none~set~3 proc~initialize_type_output_observation initialize_type_output_observation proc~initialize_type_output_observation->none~set~3 proc~is_in_square_first is_in_square_first proc~is_in_square_first->none~set~3 proc~is_in_square_second is_in_square_second proc~is_in_square_second->none~set~3 proc~is_in_triangle_first is_in_triangle_first proc~is_in_triangle_first->none~set~3 proc~is_in_triangle_second is_in_triangle_second proc~is_in_triangle_second->none~set~3 interface~initialize_type_output_observation type_output_observation%initialize_type_output_observation interface~initialize_type_output_observation->proc~initialize_type_output_observation interface~is_in_square_first type_square_first%is_in_square_first interface~is_in_square_first->proc~is_in_square_first interface~is_in_square_second type_square_second%is_in_square_second interface~is_in_square_second->proc~is_in_square_second interface~is_in_triangle_first type_triangle_first%is_in_triangle_first interface~is_in_triangle_first->proc~is_in_triangle_first interface~is_in_triangle_second type_triangle_second%is_in_triangle_second interface~is_in_triangle_second->proc~is_in_triangle_second proc~construct_side_first construct_side_first proc~construct_side_first->proc~initialize_abst_mesh proc~construct_side_second construct_side_second proc~construct_side_second->proc~initialize_abst_mesh proc~construct_square_first construct_square_first proc~construct_square_first->proc~initialize_abst_mesh proc~construct_square_second construct_square_second proc~construct_square_second->proc~initialize_abst_mesh proc~construct_triangle_first construct_triangle_first proc~construct_triangle_first->proc~initialize_abst_mesh proc~construct_triangle_second construct_triangle_second proc~construct_triangle_second->proc~initialize_abst_mesh interface~construct_side_first construct_side_first interface~construct_side_first->proc~construct_side_first interface~construct_side_second construct_side_second interface~construct_side_second->proc~construct_side_second interface~construct_square_first construct_square_first interface~construct_square_first->proc~construct_square_first interface~construct_square_second construct_square_second interface~construct_square_second->proc~construct_square_second interface~construct_triangle_first construct_triangle_first interface~construct_triangle_first->proc~construct_triangle_first interface~construct_triangle_second construct_triangle_second interface~construct_triangle_second->proc~construct_triangle_second proc~initialize_type_output type_output%initialize_type_output proc~initialize_type_output->interface~initialize_type_output_observation interface~type_side_first type_side_first interface~type_side_first->interface~construct_side_first interface~type_side_second type_side_second interface~type_side_second->interface~construct_side_second interface~type_square_first type_square_first interface~type_square_first->interface~construct_square_first interface~type_square_second type_square_second interface~type_square_second->interface~construct_square_second interface~type_triangle_first type_triangle_first interface~type_triangle_first->interface~construct_triangle_first interface~type_triangle_second type_triangle_second interface~type_triangle_second->interface~construct_triangle_second

Source Code

    subroutine set_dp_vector_3d(self, x_val, y_val, z_val)
        implicit none
        class(type_dp_vector_3d), intent(inout) :: self
        real(real64), intent(in) :: x_val, y_val, z_val

        self%x = x_val
        self%y = y_val
        self%z = z_val
    end subroutine set_dp_vector_3d