/* Copyright (C) 1992, 1995 by Thomas Glen Smith.  All Rights Reserved. */
/* indexof APL2 V1.0.0 *************************************************
* Returns a pointer to an APLCB for a APL variable of the same shape   *
* as left.  Each element will contain the index (in the origin in      *
* force) of the earliest occurrence of the corresponding element of    *
* left in rite.                                                        *
***********************************************************************/
#define INCLUDES APLCB
#include "includes.h"
Aplcb indexof(left,rite)
Aplcb left,rite;
{
	Memixcm;

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