Sign in
fuchsia
/
third_party
/
llvm-test-suite
/
refs/tags/llvmorg-12.0.1
/
.
/
MultiSource
/
Benchmarks
/
ASC_Sequoia
/
sphot
/
ranf.f
blob: 43cfaea0082b883538fa86c41477ed09ecc5b437 [
file
] [
log
] [
blame
]
double
precision
function
ranf
(
mySeed
)
include
'params.inc'
include
'randseed.inc'
INTEGER mySeed
(
IRandNumSize
)
real
*
8
randnum
CALL pranf
(
mySeed
,
randnum
)
ranf
=
randnum
c ng_rncount
(
myStream
)
=
ng_rncount
(
myStream
)
+
1
return
end