Update chgcarhandler.R

changed cellvolume... det(c*a)=c^(dim)*det(a)