Continuous photon emission: Fix truncated line endings

Warwick-Plasma · Feb 26, 2024 · f1a1ad6 · f1a1ad6
1 parent 2d09d72
commit f1a1ad6
Show file tree

Hide file tree

Showing 3 changed files with 6 additions and 3 deletions.
diff --git a/epoch1d/src/physics_packages/photons.F90 b/epoch1d/src/physics_packages/photons.F90
@@ -926,7 +926,8 @@ SUBROUTINE generate_photon(generating_electron, iphoton, eta)
     ! This will only create photons that have energies above a user specified
     ! cutoff and if photon generation is turned on. E+/- recoil is always
     ! considered
-    IF (photon_energy > photon_energy_min .AND. produce_photons .AND. samp_photon) THEN
+    IF (photon_energy > photon_energy_min .AND. produce_photons &
+        .AND. samp_photon) THEN
       IF (photon_energy < c_tiny) photon_energy = c_tiny
 
       CALL create_particle(new_photon)

diff --git a/epoch2d/src/physics_packages/photons.F90 b/epoch2d/src/physics_packages/photons.F90
@@ -939,7 +939,8 @@ SUBROUTINE generate_photon(generating_electron, iphoton, eta)
     ! This will only create photons that have energies above a user specified
     ! cutoff and if photon generation is turned on. E+/- recoil is always
     ! considered
-    IF (photon_energy > photon_energy_min .AND. produce_photons .AND. samp_photon) THEN
+    IF (photon_energy > photon_energy_min .AND. produce_photons &
+        .AND. samp_photon) THEN
       IF (photon_energy < c_tiny) photon_energy = c_tiny
 
       CALL create_particle(new_photon)

diff --git a/epoch3d/src/physics_packages/photons.F90 b/epoch3d/src/physics_packages/photons.F90
@@ -952,7 +952,8 @@ SUBROUTINE generate_photon(generating_electron, iphoton, eta)
     ! This will only create photons that have energies above a user specified
     ! cutoff and if photon generation is turned on. E+/- recoil is always
     ! considered
-    IF (photon_energy > photon_energy_min .AND. produce_photons .AND. samp_photon) THEN
+    IF (photon_energy > photon_energy_min .AND. produce_photons &
+        .AND. samp_photon) THEN
       IF (photon_energy < c_tiny) photon_energy = c_tiny
 
       CALL create_particle(new_photon)