      subroutine wrt_diags_vrt_empty
      end
