#define INCLUDES APLCB+APLMAIN+STDIO
#include "includes.h"
main()
{
	Dbleq; Dbleqp; Dyadic; Endoper; Eq; Eqp; Eqx;
     Idyadic; Ieq; Litvect; Quadout; Relative;
     double left[2],rite[2],ret[2];
     int ileft,irite,iret;
     #include "aplinit.h"

     endoper(quadout(dyadic(dbleq,
          litvect("1.1 2.2 3.3"),
          litvect("3.3 2.2 1.1"))));
     endoper(quadout(relative(eq,
          litvect("1.1 2.2 3.3"),
          litvect("3.3 2.2 1.1"))));
     endoper(quadout(idyadic(ieq,
          litvect("1 2 3"),
          litvect("3 2 1"))));
     *left = 2.1;
     *rite = 5.6;
     dbleqp(left,rite,ret);
     printf("dbleqp returned %f\n",*ret);
     eqp(left,rite,&iret);
     printf("eqp returned %d\n",iret);
     *left = 2.0; *(left + 1) = 0.0;
     *rite = 3.0; *(rite + 1) = 2.0;
     eqx(left,rite,&iret);
     printf("eqx returned %d\n",iret);
}