/*Copyright (C) 1992, 1995 by Thomas Glen Smith.  All Rights Reserved.*/
/* idyadic APL2 V1.0.0 *************************************************
* Called by disclosf, drop, expand, and transpot.                      *
* The integer equivalent of dyadic.                                    *
***********************************************************************/
#define INCLUDES APLCB
#include "includes.h"
Aplcb idyadic(oper,left,rite)
int (*oper)(); /* operator */
Aplcb left,rite; /* operands */
{
	Dyadicm; Errstop; Matchok;
	extern int aplerr;
	int *dataout,*leftptr,*riteptr;
	int i,leftinc,riteinc;
	Aplcb out;

	if (!matchok(&left,&rite,APLINT))
		return(NULL); /* m/b integer */
	out=dyadicm(left,rite,
		(void**)&dataout,(void**)&leftptr,(void**)&riteptr,
		&leftinc,&riteinc,APLINT
		); /* go build APLCB */
#include "dyadcom.h"
}