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 / DSWDI.FOR < prev    next >
Encoding:
Text File  |  1991-04-13  |  326 b   |  17 lines
  1.       SUBROUTINE DSWDI (IWORD, NUMRET)
  2.       IMPLICIT NONE
  3. C
  4. C ***      DISPLAY WORD AS I FORMAT (LIST-DIRECTED) (WITH <NUMRET> RETURNS)
  5. C
  6.       INTEGER IWORD, NUMRET
  7. C
  8.       INCLUDE MATLAB$KOM:IOP.KOM
  9. C
  10. C
  11.       WRITE (WTE, *) IWORD
  12.       IF (WIO.NE.0) WRITE (WIO, *) IWORD
  13.       CALL DSBLLN (NUMRET)
  14. C
  15.       RETURN
  16.       END
  17.