*KEEP,CCOMN2.
      COMMON/CCOMN2/IBBARR(200),WENO