CIPRIME CNTMDA                                                          CNTMDA      1
      COMMON /SCRAT6/ JTLN,TDDAT(NDAT)                                  CNTMDA      2
      DIMENSION ITDDAT(NDAT)                                            CNTMDA      3
      EQUIVALENCE (TDDAT(1),ITDDAT(1))                                  CNTMDA      4
