      subroutine set_diags_vrt_empty
      end
