CIPRIME CNULTC                                                          CNULTC      1
C                                                                       CNULTC      2
C                                                                       CNULTC      3
       COMMON/ULTCX/                                                    CNULTC      4
     1             JULTCD(NB/10),JTULTC(NB/10),JSTULT(NB/10),           CNULTC      5
     2             XTAPX(NB*4/10),NULTC,ITCFLG,NREFUC,NAWRUC,MULTSW,    CNULTC      6
     3             RELATC(NB/10),JTRULC(NTR),                           CNULTC      7
     4             MOULTC(NB/10),ULTCOP(NB*9/10),NSC                    CNULTC      8
C                                                                       CNULTC      9
       INTEGER*4 NULTCO(NB*9/10)                                        CNULTC     10
       DIMENSION                                                        CNULTC     11
     1      ONRSTA(NB*4/10),DVRTAP(NB*4/10),                            CNULTC     12
     2      COUNTD(NB*4/10),COUNTM(NB*4/10)                             CNULTC     13
C                                                                       CNULTC     14
       EQUIVALENCE                                                      CNULTC     15
     1             (ONRSTA(1),COUNTD(1),DVRTAP(1),                      CNULTC     16
     2              COUNTM(1),XTAPX(1))                                 CNULTC     17
       EQUIVALENCE                                                      CNULTC     18
     1             (ULTCOP(1),NULTCO(1))                                CNULTC     19
C                                                                       CNULTC     20
