elliptic_set_primary_angles Subroutine

private subroutine elliptic_set_primary_angles(self, a, b)

The half-angles along x (a) and y (b), radians (0 to 90 degrees).

Type Bound

EllipticCone

Arguments

Type IntentOptional Attributes Name
class(EllipticCone), intent(inout) :: self
real(kind=wp), intent(in) :: a

radians
real(kind=wp), intent(in) :: b

radians

Calls

proc~~elliptic_set_primary_angles~~CallsGraph proc~elliptic_set_primary_angles EllipticCone%elliptic_set_primary_angles proc~elliptic_vertices elliptic_vertices proc~elliptic_set_primary_angles->proc~elliptic_vertices proc~make_cone make_cone proc~elliptic_set_primary_angles->proc~make_cone clock clock proc~elliptic_vertices->clock cone cone proc~elliptic_vertices->cone interface~vkf_switch_create vkf_switch_create proc~make_cone->interface~vkf_switch_create proc~add add proc~make_cone->proc~add proc~closed_segments closed_segments proc~make_cone->proc~closed_segments proc~line_node line_node proc~make_cone->proc~line_node proc~replace ShapeNodes%replace proc~make_cone->proc~replace proc~surface_node surface_node proc~make_cone->proc~surface_node interface~vkf_node_add_child vkf_node_add_child proc~add->interface~vkf_node_add_child interface~vkf_node_delete vkf_node_delete proc~add->interface~vkf_node_delete proc~check_status check_status proc~add->proc~check_status interface~vkf_line_create vkf_line_create proc~line_node->interface~vkf_line_create proc~line_node->proc~check_status proc~line_set_points line_set_points proc~line_node->proc~line_set_points proc~line_set_segments line_set_segments proc~line_node->proc~line_set_segments proc~line_set_style line_set_style proc~line_node->proc~line_set_style interface~vkf_compile_node vkf_compile_node proc~replace->interface~vkf_compile_node proc~replace->interface~vkf_node_add_child proc~replace->interface~vkf_node_delete interface~vkf_node_remove_child vkf_node_remove_child proc~replace->interface~vkf_node_remove_child proc~replace->proc~check_status interface~vkf_mesh_array vkf_mesh_array proc~surface_node->interface~vkf_mesh_array interface~vkf_mesh_create vkf_mesh_create proc~surface_node->interface~vkf_mesh_create interface~vkf_mesh_set_bound vkf_mesh_set_bound proc~surface_node->interface~vkf_mesh_set_bound proc~surface_node->proc~check_status proc~mesh_arrays mesh_arrays proc~surface_node->proc~mesh_arrays interface~vkf_line_points vkf_line_points proc~line_set_points->interface~vkf_line_points interface~vkf_line_points_changed vkf_line_points_changed proc~line_set_points->interface~vkf_line_points_changed interface~vkf_line_style vkf_line_style proc~line_set_segments->interface~vkf_line_style interface~vkf_line_style_changed vkf_line_style_changed proc~line_set_segments->interface~vkf_line_style_changed proc~line_set_style->interface~vkf_line_style proc~line_set_style->interface~vkf_line_style_changed proc~mesh_arrays->interface~vkf_mesh_array

Source Code

    subroutine elliptic_set_primary_angles(self, a, b)
        class(EllipticCone), intent(inout) :: self
        real(wp), intent(in) :: a, b                        !! radians
        self%a = a
        self%b = b
        call elliptic_vertices(self)
        call make_cone(self)
    end subroutine elliptic_set_primary_angles