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 / GETLAB.FOR < prev    next >
Encoding:
Text File  |  1991-04-13  |  1.0 KB  |  49 lines
  1.       SUBROUTINE GETLAB (LAB1)
  2.       IMPLICIT NONE
  3. C
  4. C ***      READ ASCII STRING.
  5. C ***       IF BLANK LINE IS ENTERED,  INPUT STRING IS UNCHANGED.
  6. C
  7.       CHARACTER*1 LAB1(80)
  8. C
  9.       INCLUDE MATLAB$KOM:IOP.KOM
  10. C
  11.       CHARACTER*1 LAB(80)
  12.       INTEGER I, INDEX, LABTAG
  13. C
  14. C
  15.       DO 2 I = 1, 80
  16.         LAB(I) = Z'20'
  17. 2     CONTINUE
  18.       INDEX = 80
  19.       READ (RTE, 4) (LAB(I), I = 1, 80)
  20. 4     FORMAT (80A1)
  21. C2     WRITE (WTE, 13) (LAB(I), I = 1, 80)
  22. C13    FORMAT (1X, 80Z2)
  23.       IF (WIO.NE.0) WRITE (WIO, 6) (LAB(I), I = 1, 80)
  24. 6     FORMAT (1X, 80A1)
  25.       LABTAG = 0
  26.       DO 23 I = 1, 80
  27.         IF (LAB(I).NE.' ') THEN
  28.           LABTAG = 1
  29.           GO TO 24
  30.         ENDIF
  31. 23    CONTINUE
  32. 24    CONTINUE
  33.       IF (LABTAG.NE.0) THEN
  34.         DO 7 I = 1, 80
  35.           LAB1(I) = LAB(I)
  36. 7       CONTINUE
  37. 8       CONTINUE
  38.         IF (LAB1(INDEX).NE.' ' .OR. INDEX.LE.0) GO TO 9
  39.         INDEX = INDEX - 1
  40.         GO TO 8
  41. C
  42. 9       CONTINUE
  43.         LAB1(INDEX+1) = Z'00'
  44.       ENDIF
  45. C
  46. C      WRITE (WTE, 13) (LAB1(I), I = 1, 80)
  47.       RETURN
  48.       END
  49.