crp/OpenMC
1
0
Fork 0
mirror of https://github.com/openmc-dev/openmc.git synced 2026-07-27 13:45:36 -04:00
Code Issues Projects Releases Packages Wiki Activity Actions

fixed inverse velocity and delayed nu fission score tests

Browse source
This commit is contained in:
Sam Shaner 2015-11-10 11:50:17 -05:00
parent c16c43d866
commit 92e2a16b01
3 changed files with 22 additions and 22 deletions
Download patch file Download diff file Expand all files Collapse all files

4
src/tally.F90
View file

@ -152,12 +152,12 @@ contains
! Score the flux weighted inverse velocity with velocity in units of
! cm/s
score = score / material_xs % total &
/ (sqrt(TWO * E / (MASS_NEUTRON_MEV)) * C_LIGHT * 100.0)
/ (sqrt(TWO * E / (MASS_NEUTRON_MEV)) * C_LIGHT * 100.0_8)
else
! For inverse velocity, we don't need a cross section. The velocity is
! in units of cm/s.
score = flux / (sqrt(TWO * E / (MASS_NEUTRON_MEV)) * C_LIGHT * 100.0)
score = flux / (sqrt(TWO * E / (MASS_NEUTRON_MEV)) * C_LIGHT * 100.0_8)
end if

8
tests/test_score_delayed_nufission/results_true.dat
View file

@ -19,11 +19,11 @@ tally 2:
1.976462E-02
1.953328E-04
tally 3:
1.687894E-02
5.776176E-05
1.686299E-02
5.765477E-05
0.000000E+00
0.000000E+00
0.000000E+00
0.000000E+00
1.061803E-02
2.308636E-05
1.061240E-02
2.305936E-05

32
tests/test_score_inverse_velocity/results_true.dat
View file

@ -10,20 +10,20 @@ tally 1:
6.354432E-04
8.370608E-08
tally 2:
1.048031E-03
2.263789E-07
4.276093E-04
4.136358E-08
2.667795E-03
1.528407E-06
6.199140E-04
7.840402E-08
1.029200E-03
2.180706E-07
4.353200E-04
4.363747E-08
2.211790E-03
1.055892E-06
6.086777E-04
7.589579E-08
tally 3:
1.048031E-03
2.263789E-07
4.276093E-04
4.136358E-08
2.667795E-03
1.528407E-06
6.199140E-04
7.840402E-08
1.029200E-03
2.180706E-07
4.353200E-04
4.363747E-08
2.211790E-03
1.055892E-06
6.086777E-04
7.589579E-08