CIPRIME EQYVAR                                                          EQYVAR      1
C                                                                       EQYVAR      2
      INTEGER IYVAR(NSI)                                                EQYVAR      3
      EQUIVALENCE (YVAR(1),IYVAR(1))                                    EQYVAR      4
C                                                                       EQYVAR      5
