C*************** START FILE EXTRAC.BLK ; GROUP EXTRAC *************
C
C **EXTRAC2.BLK** -- same as EXTRAC.BLK but with smaller parameters
C    used to give EXTRAC like capabilities to RPLOT but not blow out
C    its memory requirements.  DMC 23 Jul 1996
C
C  COMMON BLOCK AND PARAMETERS FOR UFILES EXTRAC UTILITY
C
      PARAMETER (MAXIND=42000)
      PARAMETER (MAXTOT=420000)
      PARAMETER (MAXSC=500)
C
C  DATA BUFFERS AND LABELS
      REAL X(MAXIND),Y(MAXIND),ZWK(MAXIND),ZWK1(MAXIND),
     >          F(MAXTOT),SCV(MAXSC)
      REAL XB(MAXIND),YB(MAXIND),FB(MAXTOT)
      LOGICAL LX(MAXIND),LY(MAXIND)
      REAL XTARG(MAXIND),YTARG(MAXIND),XTRAP(3,2),YTRAP(3,2)
      INTEGER IORDSC(MAXSC)
C
      CHARACTER*10 ZSDATE,XLAB(3),YLAB(3),FLAB(3),ZTITLE(3)
      CHARACTER*4 IDEV
      CHARACTER*10 LYABL(5),SCLAB(3,MAXSC)
      CHARACTER*3 CMPSTA(2)
C
      COMMON/CXTRAC/ X,Y,ZWK,ZWK1,F,SCV,
     >     IORDSC,ILUNI,ILUNO,ILUNT,ILUNC,IPROC,
     >     ISHOT,NUMSC,NXACT,NYACT,
     >     XB,YB,FB,LX,LY,ICOMPR,
     >     ILUNX,ILUNY,XTARG,YTARG,NXTARG,NYTARG,
     >     XTRAP,YTRAP,LXTRAP,LYTRAP
C
      COMMON/CXTRCC/ ZSDATE,XLAB,YLAB,FLAB,ZTITLE,
     >     IDEV,LYABL,SCLAB,CMPSTA
C
C*************** END FILE EXTRAC.BLK ; GROUP EXTRAC *************
 
      SAVE /cxtrac/,/cxtrcc/
