set VASP_path=%1

perl %VASP_path%\VASP.pl --Action=MakeDOSCSV --Width=0.03 --IgnoreZero=0 DOSCAR DOS-up.csv DOS-dn.csv
perl %VASP_path%\MakeOpticsCSV.pl


pause