!---------------------------------------------------------------------
  PARAMETER ( NFR=20, NN1=29, NN2=4, NN=NN1+NN2+1 &
    , NTAB=9, NFIMX=201, NCMX=6 &
    , NTT=NN*(NN-1)/2, NTCE1=NN1*(NN1-1)/2-7, NTCE2=NN2*(NN2-1)/2 &
    , NTC=NTCE1+NTCE2+NN-1, NTRD=76, NTRC=NN-1, NTSTA=3, NFRC=15 )
!
  INTEGER, DIMENSION(NN) :: INF
  INTEGER, DIMENSION(NTC) :: ITC
  INTEGER, DIMENSION(NTRC) :: ICTC, ITRC
  INTEGER, DIMENSION(NTRD) :: ITRD, NFINT
  INTEGER, DIMENSION(NTT) :: NINF, NSUP, ICRAD
  INTEGER, DIMENSION(NN,NN) :: ITINV
  REAL HM
  REAL, DIMENSION(NFR) :: XFR, WFR
  REAL, DIMENSION(NN-1) :: QNLEV
  REAL, DIMENSION(NN) :: BJ, FRN, POM
  REAL, DIMENSION(NTAB) :: TAB
  REAL, DIMENSION(NCMX) :: CPZER
  REAL, DIMENSION(NTC) :: FIJ
  REAL, DIMENSION(NTRD) :: AJI, BIJ, BJI, FRCR, GAMN, DLDREF, DNDREF
  REAL, DIMENSION(NTSTA) :: TSTA
  REAL, DIMENSION(NCMX,NTRD) :: CPOL
  REAL, DIMENSION(NFIMX,NTRD) :: FINT, FRFI
  REAL, DIMENSION(NFR,NTRD) :: FRR, HIIR
  REAL, DIMENSION(NFRC,NTRC) :: FRC, OREF, SEPH, WFRC, HIIC
  REAL, DIMENSION(NTSTA,NTRD) :: STA2
  REAL, DIMENSION(NPSI,NR,NN) :: HN
  REAL, DIMENSION(NPSI,NR,NTC) :: CIJ, CJI
  REAL, DIMENSION(NPSI,NR,NTRC) :: RIC, RCI
  REAL, DIMENSION(NPSI,NR,NTRD) :: HJBAR, RIJ, RJI, CAL, SL, DNDL &
    , AMRL
  REAL, DIMENSION(NFR,NPSI,NR,NTRD) :: PHIL, WFRL
  REAL, DIMENSION(NZETA,NTHET,NPSI,NFR,NTRD) :: HJ1R, HJ2R
  REAL, DIMENSION(NZETA,NTHET,NPSI,NFRC,NTRC) :: HJ1C, HJ2C
  REAL, DIMENSION (3,NN1) :: CCI1
  REAL, DIMENSION (2,NTCE1) :: COIS
  REAL, DIMENSION (3,NTCE1) :: COIS2
  REAL, DIMENSION(NTAB,NTCE2) :: CCE2
!
  COMMON /HELIUM/ INF, ITC, ICTC, ITRC, ITRD, NFINT, NINF, NSUP &
    , ICRAD, ITINV, HM, XFR, WFR, QNLEV, BJ, FRN, POM, TAB, CPZER &
    , FIJ, AJI, BIJ, BJI, FRCR, GAMN, DLDREF, DNDREF &
    , TSTA, CPOL, FINT, FRFI &
    , FRR, HIIR, FRC, OREF, SEPH, WFRC, HIIC, STA2, HN, CIJ, CJI &
    , RIC, RCI, HJBAR, RIJ, RJI, CAL, SL, DNDL, AMRL &
    , PHIL, WFRL, HJ1R, HJ2R, HJ1C, HJ2C, CCI1, COIS, COIS2, CCE2
!---------------------------------------------------------------------