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 / CHKEND.FOR < prev    next >
Encoding:
Text File  |  1991-04-13  |  237 b   |  16 lines
  1.       SUBROUTINE CHKEND
  2.       IMPLICIT NONE
  3. C
  4. C ***      END THE CURRENT PLOT
  5. C
  6.       INCLUDE MATLAB$KOM:MATPLT.KOM
  7. C
  8.       REAL X, Y
  9. C
  10. C
  11.       IF (PLTST) CALL GD13HI (13, X, Y)
  12.       IF (X.NE.0) PLTST = .FALSE.
  13. C
  14.       RETURN
  15.       END
  16.