\\ find the order of a galois automorphism
\\ aut is an element of the list output by nfgaloisconj
\\ f is the polynomial that defines the field
{
autorder(aut,f,
	 ord,ans)=
   if(aut == x, return(1));
   ord=1;
   ans=aut;
   while(ans!= x,
	 ans = lift(Mod(subst(ans,x,aut),f));
	 ord++;
	 );
   return(ord);
}