subroutine wrt_diagsM_empty
      end