home *** CD-ROM | disk | FTP | other *** search
/ Frozen Fish 1: Amiga / FrozenFish-Apr94.iso / bbs / alib / d4xx / d499 / matlab.lha / Matlab / matlab.lzh / Source / Plot / DSSTRC.FOR < prev    next >
Encoding:
Text File  |  1991-04-13  |  367 b   |  17 lines
  1.       SUBROUTINE DSSTRC (COLORA, ISTRNG, COLORB, NUMRET)
  2.       IMPLICIT NONE
  3. C
  4. C ***      CHANGE TO COLORA, DISPLAY STRING, CHANGE TO COLORB
  5. C           (WITH <NUMRET> RETURNS)
  6. C
  7.       INTEGER COLORA, COLORB, NUMRET
  8.       CHARACTER*(*) ISTRNG
  9. C
  10. C
  11.       CALL DSWDA4 (COLORA, 0)
  12.       CALL DSSTRN (ISTRNG, 0)
  13.       CALL DSWDA4 (COLORB, NUMRET)
  14. C
  15.       RETURN
  16.       END
  17.