AngNormalize Function

public function AngNormalize(x)

Arguments

Type IntentOptional Attributes Name
real(kind=wp), intent(in) :: x

Return Value real(kind=wp)


Source Code

    real(wp) function AngNormalize(x)

    real(wp),intent(in) :: x

    AngNormalize = remx(x, 360.0_wp)
    if (abs(AngNormalize) == 180.0_wp) then
        AngNormalize = sign(180.0_wp, x)
    end if

    end function AngNormalize