update_angle_unit Subroutine

subroutine update_angle_unit(rz)

Arguments

Type IntentOptional Attributes Name
type(rpn_t), intent(inout) :: rz

Contents

Variables

Source Code

update_angle_unit

Variables

Type Visibility Attributes Name Initial
logical, public :: is_cart
complex(kind=8), public :: zs

Source Code

    subroutine update_angle_unit(rz)
        type(rpn_t), intent(inout) :: rz
        complex(8) :: zs
        logical    :: is_cart
        zs = rz%get_value(is_cart)
        if (is_cart) return
        zs%im = zs%im*merge(to_deg, to_rad, degrees_mode)
        call rz%set_value(zs,is_cart)
    end subroutine update_angle_unit