CIPRIME CNMYVA                                                          CNMYVA      1
*IF -MI2                                                                CNMYVA      2
      INTEGER*2 MYVAR                                                   CNMYVA      3
*ENDIF                                                                  CNMYVA      4
      COMMON /MYVA/ MYVAR(9,MP)                                         CNMYVA      5
