Add missing ausgab flag before photonuclear event

nrc-cnrc · Feb 7, 2023 · 70a7789 · 70a7789
1 parent bc36b31
commit 70a7789
Showing 1 changed file with 1 addition and 0 deletions.
diff --git a/HEN_HOUSE/user_codes/dosrznrc/dosrznrc.mortran b/HEN_HOUSE/user_codes/dosrznrc/dosrznrc.mortran
@@ -2605,6 +2605,7 @@ write(6,*) 'flagged all photon intereaction types';
     iausfl(21) = 1; "After photoelectric"
     iausfl(24) = 1; "Before Rayleigh"
     iausfl(25) = 1; "After Rayleigh"
+    iausfl(30) = 1; "Before Photonuclear"
     iausfl(31) = 1; "After Photonuclear"
 ]
 ELSE [ DO j=1,$MXREG [ iefl(j) = 0; ] ]