diff options
| author | stainer_t <thomas.stainer@oecd-nea.org> | 2025-09-08 13:48:49 +0200 |
|---|---|---|
| committer | stainer_t <thomas.stainer@oecd-nea.org> | 2025-09-08 13:48:49 +0200 |
| commit | 7dfcc480ba1e19bd3232349fc733caef94034292 (patch) | |
| tree | 03ee104eb8846d5cc1a981d267687a729185d3f3 /Trivac/data/SPNtst_proc/SPNtst1_biv.c2m | |
Initial commit from Polytechnique Montreal
Diffstat (limited to 'Trivac/data/SPNtst_proc/SPNtst1_biv.c2m')
| -rwxr-xr-x | Trivac/data/SPNtst_proc/SPNtst1_biv.c2m | 72 |
1 files changed, 72 insertions, 0 deletions
diff --git a/Trivac/data/SPNtst_proc/SPNtst1_biv.c2m b/Trivac/data/SPNtst_proc/SPNtst1_biv.c2m new file mode 100755 index 0000000..568d7a8 --- /dev/null +++ b/Trivac/data/SPNtst_proc/SPNtst1_biv.c2m @@ -0,0 +1,72 @@ +*---- +* TEST CASE SPNtst1_biv +* SLAB 1D BENCHMARK -- PN THEORY IN BIVAC (ISOTROPIC SCATTERING) +* MACROLIB-DEFINED CROSS SECTIONS +*---- +* Define STRUCTURES and MODULES used +*---- +LINKED_LIST GEOM MACRO TRACK SYSTEM FLUX EDIT ; +MODULE GEO: MAC: BIVACT: BIVACA: FLUD: DELETE: END: ; +SEQ_ASCII nse1DP1_ref ; +INTEGER s := 1 ; +PROCEDURE assertS ; +* +GEOM := GEO: :: CAR1D 5 + X- REFL X+ VOID + MIX 1 1 2 2 3 + MESHX 0.0 20.0 40.0 80.0 120.0 160.0 + SPLITX <<s>> <<s>> <<s>> <<s>> <<s>> + ; +MACRO := MAC: :: + EDIT 2 NGRO 1 NMIX 3 NIFI 1 ANIS 1 + READ INPUT + MIX 1 + TOTAL 0.025 + NUSIGF 0.0155 + CHI 1.0 + SCAT 1 1 0.013 + MIX 2 + TOTAL 0.025 + SCAT 1 1 0.024 + MIX 3 + TOTAL 0.075 + SCAT 1 1 0.0 + ; +TRACK := BIVACT: GEOM :: + TITLE 'BENCHMARK 1D CARTESIEN' + EDIT 5 MAXR 18 DUAL 1 2 SPN 1 ; +SYSTEM := BIVACA: MACRO TRACK :: + EDIT 5 ; +FLUX := FLUD: SYSTEM TRACK :: + EDIT 99 VAR1 100 3 ; +assertS FLUX :: 'K-EFFECTIVE' 1 1.042745 ; +TRACK SYSTEM FLUX := DELETE: TRACK SYSTEM FLUX ; +TRACK := BIVACT: GEOM :: + TITLE 'BENCHMARK 1D CARTESIEN' + EDIT 5 MAXR 18 DUAL 3 2 SPN 1 ; +SYSTEM := BIVACA: MACRO TRACK :: + EDIT 5 ; +FLUX := FLUD: SYSTEM TRACK :: + EDIT 99 VAR1 100 3 ; +assertS FLUX :: 'K-EFFECTIVE' 1 1.003082 ; +TRACK SYSTEM FLUX := DELETE: TRACK SYSTEM FLUX ; +TRACK := BIVACT: GEOM :: + TITLE 'BENCHMARK 1D CARTESIEN' + EDIT 5 MAXR 18 DUAL 1 2 SPN 5 ; +SYSTEM := BIVACA: MACRO TRACK :: + EDIT 5 ; +FLUX := FLUD: SYSTEM TRACK :: + EDIT 99 VAR1 100 3 ; +assertS FLUX :: 'K-EFFECTIVE' 1 1.058975 ; +TRACK SYSTEM FLUX := DELETE: TRACK SYSTEM FLUX ; +TRACK := BIVACT: GEOM :: + TITLE 'BENCHMARK 1D CARTESIEN' + EDIT 5 MAXR 18 DUAL 3 2 SPN 5 ; +SYSTEM := BIVACA: MACRO TRACK :: + EDIT 5 ; +FLUX := FLUD: SYSTEM TRACK :: + EDIT 99 VAR1 100 3 ; +assertS FLUX :: 'K-EFFECTIVE' 1 1.026264 ; +ECHO "test SPNtst1_biv completed" ; +END: ; +QUIT "LIST" . |