set_dp_vector_3d_array Subroutine

private subroutine set_dp_vector_3d_array(self, value)

Type Bound

type_dp_vector_3d

Arguments

Type IntentOptional Attributes Name
class(type_dp_vector_3d), intent(inout) :: self
real(kind=real64), intent(in) :: value(3)

Called by

proc~~set_dp_vector_3d_array~~CalledByGraph proc~set_dp_vector_3d_array type_dp_vector_3d%set_dp_vector_3d_array none~set~3 type_dp_vector_3d%set none~set~3->proc~set_dp_vector_3d_array 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_array(self, value)
        implicit none
        class(type_dp_vector_3d), intent(inout) :: self
        real(real64), intent(in) :: value(3)

        self%x = value(1)
        self%y = value(2)
        self%z = value(3)
    end subroutine set_dp_vector_3d_array