CIPRIME CNNNEW                                                          CNNNEW      1
*IF -MI2                                                                CNNNEW      2
      INTEGER*2 NNEW                                                    CNNNEW      3
*ENDIF                                                                  CNNNEW      4
      COMMON /NNEW/ NNEW(100000)                                        CNNNEW      5
