CIPRIME CNRED                                                           CNRED       1
C                                                                       CNRED       2
      INTEGER ICBUS(NZL*3),IPBUS(NZL*3)                                 CNRED       3
*IF -MI2                                                                CNRED       4
      INTEGER*2 KNLBS                                                   CNRED       5
*ENDIF                                                                  CNRED       6
      COMPLEX PVOLT                                                     CNRED       7
      COMMON/SCRAT9/NSTART,NSTOP,CBUS(NZL*3),PBUS(NZL*3),KNLBS(NZL)     CNRED       8
     1,CCDG(2,MP),PVOLT(NM)                                             CNRED       9
      EQUIVALENCE (ICBUS(1),CBUS(1)),(IPBUS(1),PBUS(1))                 CNRED      10
