/*Copyright (C) 1993, 1996 by Thomas Glen Smith.  All Rights Reserved.*/
/* memixi.h APL2 V1.0.0 ************************************************
* This code is common to memixb, -c, and -d.  It completes the         *
* processing of member and indexof functions.                          *
***********************************************************************/
	op = out->aplptr.aplint; /* output data ptr */
	for (i=0; i<rite->aplcount; i++) {
		lw = lp; /* left data ptr */
		Getset
		for (j=0; j<left->aplcount; j++) {
			Test
			if (k) break;
		}
		if (key) k = j+indxorg; /* it is indexof */
		*op++ = k;
		rp++;
	}
	return(errstop(0,left,rite,out));