/*Copyright (C) 1993, 1996 by Thomas Glen Smith.  All Rights Reserved.*/
/* outrprdi.h APL2 V1.0.0 **************************************
* Included in outrprdb, -c, and -d, this is the set of nested  *
* loops that completes the outer product process.              *
***************************************************************/
	ap=outdata;
	lp=leftdata;
	i=leftcnt;
	while(0<i--) {
		rp=ritedata;
		j=ritecnt;
		while(0<j--) *ap++=(*oper)(*lp,*rp++);
		lp++;
	}