C-----------------------------------------------
C  CONTROL BLOCK FOR THE NEXT PLOT - CF. GSCSET SUBROUTINE
C
      real xmin00,xmax00,ymin00,ymax00,xrat00,yrat00
      integer noptx,nopty,igsini
C
      COMMON/GSC001/ 
     >          XMIN00,XMAX00,YMIN00,YMAX00,
     >          XRAT00,YRAT00,NOPTX,NOPTY,IGSINI
C
C  RECORD OF SCALES OF RECENTLY DRAWN PLOTS
C
      integer, PARAMETER :: MXSPRV=10 ! NUMBER OF RECENT SCALES TO REMEMBER
C
      integer :: nscprv,ncursc
      REAL XMINP(MXSPRV),YMINP(MXSPRV),XMAXP(MXSPRV),YMAXP(MXSPRV)
C
      COMMON/GSC002/ XMINP,XMAXP,YMINP,YMAXP,NSCPRV,NCURSC
C
C  BLOCK FOR X,Y MIN/MAX OF DATA
C
      real gminx,gminy,gmaxx,gmaxy,gminxp,gminyp
      real gminx0,gminy0,gmaxx0,gmaxy0,gmnxp0,gmnyp0
C
      COMMON/GSC003/ GMINX,GMINY,GMAXX,GMAXY,GMINXP,GMINYP,
     >     GMINX0,GMINY0,GMAXX0,GMAXY0,GMNXP0,GMNYP0
C
C-----------------------------------------------
 
      SAVE /gsc001/,/gsc002/,/gsc003/
