From 7dfcc480ba1e19bd3232349fc733caef94034292 Mon Sep 17 00:00:00 2001 From: stainer_t Date: Mon, 8 Sep 2025 13:48:49 +0200 Subject: Initial commit from Polytechnique Montreal --- Trivac/data/SPNtst_proc/SPNtst1_tri.c2m | 73 +++++++++++++++++++++++++++++++++ 1 file changed, 73 insertions(+) create mode 100755 Trivac/data/SPNtst_proc/SPNtst1_tri.c2m (limited to 'Trivac/data/SPNtst_proc/SPNtst1_tri.c2m') diff --git a/Trivac/data/SPNtst_proc/SPNtst1_tri.c2m b/Trivac/data/SPNtst_proc/SPNtst1_tri.c2m new file mode 100755 index 0000000..659b7a7 --- /dev/null +++ b/Trivac/data/SPNtst_proc/SPNtst1_tri.c2m @@ -0,0 +1,73 @@ +*---- +* TEST CASE SPNtst1_tri +* SLAB 1D BENCHMARK -- PN THEORY IN TRIVAC (ISOTROPIC SCATTERING) +* MACROLIB-DEFINED CROSS SECTIONS +*---- +* Define STRUCTURES and MODULES used +*---- +LINKED_LIST GEOM MACRO TRACK SYSTEM FLUX EDIT ; +MODULE GEO: MAC: TRIVAT: TRIVAA: 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 <> <> <> <> <> + ; +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 := TRIVAT: GEOM :: + TITLE 'BENCHMARK 1D CARTESIEN' + EDIT 5 MAXR 18 DUAL 1 2 SPN 1 ; +SYSTEM := TRIVAA: 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 := TRIVAT: GEOM :: + TITLE 'BENCHMARK 1D CARTESIEN' + EDIT 5 MAXR 18 DUAL 3 2 SPN 1 ; +SYSTEM := TRIVAA: 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 := TRIVAT: GEOM :: + TITLE 'BENCHMARK 1D CARTESIEN' + EDIT 5 MAXR 18 DUAL 1 2 SPN 5 ; +SYSTEM := TRIVAA: 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 := TRIVAT: GEOM :: + TITLE 'BENCHMARK 1D CARTESIEN' + EDIT 5 MAXR 18 DUAL 3 2 SPN 5 ; +SYSTEM := TRIVAA: MACRO TRACK :: + EDIT 5 ; +FLUX := FLUD: SYSTEM TRACK :: + EDIT 99 VAR1 100 3 ; +assertS FLUX :: 'K-EFFECTIVE' 1 1.026264 ; +TRACK SYSTEM FLUX := DELETE: TRACK SYSTEM FLUX ; +ECHO "test SPNtst1_tri completed" ; +END: ; +QUIT "LIST" . -- cgit v1.2.3