function writemag(magicsquare, fname)
%    function writemag(magicsquare, fname)

fp = fopen(fname, 'r');
if (fp ~= -1)
	overwrite = input('File exists. Overwrite? (yes=1/no=0) :');
	if ( ~overwrite )
		return;
	else
		fclose(fp);
		fp = fopen(fname, 'w');
	end
else
	fp = fopen(fname, 'w');
end

dim = size(magicsquare, 1);
for i=1:dim
	for j=1:dim
		fprintf(fp, '%6d', magicsquare(i,j));
	end
	fprintf(fp, '\n');
	printf('i = %d, %d', i, magicsquare(i,1));
end

fclose(fp);