**fig6_54.txt**

/* 1*/	template <class Etype>
/* 2*/	Binom_Node<Etype> *
/* 3*/	Binom_Heap<Etype>::
/* 4*/	Merge_Tree( Binom_Node<Etype> *T1, Binom_Node<Etype> *T2 )
/* 5*/	{
/* 6*/	    if( T1->Element > T2->Element )
/* 7*/	        return Merge_Tree( T2, T1 );
/* 8*/	    if( T1->Rank++ == 0 )
/* 9*/	        T1->F_Child = T2;
/*10*/	    else
/*11*/	    {
/*12*/	        T2->L_Sib = T1->F_Child->L_Sib;
/*13*/	        T2->L_Sib->R_Sib = T2;
/*14*/	        T1->F_Child->L_Sib = T2;
/*15*/	    }
/*16*/	    return T1;
/*17*/	}