CIPRIME CNLCOM                                                          CNLCOM      1
      DIMENSION ITERML(9,2)                                             CNLCOM      2
