CIPRIME CNMNEW                                                          CNMNEW      1
*IF -MI2                                                                CNMNEW      2
      INTEGER*2 MNEW                                                    CNMNEW      3
*ENDIF                                                                  CNMNEW      4
      INTEGER*4 NOPDAT                                                  CNMNEW      5
      LOGICAL IRAREA,IRZONE,JREBUS                                      CNMNEW      6
      DIMENSION LBUS(NB)                                                CNMNEW      7
      EQUIVALENCE (LBUS(1),JREBUS(1))                                   CNMNEW      8
      COMMON /SCRAT5/ IRAREA(100),IRZONE(100),JREBUS(NB)                CNMNEW      9
     &,MNEW(100000),JBSTAT(NB),NOPDAT(MONL)                             CNMNEW     10
