/*Copyright (C) 1992, 1995 by Thomas Glen Smith.  All Rights Reserved.*/
/* dyadcom.h APL2 V1.0.0 ***********************************************
* This code is common to cdyadic, dyadic, idyadic, and relative.       *
***********************************************************************/
	if (aplerr)
		return(NULL);
	if (out->aplcount==0)
		return(errstop(0,left,rite,out));
	for (i=out->aplcount; i>0; i--) {
		*dataout++=(*oper)(*leftptr,*riteptr);
		leftptr+=leftinc;
		riteptr+=riteinc;
	}
	return(errstop(0,left,rite,out));