C 
C     INCLUDE 'rp2d.inc'
C     ------------------------------------------------------------------
      INTEGER NEWMAX
      PARAMETER (NEWMAX=100)
      INTEGER ITER,NEW,INDOLD,IND(NEWMAX),IREOLD,IRE(NEWMAX)
      INTEGER IRAOLD,IRA(NEWMAX)
      REAL AOLD,A(NEWMAX),DAOLD,DA(NEWMAX)
      REAL XOLD,X(NEWMAX),XAOLD,XA(NEWMAX)
      COMMON/RP2DC/ITER,NEW,INDOLD,IND,IREOLD,IRE,IRAOLD,IRA,
     *             AOLD,A,DAOLD,DA,XOLD,X,XAOLD,XA
      SAVE /RP2DC/
C     ------------------------------------------------------------------
C
C     ITER... Number of iterations when searching for the last
C             boundary-value ray.
C     NEW...  Number of computed rays in the current cut (i.e.
C             corresponding to the last value of B) to the right (i.e.
C             for greater values of A) from the interval under study.
C             The interval under study is A = AOLD to A(NEW).  NEW=1
C             when beginning to study a new basic interval.  NEW=NEW+1
C             if the interval under study is divided by a new ray.
C             AOLD=A(NEW) and then NEW=NEW-1 if we change to the next
C             interval.
C     INDOLD..Index of the left-end ray of the interval under study.
C     IND...  Indices of the rays to the right from the interval under
C             study.
C     IREOLD,IRE... Indices of the receivers for two-point rays,
C             otherwise zeros.
C     IRAOLD,IRA... Indices of the rays.
C     AOLD... Value of a corresponding to the left-end ray of the
C             interval under study.
C     A...    Values of a corresponding to the computed rays situated to
C             the right of the interval under study.
C     DAOLD...Element of a corresponding to the ray A=AOLD.
C     DA...   DA(I) is the element of a corresponding to the ray A=A(I).
C     XOLD... Value of X-function corresponding to the ray A=AOLD.
C             Defined only for successful rays, i.e. ray crossing the
C             surface ISRFR at least IABS(IPOINT) times.
C     X...    X(I) is the value of X-function corresponding to the ray
C             A=A(I).  Defined only for successful rays.
C     XAOLD...Derivative of X-function with respect to a corresponding
C             to the ray A=AOLD.  Defined only for successful rays.
C     XA...   XA(I) is the derivative of X-function with respect to A
C             corresponding to the ray A=A(I).  Defined only for
C             successful rays.
C
C     Common block /RP2DC/ is included in external procedures RP2D,
C     RP2DM, and RP2DG of 'rp2d.for'.
C
C Date: 1997, November 19
C Coded by Ludek Klimes
C
C=======================================================================
C