From 5799c05be4deba453ce3c24c22586c4f0fdadc7b Mon Sep 17 00:00:00 2001 From: Sam Shaner Date: Sun, 25 Oct 2015 17:54:15 -0400 Subject: [PATCH] added units to speed of light constant --- src/constants.F90 | 2 +- src/tally.F90 | 2 +- 2 files changed, 2 insertions(+), 2 deletions(-) diff --git a/src/constants.F90 b/src/constants.F90 index 19fccf2677..375c517e76 100644 --- a/src/constants.F90 +++ b/src/constants.F90 @@ -66,7 +66,7 @@ module constants MASS_NEUTRON_MEV = 939.565379_8, & ! mass of a neutron in MeV/c^2 MASS_PROTON = 1.007276466812_8, & ! mass of a proton in amu AMU = 1.660538921e-27_8, & ! 1 amu in kg - C_LIGHT = 2.99792458e8_8, & ! speed of light in a vacuum + C_LIGHT = 2.99792458e8_8, & ! speed of light in m/s N_AVOGADRO = 0.602214129_8, & ! Avogadro's number in 10^24/mol K_BOLTZMANN = 8.6173324e-11_8, & ! Boltzmann constant in MeV/K INFINITY = huge(0.0_8), & ! positive infinity diff --git a/src/tally.F90 b/src/tally.F90 index fa1c13965a..0586860191 100644 --- a/src/tally.F90 +++ b/src/tally.F90 @@ -129,7 +129,7 @@ contains case (SCORE_INVERSE_VELOCITY) if (t % estimator == ESTIMATOR_ANALOG) then - ! All events score to a inverse velocity bin. We actually use a + ! All events score to an inverse velocity bin. We actually use a ! collision estimator in place of an analog one since there is no way ! to count 'events' exactly for the inverse velocity if (survival_biasing) then