*KEEP,CCOMN3.
      COMMON/CCOMN3/KINDI(200),WENI