CIPRIME CNSTN                                                           CNSTN       1
      COMMON /STN/ INAME(NB3)                                           CNSTN       2
