@echo off

set CMD=perl MakeConnectedPotentialTableSIMPLE.pl

set nAtoms=4
set atom1=O
set atom2=In
set atom3=Ga
set atom4=Zn

set OutputTable=Potential.table

del Potential-*-*.table
del Potential.table

@setlocal enabledelayedexpansion

echo Do for %nAtoms% atoms

for /L %%i in (1,1,!nAtoms!) do (
for /L %%j in (%%i,1,!nAtoms!) do (
	set name1=!atom%%i!
	set name2=!atom%%j!
echo [!name1!-!name2!]
	set file=Potential-!name1!-!name2!.table
	echo.
	echo Run [%CMD% !name1! !name2!] to save [!file!]
	%CMD% !name1! !name2!
	if not exist !file! (
		echo Could not create [!file!]
		goto END
	)
	type !file! >> %OutputTable%
)
)

@endlocal


:END