/* Copyright (C) 1993 by Thomas Glen Smith. All Rights Reserved. */
/* dblmaxp APL2 V1.0.0 *************************************************
* Returns the maximum of the two double floating arguments. *
***********************************************************************/
#define INCLUDES 0
#include "includes.h"
void dblmaxp(a,b,ret)
double *a,*b,*ret;
{
*ret = ((*a>*b) ? *a : *b);
}