subroutine set_itv_161(ratio) use constraint_variables, only: fbetatry_lower real(kind(1.d0)) :: ratio fbetatry_lower = ratio end subroutine set_itv_161