/* Copyright (C) 1994 by Thomas Glen Smith.  All Rights Reserved. */
/* ceilx APL2 V1.0.0 ***************************************************
* Returns the next higher integer, e.g. for 3.14, returns 4.00, and    *
* for -3.14, returns -3.00.                                            *
***********************************************************************/
#define INCLUDES 0
#include "includes.h"
void ceilx(num, ret)
double *num, *ret;
{
	Floorx;
     double d[2],e[2];

	*d     = -*num;
     *(d+1) = -*(num+1);
	floorx(d, e);
	*ret = -*e;
     *(ret+1) = -*(e+1);
}