CIPRIME CNCUR                                                           CNCUR       1
      COMPLEX CURR                                                      CNCUR       2
      COMMON /CUR/ CURR(NB)                                             CNCUR       3
      DIMENSION RCURR(NB*2)                                             CNCUR       4
      EQUIVALENCE (RCURR(1),CURR(1))                                    CNCUR       5
