set cif=%1

perl %tkProg_Root%\tkprog\Perl\WIEN2k\WIEN2k.pl --Action=MakeSymmetrizedStructFile --TOL=0.001 %1 out.struct