/* 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);
}