integer Lvirial,Latomvirial
common
$/cbkd/ d(3,nat),estrain(nat)
$/cbkvirial/ atomvirial(6,nat),virial(6),Lvirial,Latomvirial