#define INCLUDES APLCB+APLMAIN+STDIO
#include "includes.h"
main()
{
	Dabs; Dabsp; Dabsx; Endoper; Iabs; Iabsp;
     Imonadic; Litvect; Monadic; Quadout;
     double rite[2],ret[2];
     int irite,iret;
     #include "aplinit.h"

     endoper(quadout(monadic(dabs,
          litvect("3.14 -3.14"))));
     *rite = -5.6;
     dabsp(rite,ret);
     printf("dabsp returned %f\n",*ret);
     *rite = 2.0;
     *(rite+1) = -3.0;
     dabsx(rite,ret);
     printf("dabsx returned %fj%f\n",*ret,*(ret+1));
     endoper(quadout(imonadic(iabs,
          litvect("3 -3"))));
	irite=-1;
     iabsp(&irite,&iret);
     printf("iabsp returned %d\n",iret);
}