subroutine set_itv_137(ratio) use physics_variables, only: fplhsep implicit none real(kind(1.d0)) :: ratio fplhsep = ratio end subroutine set_itv_137