*! version 1.0.1  04jan2004
version 9.0

mata:

void eigensystem(numeric matrix A, V, lambda, |cond, real scalar nobalance)
{
	numeric matrix Acpy

	if (args()==3) cond = .

	if(isfleeting(A)) _eigensystem(A,      V, lambda, cond, nobalance)
	else 		  _eigensystem(Acpy=A, V, lambda, cond, nobalance)
}

end
