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 / plrest.for < prev    next >
Encoding:
Text File  |  1991-04-13  |  1.8 KB  |  77 lines
  1.       SUBROUTINE PLREST (XXX, YYY, M, N, INCTRL, IOCTRL, IZ)
  2.       IMPLICIT NONE
  3. C
  4. C ***      RESTORE PLOTS AS SAVED BY SAVPLT
  5. C
  6.       INTEGER M, N, INCTRL, IOCTRL
  7.       REAL XXX(M,N), YYY(M,N)
  8. C
  9.       INCLUDE MATLAB$KOM:SIZEPARMS.INC
  10. C
  11.       CHARACTER*1 IZ(VARSIZE)
  12. C
  13.       INCLUDE MATLAB$KOM:MATPLT.KOM
  14.       INCLUDE MATLAB$KOM:PLT3D.KOM
  15.       INCLUDE MATLAB$KOM:PLTXY.KOM
  16.       INCLUDE MATLAB$KOM:BAR.KOM
  17.       INCLUDE MATLAB$KOM:PLTCP.KOM
  18.       INCLUDE MATLAB$KOM:PLTPP.KOM
  19.       INCLUDE MATLAB$KOM:SAV.KOM
  20. C
  21.       INTEGER I, J, ISTRT, IEND, IERR
  22.       CHARACTER*1 D3PL(328), XYPL(XYSIZ), BPPL(440), CPPL(376),
  23.      .            POPL(PLSIZ)
  24.       EQUIVALENCE (D3PL, XLAB3D), (XYPL, XLABXY), (BPPL, FGRPBP)
  25.       EQUIVALENCE (XLABCP, CPPL), (RMAX, POPL)
  26. C
  27. C
  28.       IF (INCTRL.EQ.0) THEN
  29.         ISTRT = 1
  30.         IEND = PLTMAX
  31.       ELSE
  32.         ISTRT = INCTRL
  33.         IEND = INCTRL
  34.       ENDIF
  35.       DO 1000 I = ISTRT, IEND
  36.         GO TO (100, 200, 300, 400, 500) IPLTYP(I)
  37.         GO TO 1000
  38. C
  39. 100     CONTINUE
  40.         DO 110 J = 1, 328
  41.           D3PL(J) = ISAV(I,J)
  42. 110     CONTINUE
  43.         CALL D3PLOT (XXX, M, N, 1, IERR, IZ)
  44.         GO TO 1000
  45. C
  46. 200     CONTINUE
  47.         DO 210 J = 1, XYSIZ
  48.           XYPL(J) = ISAV(I,J)
  49. 210     CONTINUE
  50.         CALL XYPLT (XXX, M, N, 1, IERR)
  51.         GO TO 1000
  52. C
  53. 300     CONTINUE
  54.         DO 310 J = 1, 440
  55.           BPPL(J) = ISAV(I,J)
  56. 310     CONTINUE
  57.         CALL BARPLT (XXX, M, N, 1, IERR)
  58.         GO TO 1000
  59. C
  60. 400     CONTINUE
  61.         DO 410 J = 1, 376
  62.           CPPL(J) = ISAV(I,J)
  63. 410     CONTINUE
  64.         CALL CONTUR (XXX, M, N, 1, IERR, IZ)
  65.         GO TO 1000
  66. C
  67. 500     CONTINUE
  68.         DO 510 J = 1, PLSIZ
  69.           POPL(J) = ISAV(I,J)
  70. 510     CONTINUE
  71.         CALL POLPLT (XXX, YYY, M, N, 1, IERR, IZ)
  72. C
  73. 1000  CONTINUE
  74. C
  75.       RETURN
  76.       END
  77.