CIPRIME CNDATA                                                          CNDATA      1
C                                                                       CNDATA      2
      DIMENSION IRDATA(512,200)                                         CNDATA      3
      COMMON/R1/ RDATA(512,200)                                         CNDATA      4
      CHARACTER*4 CRDATA(512,200)                                       CNDATA      5
      EQUIVALENCE (IRDATA(1,1),RDATA(1,1),CRDATA(1,1))                  CNDATA      6
C                                                                       CNDATA      7
