CIPRIME CNMSTA                                                          CNMSTA      1
*IF -MI2                                                                CNMSTA      2
      INTEGER*2 MSTATE,MSTATB                                           CNMSTA      3
*ENDIF                                                                  CNMSTA      4
      COMMON /MSTA/ MSTATE(7,MP+1),MSTATB(2,NM)                         CNMSTA      5
