character*5 qvtype             
      common
     $/cbkvregime/ ivsca(mvreg,mvzone),dvvreg(mvreg,mvzone),
     $             nnvreg(mvreg),invrc,nitvc(mvreg),
     $             qvtype(mvreg,mvzone)