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 / savplt.for < prev    next >
Encoding:
Text File  |  1991-04-13  |  1.5 KB  |  72 lines
  1.       SUBROUTINE SAVPLT (PLTP)
  2.       IMPLICIT NONE
  3. C
  4. C ***      REMEMBER PLOT SETTINGS
  5. C
  6.       INTEGER PLTP
  7. C
  8. C PLTP IS TYPE OF PLOT:
  9. C   1 = 3D PLOT
  10. C   2 = X-Y PLOT OF ANY TYPE
  11. C   3 = BAR PLOT (HISTOGRAM)
  12. C   4 = CONTOUR PLOT
  13. C   5 = POLAR PLOT
  14. C
  15.       INCLUDE MATLAB$KOM:SIZEPARMS.INC
  16.       INCLUDE MATLAB$KOM:MATPLT.KOM
  17.       INCLUDE MATLAB$KOM:PLT3D.KOM
  18.       INCLUDE MATLAB$KOM:PLTXY.KOM
  19.       INCLUDE MATLAB$KOM:BAR.KOM
  20.       INCLUDE MATLAB$KOM:PLTCP.KOM
  21.       INCLUDE MATLAB$KOM:PLTPP.KOM
  22.       INCLUDE MATLAB$KOM:SAV.KOM
  23. C
  24.       INTEGER I
  25. C
  26.       CHARACTER*1 D3PL(328), XYPL(XYSIZ), BPPL(440), CPPL(376),
  27.      .            POPL(PLSIZ)
  28.       EQUIVALENCE (D3PL, XLAB3D), (XYPL, XLABXY), (BPPL, FGRPBP)
  29.       EQUIVALENCE (XLABCP, CPPL), (RMAX, POPL)
  30. C
  31. C
  32.       IF (PLTCNT.EQ.0) PLTMAX = 0
  33.       PLTCNT = PLTCNT+1
  34.       IF (PLTCNT.GT.10) PLTCNT = 1
  35.       IF (PLTMAX.LE.10) PLTMAX = PLTCNT
  36.       IPLTYP(PLTCNT) = PLTP
  37.       GOTO (100, 200, 300, 400, 500) PLTP
  38.       GO TO 900
  39. C
  40. 100   CONTINUE
  41.       DO 110 I = 1, 328
  42.         ISAV(PLTCNT,I) = D3PL(I)
  43. 110   CONTINUE
  44.       GO TO 900
  45. C
  46. 200   CONTINUE
  47.       DO 210 I = 1, XYSIZ
  48.         ISAV(PLTCNT,I) = XYPL(I)
  49. 210   CONTINUE
  50.       GO TO 900
  51. C
  52. 300   CONTINUE
  53.       DO 310 I = 1, 440
  54.         ISAV(PLTCNT,I) = BPPL(I)
  55. 310   CONTINUE
  56.       GO TO 900
  57. C
  58. 400   CONTINUE
  59.       DO 410 I = 1, 376
  60.         ISAV(PLTCNT,I) = CPPL(I)
  61. 410   CONTINUE
  62.       GO TO 900
  63. C
  64. 500   CONTINUE
  65.       DO 510 I = 1, PLSIZ
  66.         ISAV(PLTCNT,I) = POPL(I)
  67. 510   CONTINUE
  68. C
  69. 900   CONTINUE
  70.       RETURN
  71.       END
  72.