C----------------------------------------------------------------
C  GFTIC.BLK
C
C  BLOCK OF SG TICMARK CONTROLS FOR 2D PLOTS
C
      integer
     >    KNEATX,KNEATY,KNEAT0,KNEATMIN,KNEATMAX,
     >    KFRACX,KFRACY,KFRAC0,KFRACMIN,KFRACMAX,
     >    KFRMCX,KFRMCY,KFRMC0,KFRMCMIN,KFRMCMAX,
     >    KFRAMX,KFRAMY,KFRAM0,KFRAMMIN,KFRAMMAX,
     >    KFRMMX,KFRMMY,KFRMM0,KFRMMMIN,KFRMMMAX

      COMMON/CGFTICS/
     >    KNEATX,KNEATY,KNEAT0,KNEATMIN,KNEATMAX,
     >    KFRACX,KFRACY,KFRAC0,KFRACMIN,KFRACMAX,
     >    KFRMCX,KFRMCY,KFRMC0,KFRMCMIN,KFRMCMAX,
     >    KFRAMX,KFRAMY,KFRAM0,KFRAMMIN,KFRAMMAX,
     >    KFRMMX,KFRMMY,KFRMM0,KFRMMMIN,KFRMMMAX
C
      logical init_gftic
      COMMON/CGFTICI/ init_gftic
C
C  SEE GFLIB SUBROUTINES:  GFTIC0, GFTICI, GFTICS
C
      integer NXR1,NXR2,NYR1,NYR2,NRSET
      COMMON/ZPLOT2/ NXR1,NXR2,NYR1,NYR2,NRSET
      integer KLINTP,KSYMTP,KSYLTP
      real SGSYSZ,SGSLSZ
      COMMON/ZPLOT3/SGSYSZ,SGSLSZ,KLINTP,KSYMTP,KSYLTP
C
      integer, parameter :: IGFTMAXL=10
      integer, parameter :: IGFTMAXS=5
      integer, parameter :: IGFTSYMS=11

      real syszvc
      integer lnstyl,lsystl
 
      COMMON/ZPLOT4/ SYSZVC(IGFTSYMS),LNSTYL(IGFTMAXL),
     >		LSYSTL(IGFTMAXS)
C
C  SEE DPLOT1,DPLOTM ROUTINES
C
C----------------------------------------------------------------
 
      SAVE /cgftics/,/cgftici/,/zplot2/,/zplot3/,/zplot4/
