#include <ncbi.h>
#include <gishlib.h>

double _cdecl
fct_dbl_min()
{
	static double	lim = 0.;
	double	x;

	if (lim == 0.)
		for (x = 1.; x > 0.; x /= 2)
			lim = x;
	return lim;
}

float _cdecl
fct_flt_min()
{
	static float	lim = 0.;
	float	x;

	if (lim == 0.)
		for (x = 1.; x > 0.; x /= 2)
			lim = x;
	return lim;
}