subroutine set_itv_107(ratio) use cost_variables, only: favail implicit none real(kind(1.d0)) :: ratio favail = ratio end subroutine set_itv_107