diff --git a/src/physics.F90 b/src/physics.F90 index f1f6733097..23fb6f1df2 100644 --- a/src/physics.F90 +++ b/src/physics.F90 @@ -334,11 +334,11 @@ contains else ! Determine temperature -!!$ if (temperature_method == TEMPERATURE_MULTIPOLE) then -!!$ kT = p % sqrtkT**2 -!!$ else + if (temperature_method == TEMPERATURE_MULTIPOLE) then + kT = p % sqrtkT**2 + else kT = nuc % kTs(micro_xs(i_nuclide) % index_temp) -!!$ end if + end if ! Perform collision physics for elastic scattering call elastic_scatter(i_nuclide, nuc % reactions(1), kT, & diff --git a/tests/test_multipole/results_true.dat b/tests/test_multipole/results_true.dat index 9555a2d536..4d379b3f40 100644 --- a/tests/test_multipole/results_true.dat +++ b/tests/test_multipole/results_true.dat @@ -1,5 +1,5 @@ k-combined: -1.457760E+00 1.119656E-02 +1.425673E+00 1.779969E-02 Cell ID = 11 Name =