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