#include "defs.h"


/* exchange elements ip to Lp-1 of pinvec */

exchange(ip, Lp, odel, ndel)
	DPIN ip, Lp;
	INT odel, ndel;
{
	REG DPIN j, k;

	j = ip; 
	j->del = odel;
	k = Lp; 
	k->del = ndel;
	while(j < --k)
	{
		{
			REG PIN hold;
			hold = j->pinp; 
			j->pinp = k->pinp; 
			k->pinp = hold;
		}
		{
			REG INT hold;
			j++;
			hold = j->del; 
			j->del = k->del; 
			k->del = hold;
		}
	}
}