common
     $/cbkcharmol/ vmcha(nmolmax),
     $             iat1mc(nmolmax),iat2mc(nmolmax)