c Resonances ranges and data sets
c Array boundaries
C
C  0.285       0.5
C   |-----------|--
C       XCPT
C
C     0.318     0.61            1.4
C      |---------|---------------|--
C          XLOW        U0B
C
C            0.592    0.975
C              |--------|    rho range IUNMIX
C          X5Bgrcorr[Xtaucorr]
C
C          0.42     0.81 1.0 1.04
C           |--------|   |----|   omega, phi ranges iomegaphidat
C              U0Bdat,V01Bdat
C
C  1.4         3.1         3.6          5.2           9.46           40.0
C   |-----------|-----------|------------|-------------|---------------|
C        U1Nx        U2N         XBE          X31N           U7A
C
C               3.08               4.52               9.44        11.1
C                |------------------|    psi series    |----------|  Ups series
C
C
C      0.28  0.318 1.05 1.4  2.0  3.2  3.6  5.2  9.46        11.5
C      |-------|-----|---|-- -|----|----|----|----|------------|--
C            rho,omega phi        |--psi---|     |-----Ups----|
C
C Rdat_all.f: XCPT 0.2...- 0.46
C Rdat_upd.f:  U0B,U0Bdat 0.305 - 1.40, U1N  1.40 - 3.2
C epemrdata1n_update.f: U0B,U0Bdat 0.305 - 1.40, U1N 1.4 - 3.2 => Rdat_upd.f
C epemrdata1n_updatehigh.f: XXH 1.841 - 40.0
C              U1Nx=U1N 1.4 - 2.0-eps, U1Nx=XXH 2.0 - 3.2
C              U2N=XXH 3.1 - 3.6, XBE=XXH 3.6 - 5.2
C              X31N=XXH 5.2 - 9.5, U7A=XXH 9.5 - 40.0
C omfiRdat.f: Xomega 0.742 -0.813, Xphi 1.0+ - 1.04
C

Integration rroutine: intRdatx
          iintRd =0 resonances from Rdat_fun/fit
          iintRd =1 resonances via subroutione resonances in intRdatx
		      