common
     $/cbkc/ c(nat,3),cglobal(nattot,3),itag(nat),
     $chgglobal(nattot)