subroutine set_itv_37(ratio) use pfcoil_variables, only: coheof implicit none real(kind(1.d0)) :: ratio coheof = ratio end subroutine set_itv_37