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