character*5 qetype
      common
     $/cbkeregime/ qetype(mereg,mezone),nnereg(mereg),nerc,
     $             ereg(mereg,mezone),nitec(mereg)