Fix #1253: missing RZ iaea phsp macros

rtownson · rtownson · commit 55fef770b7e7 · 2025-02-18T12:09:03.000-05:00
Fix missing initialization of variables for IAEA phase-spaces in the RZ
codes. While this didn't result in a crash, it did result in a bug where
all particles were assigned a charge of 0 during the transport.
diff --git a/HEN_HOUSE/utils/srcrz.mortran b/HEN_HOUSE/utils/srcrz.mortran
@@ -2109,6 +2109,8 @@ ELSEIF((ISOURC = 21) | (ISOURC = 22))["full phase space"
 ]
 
 
+$INIT_PHSP_COUNTERS;
+
 RETURN;
 
 "************************************************************************

Original file line number	Diff line number	Diff line change
`@@ -2109,6 +2109,8 @@ ELSEIF((ISOURC = 21) \| (ISOURC = 22))["full phase space"`
`2109`	`2109`	`]`
`2110`	`2110`
`2111`	`2111`
	`2112`	`+$INIT_PHSP_COUNTERS;`
	`2113`	`+`
`2112`	`2114`	`RETURN;`
`2113`	`2115`
`2114`	`2116`	`"************************************************************************`