File=XDATCAR
awk ' BEGIN {Rad2Deg=180/4*atan2(1,1)}{Tips=$0
		getline; a=$1/10; b=a; c=a;
		if(NF>=2)b=$2/10; if(NF>=3)c=$3/10
		getline; ax=$1*a; ay=$2*b; az=$3*c
		getline; bx=$1*a; by=$2*b; bz=$3*c
		getline; cx=$1*a; cy=$2*b; cz=$3*c
		Natm=0
		getline; Nelm=NF; for(i=1; i<=Nelm; i++) Sym[i]=$i
		getline; for(i=1; i<=Nelm; i++){ Numb[i]=$i; Natm=Natm+$i}
		getline; step=$NFYesCar=0; if($0~/^[::space::]*[C|c]/)YesCar=1

		print Tips " step= "step
		print Natm
		n=0
		for(i=1; i<=Nelm; i++){for(j=1; j<=Numb[i]; j++){
				getline; n++
				x=$1/10; y=$2/10; z=$3/10
				if(!YesCar){x=ax*$1+ay*$2+az*$3y=bx*$1+by*$2+bz*$3z=cx*$1+cy*$2+cz*$3}
				printf("%8s%7s%5d%8.3f%8.3f%8.3f\n", i"ELM", Sym[i], n, x, y, z)}}
		print ax, by, cz, ay, az, bx, bz, cx, cy
	}'$File  > $File.gro