common
     $/cbkvalang/ vval1(nsort),vval2(nvatym),
     $            vval4(nsort),vkac(nvatym),vkap(nvatym),
     $            vka3(nvatym),vka8(nvatym),th0(nvatym)