      IMPLICIT      NONE
C----
C---- Parameters
C----
      INTEGER       IMAX, NLMAX, NCMAX, MAXZ, ITAU, MAXXLINES
      PARAMETER     (IMAX=300000)
      PARAMETER     (ITAU=1000)
      PARAMETER     (NLMAX=25)
      PARAMETER     (NCMAX=25)
      PARAMETER     (MAXZ=25)
      PARAMETER     (MAXXLINES=20)
C----
C---- Character variables
C----
      CHARACTER*80  FILENAME, FILENAME2, FN
      CHARACTER*132 CCC(NCMAX), TEKST, XTEKST, YTEKST, ZTEKST(MAXZ)
      CHARACTER*2   NCREL(NCMAX), CCREL(NCMAX)
      CHARACTER*15  SMINX, SMAXX, SMINY, SMAXY, SSCALX, SSCALY
      CHARACTER*50  XLINES(MAXXLINES)

      COMMON /SCC/  NCREL, CCREL, CCC, TEKST, XTEKST, YTEKST, FILENAME,
     +              FILENAME2, FN, SMINX, SMAXX, SMINY, SMAXY, SSCALX,
     +              SSCALY, ZTEKST, XLINES
C----
C---- Real data arrays
C----
      REAL          DATAX(IMAX), DATAY(IMAX), DATAR(IMAX), TEMP(IMAX),
     +              DATASDX(IMAX), DATASDY(IMAX),
     +              LINE1VAL(NLMAX), LINE2VAL(NLMAX),
     +              XZ(MAXZ), YZ(MAXZ)
      COMMON /SCR1/ DATAX, DATAY, DATAR, TEMP, DATASDX, DATASDY,
     +              LINE1VAL, LINE2VAL, XZ, YZ
C----
C---- Integer*2 variables
C----
      INTEGER*2     DATADOT(IMAX)
      COMMON /SCR2/ DATADOT
C----
C---- Logical variables
C----
      LOGICAL       PL, LI, SORTX, DO_SPLINE, CUMAV, APPEND, TEX, 
     +              SHRINK_SQUARE, EXTEND_SQUARE, PFFT, FFT, ACF, PUB,
     +              AX, EXTRALINE3, EXTRALINE4, FIGFILE, TORSR, FOLD,
     +              LOGX, LOGY, LOGR, LSQL, CSL, BLSQ, LCUMAV, RANK,
     +              ABSX, ABSY, ABSR, TIC, CUMSUM, NOTEXT, FULLNUM,
     +              ROBUST, SAMELENGTH, XSIXTY, YSIXTY, TITLE, THOR,
     +              REVX, REVY, SECSTR
      COMMON /SCRL/ PL, LI, SORTX, DO_SPLINE, CUMAV, APPEND, TEX, 
     +              SHRINK_SQUARE, EXTEND_SQUARE, PFFT, FFT, ACF, PUB,
     +              AX, EXTRALINE3, EXTRALINE4, FIGFILE, TORSR, FOLD, 
     +              LOGX, LOGY, LOGR, LSQL, CSL, BLSQ, LCUMAV, RANK,
     +              ABSX, ABSY, ABSR, TIC, CUMSUM, NOTEXT, FULLNUM,
     +              ROBUST, SAMELENGTH, XSIXTY, YSIXTY, TITLE, THOR,
     +              REVX, REVY, SECSTR
C----
C---- Integer variables
C----
      INTEGER       ICC, INC, CCK(NCMAX), NCK(NCMAX), DOTSTYLE,
     +              LINESTYLE, SMOOTH, EXTRALINE1, EXTRALINE2, IPL,
     +              NLIN, NSPLIN, AVER, LSQ, NPLX, NPLY, IWAR1, IWAR2,
     +              NDATA, NX, NY, NR, NSDX, NSDY, NDOT, ASCALX, ASCALY,
     +              NZ, AXDIV, PEAK, POLYGRADE, INTERVAL, NXLINES
      COMMON /SCRI/ ICC, INC, CCK, NCK, DOTSTYLE, LINESTYLE, SMOOTH, 
     +              EXTRALINE1, EXTRALINE2, IPL, NLIN, NSPLIN, AVER,
     +              LSQ, NPLX, NPLY, IWAR1, IWAR2, NDATA, NX, NY, NR,
     +              NSDX, NSDY, NDOT, ASCALX, ASCALY, NZ, AXDIV, PEAK,
     +              POLYGRADE, INTERVAL, NXLINES
C----
C---- Simple REAL variables
C----
      REAL          SCUMAV, HI, WI, XMOD, YMOD, XRANG, YRANG, RRANG,
     +              WIT, XOFF, YOFF, XMARG, YMARG, ERX, ERY, RAD,
     +              NCC(NCMAX), A, B, SIGA, SIGB, COV, Q, CHI2, R,
     +              PROB, GETALDOT, DMAXX, DMINX, DMAXY, DMINY, DMINR,
     +              DMAXR, POSHI, POSWI, POSH, SX, SY, EX, EY, RM, SR,
     +              ER, PSCALX, PSCALY, SCALX, SCALY, SCALR, RHO, DD,
     +              DDPROB, RS, RSPROB, TAU, TAUPROB, SPACE, ABDEV,
     +              RMINX, RMAXX, RMINY, RMAXY
      COMMON /SCRR/ SCUMAV, HI, WI, XMOD, YMOD, XRANG, YRANG, RRANG,
     +              WIT, XOFF, YOFF, XMARG, YMARG, ERX, ERY, RAD, NCC,
     +              A, B, SIGA, SIGB, COV, Q, CHI2, R, PROB, GETALDOT,
     +              DMAXX, DMINX, DMAXY, DMINY, DMINR, DMAXR, POSHI,
     +              POSWI, POSH, SX, SY, EX, EY, RM, SR, ER, PSCALX,
     +              PSCALY, SCALX, SCALY, SCALR, RHO, DD, DDPROB, RS,
     +              RSPROB, TAU, TAUPROB, SPACE, ABDEV,
     +              RMINX, RMAXX, RMINY, RMAXY
