/* Copyright (C) 1992, 1995 by Thomas Glen Smith.  All Rights Reserved. */
/* member APL2 V1.0.0 **************************************************
* Returns a pointer to an APLCB for a APL variable of the same shape   *
* as left.  An element will be 1 if the corresponding element of left  *
* belongs to rite.                                                     *
***********************************************************************/
#define INCLUDES APLCB
#include "includes.h"
Aplcb member(left,rite)
Aplcb left,rite;
{
	Memixcm;

	return(memixcm(0,rite,left));
}