subroutine wrt_diag_empty
      end