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