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 / savfil.for < prev    next >
Encoding:
Text File  |  1991-04-13  |  986 b   |  41 lines
  1.       SUBROUTINE SAVFIL
  2.       IMPLICIT NONE
  3. C
  4. C ***      SAVE PLOT DEFINITIONS
  5. C
  6.       INCLUDE MATLAB$KOM:SIZEPARMS.INC
  7.       INCLUDE MATLAB$KOM:IOP.KOM
  8.       INCLUDE MATLAB$KOM:MATPLT.KOM
  9.       INCLUDE MATLAB$KOM:SAV.KOM
  10. C
  11.       CHARACTER*8 ICURS
  12.       CHARACTER*4 NAME(32)
  13.       INTEGER IPL, I, J, KK
  14. C
  15.       DATA ICURS / 'PLTSAV>>' /
  16. C
  17. C
  18.       IPL = 45
  19.       CALL DSSTRN (' PLEASE ENTER THE SAVE FILE NAME.', 1)
  20.       CALL DSCURS (ICURS)
  21.       READ (RTE, 15) NAME
  22. 15    FORMAT (32A1)
  23.       CALL FILES (IPL, NAME)
  24.       IF (FE.EQ.0) THEN
  25.         WRITE (IPL, 25) PLTCNT, PLTMAX
  26. 25      FORMAT (2I2)
  27.         DO 50 J = 1, 10
  28.           IF (IPLTYP(J).GT.0 .AND. IPLTYP(J).LT.10) THEN
  29.             WRITE (IPL, 30) IPLTYP(J)
  30. 30          FORMAT (I1)
  31.             WRITE (IPL, 35) (ISAV(J,KK), KK = 1, 360)
  32.             WRITE (IPL, 35) (ISAV(J,KK), KK = 361, XYSIZ)
  33. 35          FORMAT (360Z2)
  34.           ENDIF
  35. 50      CONTINUE
  36.         CALL FILES (-1*IPL, NAME)
  37.       ENDIF
  38. C
  39.       RETURN
  40.       END
  41.