/*Copyright (C) 1992, 1996 by Thomas Glen Smith.  All Rights Reserved.*/
/* memixc APL2 V1.0.0 **************************************************
* Called from memixcm to complete processing for member and indexof    *
* when the input data are integers (APLINT).                           *
***********************************************************************/
#define INCLUDES APLCB
#include "includes.h"
Aplcb memixc(key,left,rite,out)
int key;
Aplcb left,rite,out;
{
	Errstop;
	extern int indxorg;
	int i,j,k,*op;
	int *lp,*rp,*lw;

	lp=left->aplptr.aplint;
	rp=rite->aplptr.aplint;
#define Getset k=0;
#define Test if (*rp == *lw++) k=1;
#include "memixi.h"
}