clamp_real64 Function

private pure elemental function clamp_real64(x, xmin, xmax) result(clamp)

Uses

  • proc~~clamp_real64~~UsesGraph proc~clamp_real64 clamp_real64 iso_fortran_env iso_fortran_env proc~clamp_real64->iso_fortran_env

Clamp/Limit the value of x to the range of [xmin, xmax], where x, xmin, and xmax are all reals. No check is performed to ensure xmin < xmax. (KCW, 2025-07-16)

Arguments

Type IntentOptional Attributes Name
real(kind=real64), intent(in) :: x
real(kind=real64), intent(in) :: xmin
real(kind=real64), intent(in) :: xmax

Return Value real(kind=real64)


Called by

proc~~clamp_real64~~CalledByGraph proc~clamp_real64 clamp_real64 interface~clamp clamp interface~clamp->proc~clamp_real64 none~update_shared_variables update_shared_variables none~update_shared_variables->interface~clamp proc~dyn_mpas_init_phase1 mpas_dynamical_core_type%dyn_mpas_init_phase1 proc~dyn_mpas_init_phase1->interface~clamp proc~dyn_readnl dyn_readnl proc~dyn_readnl->proc~dyn_mpas_init_phase1 proc~dynamics_to_physics_coupling dynamics_to_physics_coupling proc~dynamics_to_physics_coupling->none~update_shared_variables interface~dyn_readnl dyn_readnl interface~dyn_readnl->proc~dyn_readnl interface~dynamics_to_physics_coupling dynamics_to_physics_coupling interface~dynamics_to_physics_coupling->proc~dynamics_to_physics_coupling proc~stepon_timestep_init stepon_timestep_init proc~stepon_timestep_init->interface~dynamics_to_physics_coupling

Source Code

    pure elemental function clamp_real64(x, xmin, xmax) result(clamp)
        use, intrinsic :: iso_fortran_env, only: real64

        real(real64), intent(in) :: x, xmin, xmax
        real(real64) :: clamp

        clamp = max(min(x, xmax), xmin)
    end function clamp_real64