      SUBROUTINE DSBLLN (NUMRET)
      IMPLICIT NONE
C
C ***      DISPLAY <NUMRET> BLANK LINE(S)
C
      INTEGER NUMRET
C
      INCLUDE MATLAB$KOM:IOP.KOM
C
      INTEGER LOOP
C
C
      IF (NUMRET.GT.0) THEN
        DO 20 LOOP = 1, NUMRET
          WRITE (WTE, 10)
          IF (WIO.NE.0) WRITE (WIO, 10)
10        FORMAT (' ')
20      CONTINUE
      ENDIF
C
      RETURN
      END
