From fded8237f2dd6436012e494244bb42cc7cabe84e Mon Sep 17 00:00:00 2001 From: amandalund Date: Wed, 15 Nov 2017 12:23:58 -0700 Subject: [PATCH] Remove trailing spaces --- src/photon_header.F90 | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/src/photon_header.F90 b/src/photon_header.F90 index bb610b058f..438a9ec45c 100644 --- a/src/photon_header.F90 +++ b/src/photon_header.F90 @@ -415,7 +415,7 @@ contains ! higher-density compound is composed of elements that are in lower-density ! form at normal temperature and pressure (at which the NIST stopping ! powers are given). It will be used to approximate the collision stopping - ! powers for now, but should be fixed in the future. + ! powers for now, but should be fixed in the future. do i = 1, size(mat % element) ! Get pointer to current element elm => mat % element(i) @@ -438,7 +438,7 @@ contains beta = sqrt(e*(e + TWO*MASS_ELECTRON/1.e6)) / (e + MASS_ELECTRON/1.e6) ! Integration lower bound - k_c = ttb_energy_cutoff / e + k_c = ttb_energy_cutoff / e ! Find the upper bounding index of the reduced photon cutoff energy i_k = binary_search(ttb_energy_photon, n_k, k_c) + 1