elliptic_primary_angles Subroutine

private pure subroutine elliptic_primary_angles(self, a, b)

The half-angles along x (a) and y (b), radians.

Type Bound

EllipticCone

Arguments

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

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

radians

Source Code

    pure subroutine elliptic_primary_angles(self, a, b)
        class(EllipticCone), intent(in) :: self
        real(wp), intent(out) :: a, b                       !! radians
        a = self%a
        b = self%b
    end subroutine elliptic_primary_angles