      SUBROUTINE DSSTRN (ISTRNG, NUMRET)
      IMPLICIT NONE
C
C ***      DISPLAY STRING AND <NUMRET> RETURNS
C
      CHARACTER*(*) ISTRNG
      INTEGER NUMRET
C
      INCLUDE MATLAB$KOM:IOP.KOM
C
C
      WRITE (WTE, 10) ISTRNG
      IF (WIO.NE.0) WRITE (WIO, 10) ISTRNG
10    FORMAT (A, $)
      CALL DSBLLN (NUMRET)
C
      RETURN
      END
