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 / lodfil.for < prev    next >
Encoding:
Text File  |  1991-04-13  |  1.8 KB  |  70 lines
  1.       SUBROUTINE LODFIL (XXX, YYY, M, N, NAME, INCTRL, IOCTRL, IZ)
  2.       IMPLICIT NONE
  3. C
  4. C ***      LOAD PLOT DEFINITIONS
  5. C
  6.       INTEGER M, N, INCTRL, IOCTRL
  7.       REAL XXX(M,N), YYY(M,N)
  8.       CHARACTER*4 NAME(32)
  9. C
  10.       INCLUDE MATLAB$KOM:SIZEPARMS.INC
  11. C
  12.       CHARACTER*1 IZ(VARSIZE)
  13. C
  14.       INCLUDE MATLAB$KOM:IOP.KOM
  15.       INCLUDE MATLAB$KOM:MATPLT.KOM
  16.       INCLUDE MATLAB$KOM:SAV.KOM
  17. C
  18.       CHARACTER*8 ICURS
  19.       LOGICAL GOTONE
  20.       INTEGER I, J, KK, IPL, IERR
  21. C
  22.       DATA ICURS / 'PLTLOD>>' /
  23. C
  24. C
  25.       IPL = 45
  26.       GOTONE = .FALSE.
  27. 5     CONTINUE
  28.       IF (INCTRL.EQ.0) THEN
  29.         CALL CHKEND
  30.         CALL DSSTRN (' PLEASE ENTER THE FILE NAME TO BE LOADED.', 1)
  31.         CALL DSCURS (ICURS)
  32.         READ (RTE, 15) NAME
  33. 15      FORMAT (32A1)
  34.         IF (WIO.NE.0) WRITE (WIO, 20) NAME
  35. 20      FORMAT (1X, 32A1)
  36.       ENDIF
  37.       DO 22 I = 1, 10
  38.         IPLTYP(I) = 0
  39. 22    CONTINUE
  40.       CALL FILES (IPL, NAME)
  41.       IF (FE.EQ.0) THEN
  42.         READ (IPL, 25, END = 55) PLTCNT, PLTMAX
  43. 25      FORMAT (2I2)
  44. C
  45. C ***      CHECK THE HEADER FOR VALIDITY
  46.         IF (PLTCNT.GT.10 .OR. PLTCNT.LT.1 .OR.
  47.      .      PLTMAX.GT.10 .OR. PLTMAX.LT.1) THEN
  48.           CALL DSERR ('ERROR IN PLOT DEFINITION FILE')
  49.           CALL DSERR ('NOT A VALID PLOT DEFINITION')
  50.           CALL FILES (-1*IPL, NAME)
  51.           GO TO 5
  52.         ENDIF
  53. C
  54. C ***      READ IN THE DEFINITION
  55.         DO 50 J = 1, PLTMAX
  56.           READ (IPL, 30, END = 55) IPLTYP(J)
  57. 30        FORMAT (I1)
  58.           READ (IPL, 35, END = 55) (ISAV(J, KK), KK = 1, 360)
  59.           READ (IPL, 35, END = 55) (ISAV(J, KK), KK = 361, XYSIZ)
  60. 35        FORMAT (360Z2)
  61.           GOTONE = .TRUE.
  62. 50      CONTINUE
  63. 55      CONTINUE
  64.         CALL FILES (-1*IPL, NAME)
  65.         IF (GOTONE) CALL PLREST (XXX, YYY, M, N, 0, IERR, IZ)
  66.       ENDIF
  67. C
  68.       RETURN
  69.       END
  70.