GRASS GIS 8 Programmer's Manual
8.5.0dev(2024)-57a646b4a4
unfl.c
Go to the documentation of this file.
1
/* unfl.c CCMATH mathematics library source code.
2
*
3
* Copyright (C) 2000 Daniel A. Atkinson All rights reserved.
4
* This code may be redistributed under the terms of the GNU library
5
* public license (LGPL). ( See the lgpl.license file for details.)
6
* ------------------------------------------------------------------------
7
*/
8
static
unsigned
int
a = 69069U, c = 244045795U;
9
static
unsigned
int
s, h, sbuf[256];
10
double
unfl
(
void
)
11
{
12
int
i;
13
14
i = (int)(s >> 24);
15
s = sbuf[i];
16
h = a * h + c;
17
sbuf[i] = h;
18
return
s * 2.328306436538696e-10;
19
}
20
21
void
setunfl
(
unsigned
int
k)
22
{
23
int
j;
24
25
for
(h = k, j = 0; j <= 256; ++j) {
26
h = a * h + c;
27
if
(j < 256)
28
sbuf[j] = h;
29
else
30
s = h;
31
}
32
}
unfl
double unfl(void)
Definition:
unfl.c:10
setunfl
void setunfl(unsigned int k)
Definition:
unfl.c:21
lib
external
ccmath
unfl.c
Generated on Wed Dec 25 2024 07:30:30 for GRASS GIS 8 Programmer's Manual by
1.9.1