File: digits.c

package info (click to toggle)
grass 8.4.2-1
  • links: PTS, VCS
  • area: main
  • in suites: forky, sid
  • size: 277,040 kB
  • sloc: ansic: 460,798; python: 227,732; cpp: 42,026; sh: 11,262; makefile: 7,007; xml: 3,637; sql: 968; lex: 520; javascript: 484; yacc: 450; asm: 387; perl: 157; sed: 25; objc: 6; ruby: 4
file content (25 lines) | stat: -rw-r--r-- 508 bytes parent folder | download | duplicates (2) 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
 
/* 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);
}