Skip to content
GitLab
Menu
Projects
Groups
Snippets
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Sign in
Toggle navigation
Menu
Open sidebar
CLHEP
CLHEP
Commits
9e33b998
Commit
9e33b998
authored
Oct 31, 2013
by
Lynn Garren
Browse files
fix potential shadowing issue
parent
2d97333c
Changes
4
Hide whitespace changes
Inline
Side-by-side
ChangeLog
View file @
9e33b998
...
...
@@ -2,6 +2,8 @@
2013-10-31 Lynn Garren <garren@fnal.gov>
* Random/src/RandGaussZiggurat.cc - fix potential shadowing issue
* Random/src/RandExpZiggurat.cc - fix potential shadowing issue
* Units/Units/SystemOfUnits.h: adding definitions for curies
* Units/test/testUnits.cc: use the same M_PI logic as found elsewhere
* clhep-config: fix for OSX
...
...
Random/ChangeLog
View file @
9e33b998
2013-10-31 Lynn Garren <garren@fnal.gov>
* Random/src/RandGaussZiggurat.cc - fix potential shadowing issue
* Random/src/RandExpZiggurat.cc - fix potential shadowing issue
2013-09-26 Lynn Garren <garren@fnal.gov>
* Random: including RandGaussZiggurat and RandExpZiggurat
...
...
Random/src/RandExpZiggurat.cc
View file @
9e33b998
...
...
@@ -129,47 +129,47 @@ float RandExpZiggurat::ziggurat_efix(unsigned long jz,HepRandomEngine* anEngine)
bool
RandExpZiggurat
::
ziggurat_init
()
{
const
double
m1
=
2147483648.0
,
m2
=
4294967296.
;
const
double
rz
m1
=
2147483648.0
,
rz
m2
=
4294967296.
;
double
dn
=
3.442619855899
,
tn
=
dn
,
vn
=
9.91256303526217e-3
,
q
;
double
de
=
7.697117470131487
,
te
=
de
,
ve
=
3.949659822581572e-3
;
int
i
;
/* Set up tables for RNOR */
q
=
vn
/
exp
(
-
.5
*
dn
*
dn
);
kn
[
0
]
=
(
unsigned
long
)((
dn
/
q
)
*
m1
);
kn
[
0
]
=
(
unsigned
long
)((
dn
/
q
)
*
rz
m1
);
kn
[
1
]
=
0
;
wn
[
0
]
=
q
/
m1
;
wn
[
127
]
=
dn
/
m1
;
wn
[
0
]
=
q
/
rz
m1
;
wn
[
127
]
=
dn
/
rz
m1
;
fn
[
0
]
=
1.
;
fn
[
127
]
=
exp
(
-
.5
*
dn
*
dn
);
for
(
i
=
126
;
i
>=
1
;
i
--
)
{
dn
=
sqrt
(
-
2.
*
log
(
vn
/
dn
+
exp
(
-
.5
*
dn
*
dn
)));
kn
[
i
+
1
]
=
(
unsigned
long
)((
dn
/
tn
)
*
m1
);
kn
[
i
+
1
]
=
(
unsigned
long
)((
dn
/
tn
)
*
rz
m1
);
tn
=
dn
;
fn
[
i
]
=
exp
(
-
.5
*
dn
*
dn
);
wn
[
i
]
=
dn
/
m1
;
wn
[
i
]
=
dn
/
rz
m1
;
}
/* Set up tables for REXP */
q
=
ve
/
exp
(
-
de
);
ke
[
0
]
=
(
unsigned
long
)((
de
/
q
)
*
m2
);
ke
[
0
]
=
(
unsigned
long
)((
de
/
q
)
*
rz
m2
);
ke
[
1
]
=
0
;
we
[
0
]
=
q
/
m2
;
we
[
255
]
=
de
/
m2
;
we
[
0
]
=
q
/
rz
m2
;
we
[
255
]
=
de
/
rz
m2
;
fe
[
0
]
=
1.
;
fe
[
255
]
=
exp
(
-
de
);
for
(
i
=
254
;
i
>=
1
;
i
--
)
{
de
=-
log
(
ve
/
de
+
exp
(
-
de
));
ke
[
i
+
1
]
=
(
unsigned
long
)((
de
/
te
)
*
m2
);
ke
[
i
+
1
]
=
(
unsigned
long
)((
de
/
te
)
*
rz
m2
);
te
=
de
;
fe
[
i
]
=
exp
(
-
de
);
we
[
i
]
=
de
/
m2
;
we
[
i
]
=
de
/
rz
m2
;
}
ziggurat_is_init
=
true
;
return
true
;
...
...
Random/src/RandGaussZiggurat.cc
View file @
9e33b998
...
...
@@ -23,47 +23,47 @@ std::string RandGaussZiggurat::name() const
bool
RandGaussZiggurat
::
ziggurat_init
()
{
const
double
m1
=
2147483648.0
,
m2
=
4294967296.
;
const
double
rz
m1
=
2147483648.0
,
rz
m2
=
4294967296.
;
double
dn
=
3.442619855899
,
tn
=
dn
,
vn
=
9.91256303526217e-3
,
q
;
double
de
=
7.697117470131487
,
te
=
de
,
ve
=
3.949659822581572e-3
;
int
i
;
/* Set up tables for RNOR */
q
=
vn
/
exp
(
-
.5
*
dn
*
dn
);
kn
[
0
]
=
(
unsigned
long
)((
dn
/
q
)
*
m1
);
kn
[
0
]
=
(
unsigned
long
)((
dn
/
q
)
*
rz
m1
);
kn
[
1
]
=
0
;
wn
[
0
]
=
q
/
m1
;
wn
[
127
]
=
dn
/
m1
;
wn
[
0
]
=
q
/
rz
m1
;
wn
[
127
]
=
dn
/
rz
m1
;
fn
[
0
]
=
1.
;
fn
[
127
]
=
exp
(
-
.5
*
dn
*
dn
);
for
(
i
=
126
;
i
>=
1
;
i
--
)
{
dn
=
sqrt
(
-
2.
*
log
(
vn
/
dn
+
exp
(
-
.5
*
dn
*
dn
)));
kn
[
i
+
1
]
=
(
unsigned
long
)((
dn
/
tn
)
*
m1
);
kn
[
i
+
1
]
=
(
unsigned
long
)((
dn
/
tn
)
*
rz
m1
);
tn
=
dn
;
fn
[
i
]
=
exp
(
-
.5
*
dn
*
dn
);
wn
[
i
]
=
dn
/
m1
;
wn
[
i
]
=
dn
/
rz
m1
;
}
/* Set up tables for REXP */
q
=
ve
/
exp
(
-
de
);
ke
[
0
]
=
(
unsigned
long
)((
de
/
q
)
*
m2
);
ke
[
0
]
=
(
unsigned
long
)((
de
/
q
)
*
rz
m2
);
ke
[
1
]
=
0
;
we
[
0
]
=
q
/
m2
;
we
[
255
]
=
de
/
m2
;
we
[
0
]
=
q
/
rz
m2
;
we
[
255
]
=
de
/
rz
m2
;
fe
[
0
]
=
1.
;
fe
[
255
]
=
exp
(
-
de
);
for
(
i
=
254
;
i
>=
1
;
i
--
)
{
de
=-
log
(
ve
/
de
+
exp
(
-
de
));
ke
[
i
+
1
]
=
(
unsigned
long
)((
de
/
te
)
*
m2
);
ke
[
i
+
1
]
=
(
unsigned
long
)((
de
/
te
)
*
rz
m2
);
te
=
de
;
fe
[
i
]
=
exp
(
-
de
);
we
[
i
]
=
de
/
m2
;
we
[
i
]
=
de
/
rz
m2
;
}
ziggurat_is_init
=
true
;
...
...
Write
Preview
Supports
Markdown
0%
Try again
or
attach a new file
.
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment