**fig6_27.txt**

/* 1*/	template <class Etype>
/* 2*/	Left_Node<Etype> *
/* 3*/	Left_Heap<Etype>::
/* 4*/	Merge1( Left_Node<Etype> *H1, Left_Node<Etype> *H2 )
/* 5*/	{
/* 6*/	    if( H1->Left == NULL )	// Single node.
/* 7*/	        H1->Left = H2;
/* 8*/	    else
/* 9*/	    {
/*10*/	        H1->Right = Merge( H1->Right, H2 );
/*11*/	        if( H1->Left->Npl < H1->Right->Npl )
/*12*/	            Swap( H1->Left, H1->Right );
/*13*/	        H1->Npl = H1->Right->Npl + 1;
/*14*/	    }
/*15*/	    return H1;
/*16*/	}