subroutine set_itv_47(ratio) use current_drive_variables, only: feffcd implicit none real(kind(1.d0)) :: ratio feffcd = ratio end subroutine set_itv_47