CIPRIME CNMDAT                                                          CNMDAT      1
      COMMON /MDAT/ JLN,DDAT(NDAT)                                      CNMDAT      2
      DIMENSION IDDAT(NDAT)                                             CNMDAT      3
      EQUIVALENCE (DDAT(1),IDDAT(1))                                    CNMDAT      4
