rect_primary_angles Subroutine

private pure subroutine rect_primary_angles(self, x, y)

The half-angles along x and y, radians.

Type Bound

RectangularCone

Arguments

Type IntentOptional Attributes Name
class(RectangularCone), intent(in) :: self
real(kind=wp), intent(out) :: x

radians
real(kind=wp), intent(out) :: y

radians

Source Code

    pure subroutine rect_primary_angles(self, x, y)
        class(RectangularCone), intent(in) :: self
        real(wp), intent(out) :: x, y                       !! radians
        x = self%x
        y = self%y
    end subroutine rect_primary_angles