Geografic-Information-System/raster/r.random.surface/digits.c

/* digits.c                                                             */
#include <math.h>
#include "ransurf.h"

int Digits(double Double, int MaxSig)
{
    int I, Round;
    double Check, RD, Right;

    G_debug(2, "SigDigits");

    I = 0;
    Double += 1.0;
    while (I < MaxSig) {
	Check = Double * pow(10.0, 1.0 * I);
	Round = (int)Check;
	RD = Round;
	Right = fabs(RD - Check);
	if (Right == 0.0)
	    return (I);
	I++;
    }

    return (MaxSig);
}