Searched refs:drnd (Results 1 – 3 of 3) sorted by relevance
| /external/fft2d/src/fft2d/fft2d/sample2d/ |
| D | fftsg2dt.f | 62 real*8 a(0 : n1max - 1, 0 : *), drnd local
66 a(j1, j2) = drnd(seed)
74 real*8 scale, a(0 : n1max - 1, 0 : *), drnd, err, e, local
80 e = drnd(seed) - a(j1, j2) * scale
89 real*8 function drnd(seed) function
92 drnd = seed * (1.0d0 / 259200)
|
| D | fft4f2dt.f | 63 real*8 a(0 : n1max - 1, 0 : *), drnd local
67 a(j1, j2) = drnd(seed)
75 real*8 scale, a(0 : n1max - 1, 0 : *), drnd, err, e, local
81 e = drnd(seed) - a(j1, j2) * scale
90 real*8 function drnd(seed) function
93 drnd = seed * (1.0d0 / 259200)
|
| D | fftsg3dt.f | 83 real*8 a(0 : n1max - 1, 0 : n2max - 1, 0 : *), drnd local
88 a(j1, j2, j3) = drnd(seed)
98 & drnd, err, e, errorcheck3d local
104 e = drnd(seed) - a(j1, j2, j3) * scale
114 real*8 function drnd(seed) function
117 drnd = seed * (1.0d0 / 259200)
|