CIPRIME CNXSTA                                                          CNXSTA      1
      COMMON /XSTAT/ JSTATE,KSTATE,LSTATE,IDOMG,DSTATE(NSID),XSTATE(NSI)CNXSTA      2
