**fig7_4.txt**

/* 1*/	template <class Etype>
/* 2*/	void
/* 3*/	Shell_Sort( Etype A[ ], const unsigned int N )
/* 4*/	{
/* 5*/	    Etype Tmp;

/* 6*/	    for( int Increment = N / 2; Increment > 0; Increment /= 2 )
/* 7*/	        for( int i = Increment + 1; i <= N; i++ )
/* 8*/	        {
/* 9*/	            Tmp = A[ i ];
/*10*/	            for( int j = i; j > Increment; j -= Increment )
/*11*/	                if( Tmp < A[ j - Increment ] )
/*12*/	                    A[ j ] = A[ j - Increment ];
/*13*/	                else
/*14*/	                    break;
/*15*/	            A[ j ] = Tmp;
/*16*/	        }
/*17*/	}