CIPRIME CNIPTR                                                          CNIPTR      1
*IF -MI2                                                                CNIPTR      2
      INTEGER*2  NBTDL,NTHG,KTHGE,NGBUS                                 CNIPTR      3
*ENDIF                                                                  CNIPTR      4
      COMMON /IPTR/ NBTDL(3,NB),NBARZO(NB),NOLD(NB)                     CNIPTR      5
     &,NLDOLD(NZL),NTHG(MP+1),KTHGE(MP+1),NGBUS(NM),NMOLD(NMT)          CNIPTR      6
     &,NROLD(NSR),NPAD(128),NLAD(128),NTAD(128),NEXTIM(NMT),ISBUS(50)   CNIPTR      7
*IF LTSP                                                                CNIPTR      8
*ENDIF                                                                  CNIPTR     10
*IF -MI2                                                                CNIPTR     11
      INTEGER*2 NTHL,NTHM,NTHSR                                         CNIPTR     12
*ENDIF                                                                  CNIPTR     13
      DIMENSION NTHL(3,NB),NTHM(3,NB),NTHSR(3,NB)                       CNIPTR     14
      EQUIVALENCE (NBTDL(1,1),NTHL(1,1)),(NBTDL(1,1),NTHM(1,1))         CNIPTR     15
     1           ,(NBTDL(1,1),NTHSR(1,1))                               CNIPTR     16
                                                                        CNIPTR     17
