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