rect_vertices Subroutine

private subroutine rect_vertices(self)

The 4 corners (OpenFrames' createRectangularCone).

Arguments

Type IntentOptional Attributes Name
type(RectangularCone), intent(inout) :: self

Called by

proc~~rect_vertices~~CalledByGraph proc~rect_vertices rect_vertices proc~new_rectangular_cone new_rectangular_cone proc~new_rectangular_cone->proc~rect_vertices proc~rect_set_primary_angles RectangularCone%rect_set_primary_angles proc~rect_set_primary_angles->proc~rect_vertices interface~rectangularcone RectangularCone interface~rectangularcone->proc~new_rectangular_cone

Source Code

    subroutine rect_vertices(self)
        type(RectangularCone), intent(inout) :: self
        real(wp) :: xl, yl, cone, clock
        xl = tan(self%x)
        yl = tan(self%y)
        cone = atan(sqrt(xl**2 + yl**2))
        clock = atan2(yl, xl)
        self%clock = [clock, pi - clock, pi + clock, -clock]
        self%cone = [cone, cone, cone, cone]
    end subroutine rect_vertices