	TriArr[itri]->eint = Emin;
	TriArr[itri]->eint = Emin;
TriRot:	TriArr[itri]->eint = Emin;
		   TriArr[i]->eint = Ebck;
		   TriArr[i]->eint = Ebck;
		   TriArr[i]->eint = Ebck;
   Tri1.eint = emin;
	TriArr[k]->eint = Einter;
		TriArr[k]->eint = Etor;
	TriArr[itri]->eint = enermin;
		   TriArr[ntrism1]->eint = TriArr[j]->eint + TriFin[k]->eint;
	TriArr[k]->eint = Einter;
