home *** CD-ROM | disk | FTP | other *** search
/ The Fred Fish Collection 1.5 / ffcollection-1-5-1992-11.iso / ff_progs / libs / matlab.lzh / MATLAB / MATLAB.LZH / Source / Plot / DSBLLN.FOR < prev    next >
Encoding:
Text File  |  1991-04-13  |  382 b   |  23 lines
  1.       SUBROUTINE DSBLLN (NUMRET)
  2.       IMPLICIT NONE
  3. C
  4. C ***      DISPLAY <NUMRET> BLANK LINE(S)
  5. C
  6.       INTEGER NUMRET
  7. C
  8.       INCLUDE MATLAB$KOM:IOP.KOM
  9. C
  10.       INTEGER LOOP
  11. C
  12. C
  13.       IF (NUMRET.GT.0) THEN
  14.         DO 20 LOOP = 1, NUMRET
  15.           WRITE (WTE, 10)
  16.           IF (WIO.NE.0) WRITE (WIO, 10)
  17. 10        FORMAT (' ')
  18. 20      CONTINUE
  19.       ENDIF
  20. C
  21.       RETURN
  22.       END
  23.