From 54f51dd03320a28ab7210d183ff49790bd4b05ae Mon Sep 17 00:00:00 2001 From: amandalund Date: Fri, 27 Apr 2018 14:23:33 -0500 Subject: [PATCH] Remove unnecessary lines --- src/material_header.F90 | 4 ---- src/photon_header.F90 | 1 - src/photon_physics.F90 | 6 +++++- 3 files changed, 5 insertions(+), 6 deletions(-) diff --git a/src/material_header.F90 b/src/material_header.F90 index c6c6bbce84..7fcdcd081b 100644 --- a/src/material_header.F90 +++ b/src/material_header.F90 @@ -911,10 +911,6 @@ contains end do close(17) - open(unit=14, file="yield.txt", action="write") - write(14,*) this % yield - close(14) - ! Set small non-zero value at lowest energy this % yield(1) = 1.0e-6_8 * this % yield(2) diff --git a/src/photon_header.F90 b/src/photon_header.F90 index 557263bbb7..1e56759f9a 100644 --- a/src/photon_header.F90 +++ b/src/photon_header.F90 @@ -469,7 +469,6 @@ contains ! Clear TTB-related arrays if (allocated(ttb_e_grid)) deallocate(ttb_e_grid) - if (allocated(ttb_k_grid)) deallocate(ttb_k_grid) if (allocated(ttb)) deallocate(ttb) end subroutine free_memory_photon diff --git a/src/photon_physics.F90 b/src/photon_physics.F90 index c181196167..3f892b227e 100644 --- a/src/photon_physics.F90 +++ b/src/photon_physics.F90 @@ -4,7 +4,7 @@ module photon_physics use constants use particle_header, only: Particle use photon_header, only: PhotonInteraction, Bremsstrahlung, & - compton_profile_pz, ttb_e_grid, ttb_k_grid, ttb + compton_profile_pz, ttb_e_grid, ttb use random_lcg, only: prn use settings @@ -542,7 +542,9 @@ contains !if (p % E < energy_cutoff(PHOTON)) return if (p % E < energy_cutoff(PHOTON)) then + open(unit=13, file="energies.txt", action="write", position="append") write(13,*) p % E, 0 + close(13) return end if @@ -577,7 +579,9 @@ contains E_lost = ZERO !if (n == 0) return if (n == 0) then + open(unit=13, file="energies.txt", action="write", position="append") write(13,*) p % E, n + close(13) return end if