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