C-----THIS IS COMMON/INCLUDE FILE DPCODD.INC-----
C     THIS IS COMMON FOR DDS CODE
C
CCCCC ORIGINAL--APRIL       1996.
      PARAMETER (MXNOB=MAXOBV)
      PARAMETER (MXSER=3)
      PARAMETER (MXSR2=MXSER**2)
      PARAMETER (MXPAR=45)
      PARAMETER (MXPAR1=MXPAR+1)
      PARAMETER (MXINV=50)
      PARAMETER (MXNOB1=MXNOB+1)
      PARAMETER (MXINV1=MXINV+1)
      PARAMETER (MP=6*MXPAR/5)
      PARAMETER (MP1=MP+1)
C
      DOUBLE PRECISION XX
      REAL SEAS, DELTA, STEP, CONTOL
      COMMON /INDEX/ INDEX,MAXLAG,NOB,NSER,NPHI0,NPHI,NSEAS
      COMMON /LAG/ LAG(MXSER,MXSER),NAR(MXSER,MXSER),NMA(MXSER)
      COMMON /FLAG/ IFMEAN,IFAT,IFSEAS,IFGREEN,IFSPECTR
      COMMON /SEASON/ NPOLY,NEXP,NSIN,ISEAS(30),SEAS(30),DELTA
      COMMON /BLOK1/ STEP,CONTOL,ITMAX,IFREF
      COMMON /JOSHI/ XX
C