/*Copyright (C) 1992, 1996 by Thomas Glen Smith.  All Rights Reserved.*/
/* dabs 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"
double dabs(x)
double x;
{
	x=(x>=0.0) ? x : -x;
	return(x);
}