/* Copyright (C) 1994 by Thomas Glen Smith.  All Rights Reserved. */
/* dabsp APL2 V1.0.0 ***************************************************
* If x is the double floating point argument to dabs, it will return   *
* the greater of x and -x.                                             *
***********************************************************************/
#define INCLUDES 0
#include "includes.h"
void dabsp(x,ret)
double *x,*ret;
{
	*ret = (*x >= 0.0) ? *x : -*x;
}