C
      COMMON /CBCNSI/ IRC
      COMMON /CBCNSC/ NEWSTA
      CHARACTER*7 NEWSTA