From f19b43f7cd3f1cbbe01ffd00b060ed1bd254aafb Mon Sep 17 00:00:00 2001 From: Alain Hebert Date: Mon, 1 Dec 2025 09:43:55 +0100 Subject: #17: Correct the SPH option in module BREF: for cases with many feeding assemblies --- Donjon/data/Reflector_beavrs_APEX_DF-RT_proc/REFL_APEX.c2m | 2 +- Donjon/data/Reflector_beavrs_DF-NEM_proc/REFL_MPO.c2m | 2 +- Donjon/data/Reflector_beavrs_DF-RT_Jeff3p1SHEM295_mco_proc/REFL_MCO.c2m | 2 +- 3 files changed, 3 insertions(+), 3 deletions(-) (limited to 'Donjon/data') diff --git a/Donjon/data/Reflector_beavrs_APEX_DF-RT_proc/REFL_APEX.c2m b/Donjon/data/Reflector_beavrs_APEX_DF-RT_proc/REFL_APEX.c2m index 8d55fb4..c206ee0 100755 --- a/Donjon/data/Reflector_beavrs_APEX_DF-RT_proc/REFL_APEX.c2m +++ b/Donjon/data/Reflector_beavrs_APEX_DF-RT_proc/REFL_APEX.c2m @@ -342,7 +342,7 @@ WHILE IndexCB iBoreMax < DO !---------------------------------------------------------- ! APEX reflector creation !---------------------------------------------------------- - IF htype 'DF-RT' = htype 'DF-RT-SPN' = + THEN + IF OptSph 'SPH' = THEN Edition := EDI: MacrRefl :: EDIT 1 SAVE ; ELSE Edition := EDI: MacrRefl :: EDIT 1 ADFM SAVE ; diff --git a/Donjon/data/Reflector_beavrs_DF-NEM_proc/REFL_MPO.c2m b/Donjon/data/Reflector_beavrs_DF-NEM_proc/REFL_MPO.c2m index 6073dea..fb4810b 100755 --- a/Donjon/data/Reflector_beavrs_DF-NEM_proc/REFL_MPO.c2m +++ b/Donjon/data/Reflector_beavrs_DF-NEM_proc/REFL_MPO.c2m @@ -369,7 +369,7 @@ WHILE IndexCB iBoreMax < DO !---------------------------------------------------------- ! MPO reflector creation !---------------------------------------------------------- - IF htype 'DF-RT' = htype 'DF-RT-SPN' = + THEN + IF OptSph 'SPH' = THEN Edition := EDI: MacrRefl :: EDIT 1 SAVE ; ELSE Edition := EDI: MacrRefl :: EDIT 1 ADFM SAVE ; diff --git a/Donjon/data/Reflector_beavrs_DF-RT_Jeff3p1SHEM295_mco_proc/REFL_MCO.c2m b/Donjon/data/Reflector_beavrs_DF-RT_Jeff3p1SHEM295_mco_proc/REFL_MCO.c2m index d823ce7..06cc603 100755 --- a/Donjon/data/Reflector_beavrs_DF-RT_Jeff3p1SHEM295_mco_proc/REFL_MCO.c2m +++ b/Donjon/data/Reflector_beavrs_DF-RT_Jeff3p1SHEM295_mco_proc/REFL_MCO.c2m @@ -360,7 +360,7 @@ WHILE IndexCB iBoreMax < DO !---------------------------------------------------------- ! MPO reflector creation !---------------------------------------------------------- - IF htype 'DF-RT' = htype 'DF-RT-SPN' = + THEN + IF OptSph 'SPH' = THEN Edition := EDI: MacrRefl :: EDIT 1 SAVE ; ELSE Edition := EDI: MacrRefl :: EDIT 1 ADFM SAVE ; -- cgit v1.2.3