      SUBROUTINE DSWDI (IWORD, NUMRET)
      IMPLICIT NONE
C
C ***      DISPLAY WORD AS I FORMAT (LIST-DIRECTED) (WITH <NUMRET> RETURNS)
C
      INTEGER IWORD, NUMRET
C
      INCLUDE MATLAB$KOM:IOP.KOM
C
C
      WRITE (WTE, *) IWORD
      IF (WIO.NE.0) WRITE (WIO, *) IWORD
      CALL DSBLLN (NUMRET)
C
      RETURN
      END
