/* Copyright (C) 1996 by Thomas Glen Smith.	All Rights Reserved. */
/* dyadopec APL2 V1.0.0 ************************************************
* Called by dyadoper to select the subroutine to handle scalar dyadic  *
* operations when either of the input types is APLCHAR.			 *
***********************************************************************/
#define INCLUDES APLCB+FUNCODES+FUNSTRUC
#include "includes.h"
SCALAR_PROC dyadopec(fun, pintype, poutype, ltype, rtype, flags)
Scalar_dyadics *fun;   /* Describes the scalar dyadic. */
int *pintype,*poutype; /* Set by dyadopec to required data types. */
int ltype,rtype,flags; /* Argument data types. */
{
	extern int aplerr;
	SCALAR_PROC oper=NULL;

	if (flags == EQNE) {
		*pintype = ltype | rtype;
		*poutype = APLINT;
		if (ltype == rtype)
			oper = ((Eqne *)fun)->ph;
		else oper = ((Eqne *)fun)->eqnedum;
	} else {
		aplerr = 75;
		return(NULL);
	}
	return(oper);
}