Metropoli BBS
VIEWER: sam208.c MODE: TEXT (ASCII)
#define INCLUDES APLCB+APLMAIN+STDIO
#include "includes.h"
main()
{
     Ceil; Ceilp; Ceilx; Endoper; Litvect; Monadic; Quadout;
     double num[2],ret[2];
     #include "aplinit.h"

     endoper(quadout(monadic(ceil,
          litvect("3.14 -3.14"))));
     *num = -3.14;
     ceilp(num,ret);
     printf("ceilp returned %f\n",*ret);
     *num = 1.5;
     *(num+1) = 2.5;
     ceilx(num,ret);
     printf("ceilx returned %fj%f\n",*ret,*(ret+1));
}
[ RETURN TO DIRECTORY ]