      subroutine wrt_diags_ek_avg_empty
      end
