diff options
Diffstat (limited to 'Trivac/data/SPNtst_proc')
22 files changed, 1868 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" . 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 <<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 := 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" . diff --git a/Trivac/data/SPNtst_proc/SPNtst2_biv.c2m b/Trivac/data/SPNtst_proc/SPNtst2_biv.c2m new file mode 100755 index 0000000..3b1fc19 --- /dev/null +++ b/Trivac/data/SPNtst_proc/SPNtst2_biv.c2m @@ -0,0 +1,71 @@ +*---- +* TEST CASE SPNtst2_biv +* CARTESIAN 2D BENCHMARK +* SPN THEORY IN BIVAC (ANISOTROPIC 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: ; +PROCEDURE assertS ; +* +GEOM := GEO: :: CAR2D 10 10 + X- SYME X+ VOID + Y- SYME Y+ VOID + MIX 1 1 1 1 1 2 2 2 2 2 + 1 1 1 1 1 2 2 2 2 2 + 1 1 1 1 1 2 2 2 2 2 + 1 1 1 1 1 2 2 2 2 2 + 1 1 1 1 1 2 2 2 2 2 + 2 2 2 2 2 2 2 2 2 2 + 2 2 2 2 2 2 2 2 2 2 + 2 2 2 2 2 2 2 2 2 2 + 2 2 2 2 2 2 2 2 2 2 + 2 2 2 2 2 2 2 2 2 2 + MESHX -0.4 0.4 0.8 1.2 1.6 2.0 2.4 2.8 3.2 3.6 4.0 + MESHY -0.4 0.4 0.8 1.2 1.6 2.0 2.4 2.8 3.2 3.6 4.0 + ; +MACRO := MAC: :: + EDIT 2 NGRO 1 NMIX 2 NIFI 1 ANIS 2 + READ INPUT + MIX 1 + TOTAL 0.8 + SCAT 1 1 0.7 + 1 1 0.0 + NUSIGF 0.27 + CHI 1.0 + MIX 2 + TOTAL 1.0 + SCAT 1 1 0.99 + 1 1 0.495 + ; +TRACK := BIVACT: GEOM :: + TITLE 'BENCHMARK TOMASEVIC 1 GROUP' + EDIT 1 MAXR 1000 DUAL 1 1 SPN 1 ; +SYSTEM := BIVACA: MACRO TRACK ; +FLUX := FLUD: SYSTEM TRACK :: EDIT 2 ; +assertS FLUX :: 'K-EFFECTIVE' 1 0.9304934 ; +TRACK SYSTEM FLUX := DELETE: TRACK SYSTEM FLUX ; +TRACK := BIVACT: GEOM :: + TITLE 'BENCHMARK TOMASEVIC 1 GROUP' + EDIT 1 MAXR 1000 DUAL 2 1 SPN 1 ; +SYSTEM := BIVACA: MACRO TRACK ; +FLUX := FLUD: SYSTEM TRACK :: EDIT 2 ; +assertS FLUX :: 'K-EFFECTIVE' 1 0.9305934 ; +TRACK SYSTEM FLUX := DELETE: TRACK SYSTEM FLUX ; +TRACK := BIVACT: GEOM :: + TITLE 'BENCHMARK TOMASEVIC 1 GROUP' + EDIT 1 MAXR 1000 DUAL 1 1 SPN 5 ; +SYSTEM := BIVACA: MACRO TRACK ; +FLUX := FLUD: SYSTEM TRACK :: EDIT 2 ; +assertS FLUX :: 'K-EFFECTIVE' 1 1.012244 ; +TRACK SYSTEM FLUX := DELETE: TRACK SYSTEM FLUX ; +TRACK := BIVACT: GEOM :: + TITLE 'BENCHMARK TOMASEVIC 1 GROUP' + EDIT 1 MAXR 1000 DUAL 2 1 SPN 5 ; +SYSTEM := BIVACA: MACRO TRACK ; +FLUX := FLUD: SYSTEM TRACK :: EDIT 2 ; +assertS FLUX :: 'K-EFFECTIVE' 1 1.011836 ; +ECHO "test SPNtst2_biv completed" ; +END: ; diff --git a/Trivac/data/SPNtst_proc/SPNtst2_tri.c2m b/Trivac/data/SPNtst_proc/SPNtst2_tri.c2m new file mode 100755 index 0000000..19491c8 --- /dev/null +++ b/Trivac/data/SPNtst_proc/SPNtst2_tri.c2m @@ -0,0 +1,71 @@ +*---- +* TEST CASE SPNtst2_tri +* CARTESIAN 2D BENCHMARK +* SPN THEORY IN TRIVAC (ANISOTROPIC 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: ; +PROCEDURE assertS ; +* +GEOM := GEO: :: CAR2D 10 10 + X- SYME X+ VOID + Y- SYME Y+ VOID + MIX 1 1 1 1 1 2 2 2 2 2 + 1 1 1 1 1 2 2 2 2 2 + 1 1 1 1 1 2 2 2 2 2 + 1 1 1 1 1 2 2 2 2 2 + 1 1 1 1 1 2 2 2 2 2 + 2 2 2 2 2 2 2 2 2 2 + 2 2 2 2 2 2 2 2 2 2 + 2 2 2 2 2 2 2 2 2 2 + 2 2 2 2 2 2 2 2 2 2 + 2 2 2 2 2 2 2 2 2 2 + MESHX -0.4 0.4 0.8 1.2 1.6 2.0 2.4 2.8 3.2 3.6 4.0 + MESHY -0.4 0.4 0.8 1.2 1.6 2.0 2.4 2.8 3.2 3.6 4.0 + ; +MACRO := MAC: :: + EDIT 2 NGRO 1 NMIX 2 NIFI 1 ANIS 2 + READ INPUT + MIX 1 + TOTAL 0.8 + SCAT 1 1 0.7 + 1 1 0.0 + NUSIGF 0.27 + CHI 1.0 + MIX 2 + TOTAL 1.0 + SCAT 1 1 0.99 + 1 1 0.495 + ; +TRACK := TRIVAT: GEOM :: + TITLE 'BENCHMARK TOMASEVIC 1 GROUP' + EDIT 1 MAXR 1000 DUAL 1 1 SPN 1 ; +SYSTEM := TRIVAA: MACRO TRACK ; +FLUX := FLUD: SYSTEM TRACK :: EDIT 2 ADI 5 EXTE 1.0E-6 ; +assertS FLUX :: 'K-EFFECTIVE' 1 0.9304934 ; +TRACK SYSTEM FLUX := DELETE: TRACK SYSTEM FLUX ; +TRACK := TRIVAT: GEOM :: + TITLE 'BENCHMARK TOMASEVIC 1 GROUP' + EDIT 1 MAXR 1000 DUAL 2 1 SPN 1 ; +SYSTEM := TRIVAA: MACRO TRACK ; +FLUX := FLUD: SYSTEM TRACK :: EDIT 2 ADI 5 EXTE 1.0E-6 ; +assertS FLUX :: 'K-EFFECTIVE' 1 0.9305934 ; +TRACK SYSTEM FLUX := DELETE: TRACK SYSTEM FLUX ; +TRACK := TRIVAT: GEOM :: + TITLE 'BENCHMARK TOMASEVIC 1 GROUP' + EDIT 1 MAXR 1000 DUAL 1 1 SPN 5 ; +SYSTEM := TRIVAA: MACRO TRACK ; +FLUX := FLUD: SYSTEM TRACK :: EDIT 2 ADI 5 EXTE 1.0E-6 ; +assertS FLUX :: 'K-EFFECTIVE' 1 1.012244 ; +TRACK SYSTEM FLUX := DELETE: TRACK SYSTEM FLUX ; +TRACK := TRIVAT: GEOM :: + TITLE 'BENCHMARK TOMASEVIC 1 GROUP' + EDIT 1 MAXR 1000 DUAL 2 1 SPN 5 ; +SYSTEM := TRIVAA: MACRO TRACK ; +FLUX := FLUD: SYSTEM TRACK :: EDIT 2 ADI 5 EXTE 1.0E-6 ; +assertS FLUX :: 'K-EFFECTIVE' 1 1.011836 ; +ECHO "test SPNtst2_tri completed" ; +END: ; diff --git a/Trivac/data/SPNtst_proc/SPNtst2d_biv.c2m b/Trivac/data/SPNtst_proc/SPNtst2d_biv.c2m new file mode 100755 index 0000000..f502de2 --- /dev/null +++ b/Trivac/data/SPNtst_proc/SPNtst2d_biv.c2m @@ -0,0 +1,57 @@ +*---- +* TEST CASE SPNtst2d_biv +* CARTESIAN 2D BENCHMARK -- DIFFUSION THEORY IN BIVAC +* 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 LMFBR_ref OBJ10 ; +PROCEDURE assertS ; +* +GEOM := GEO: :: CAR2D 10 10 + X- SYME X+ VOID + Y- SYME Y+ VOID + MIX 1 1 1 1 1 2 2 2 2 2 + 1 1 1 1 1 2 2 2 2 2 + 1 1 1 1 1 2 2 2 2 2 + 1 1 1 1 1 2 2 2 2 2 + 1 1 1 1 1 2 2 2 2 2 + 2 2 2 2 2 2 2 2 2 2 + 2 2 2 2 2 2 2 2 2 2 + 2 2 2 2 2 2 2 2 2 2 + 2 2 2 2 2 2 2 2 2 2 + 2 2 2 2 2 2 2 2 2 2 + MESHX -0.4 0.4 0.8 1.2 1.6 2.0 2.4 2.8 3.2 3.6 4.0 + MESHY -0.4 0.4 0.8 1.2 1.6 2.0 2.4 2.8 3.2 3.6 4.0 + ; +MACRO := MAC: :: + EDIT 2 NGRO 1 NMIX 2 NIFI 1 + READ INPUT + MIX 1 + TOTAL 0.8 + DIFF 0.4166666667 + SCAT 1 1 0.7 + NUSIGF 0.27 + CHI 1.0 + MIX 2 + TOTAL 1.0 + DIFF 0.3333333333 + SCAT 1 1 0.99 + ; +TRACK := BIVACT: GEOM :: + TITLE 'BENCHMARK TOMASEVIC 1 GROUP' + EDIT 5 MAXR 1000 DUAL 1 1 ; +SYSTEM := BIVACA: MACRO TRACK ; +FLUX := FLUD: SYSTEM TRACK :: EDIT 2 ; +assertS FLUX :: 'K-EFFECTIVE' 1 1.148997 ; +TRACK SYSTEM FLUX := DELETE: TRACK SYSTEM FLUX ; +TRACK := BIVACT: GEOM :: + TITLE 'BENCHMARK TOMASEVIC 1 GROUP' + EDIT 5 MAXR 1000 DUAL 3 1 ; +SYSTEM := BIVACA: MACRO TRACK ; +FLUX := FLUD: SYSTEM TRACK :: EDIT 2 ; +assertS FLUX :: 'K-EFFECTIVE' 1 1.148576 ; +ECHO "test SPNtst2d_biv completed" ; +END: ; diff --git a/Trivac/data/SPNtst_proc/SPNtst2d_tri.c2m b/Trivac/data/SPNtst_proc/SPNtst2d_tri.c2m new file mode 100755 index 0000000..390a2b7 --- /dev/null +++ b/Trivac/data/SPNtst_proc/SPNtst2d_tri.c2m @@ -0,0 +1,57 @@ +*---- +* TEST CASE SPNtst2d_tri +* CARTESIAN 2D BENCHMARK -- DIFFUSION THEORY IN TRIVAC +* 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 LMFBR_ref OBJ10 ; +PROCEDURE assertS ; +* +GEOM := GEO: :: CAR2D 10 10 + X- SYME X+ VOID + Y- SYME Y+ VOID + MIX 1 1 1 1 1 2 2 2 2 2 + 1 1 1 1 1 2 2 2 2 2 + 1 1 1 1 1 2 2 2 2 2 + 1 1 1 1 1 2 2 2 2 2 + 1 1 1 1 1 2 2 2 2 2 + 2 2 2 2 2 2 2 2 2 2 + 2 2 2 2 2 2 2 2 2 2 + 2 2 2 2 2 2 2 2 2 2 + 2 2 2 2 2 2 2 2 2 2 + 2 2 2 2 2 2 2 2 2 2 + MESHX -0.4 0.4 0.8 1.2 1.6 2.0 2.4 2.8 3.2 3.6 4.0 + MESHY -0.4 0.4 0.8 1.2 1.6 2.0 2.4 2.8 3.2 3.6 4.0 + ; +MACRO := MAC: :: + EDIT 2 NGRO 1 NMIX 2 NIFI 1 + READ INPUT + MIX 1 + TOTAL 0.8 + DIFF 0.4166666667 + SCAT 1 1 0.7 + NUSIGF 0.27 + CHI 1.0 + MIX 2 + TOTAL 1.0 + DIFF 0.3333333333 + SCAT 1 1 0.99 + ; +TRACK := TRIVAT: GEOM :: + TITLE 'BENCHMARK TOMASEVIC 1 GROUP' + EDIT 5 MAXR 1000 DUAL 1 1 ; +SYSTEM := TRIVAA: MACRO TRACK ; +FLUX := FLUD: SYSTEM TRACK :: EDIT 2 ADI 5 EXTE 1.0E-6 ; +assertS FLUX :: 'K-EFFECTIVE' 1 1.148997 ; +TRACK SYSTEM FLUX := DELETE: TRACK SYSTEM FLUX ; +TRACK := TRIVAT: GEOM :: + TITLE 'BENCHMARK TOMASEVIC 1 GROUP' + EDIT 5 MAXR 1000 DUAL 3 1 ; +SYSTEM := TRIVAA: MACRO TRACK ; +FLUX := FLUD: SYSTEM TRACK :: EDIT 2 ADI 5 EXTE 1.0E-6 ; +assertS FLUX :: 'K-EFFECTIVE' 1 1.148576 ; +ECHO "test SPNtst2d_tri completed" ; +END: ; diff --git a/Trivac/data/SPNtst_proc/SPNtst3_biv.c2m b/Trivac/data/SPNtst_proc/SPNtst3_biv.c2m new file mode 100755 index 0000000..ae73549 --- /dev/null +++ b/Trivac/data/SPNtst_proc/SPNtst3_biv.c2m @@ -0,0 +1,86 @@ +*---- +* TEST CASE SPNtst3_biv +* IAEA 2D BENCHMARK -- SPN THEORY IN BIVAC (ISOTROPIC SCATTERING) +* MACROLIB-DEFINED CROSS SECTIONS +*---- +* Define STRUCTURES and MODULES used +*---- +LINKED_LIST IAEA MACRO TRACK SYSTEM FLUX EDIT ; +MODULE GEO: MAC: BIVACT: BIVACA: FLUD: DELETE: END: ; +PROCEDURE assertS ; +* +IAEA := GEO: :: CAR2D 9 9 + EDIT 2 + X- DIAG X+ VOID + Y- SYME Y+ DIAG + MIX 3 2 2 2 3 2 2 1 4 + 2 2 2 2 2 2 1 4 + 2 2 2 2 1 1 4 + 2 2 2 1 4 4 + 3 1 1 4 0 + 1 4 4 0 + 4 0 0 + 0 0 + 0 + MESHX 0.0 20.0 40.0 60.0 80.0 100.0 120.0 140.0 160.0 180.0 + (*SPLITX 2 2 2 2 2 2 2 2 2*) + ; +MACRO := MAC: :: + EDIT 2 NGRO 2 NMIX 4 NIFI 1 + READ INPUT + MIX 1 + DIFF 1.500E+00 4.0000E-01 + TOTAL 0.2222222 0.833333333 + NUSIGF 0.000E+00 1.3500E-01 + H-FACTOR 0.000E+00 1.3500E-01 + SCAT 1 1 0.1921022 2 2 0.75330133 0.2E-01 + MIX 2 + DIFF 1.500E+00 4.0000E-01 + TOTAL 0.2222222 0.833333333 + NUSIGF 0.000E+00 1.3500E-01 + H-FACTOR 0.000E+00 1.3500E-01 + SCAT 1 1 0.1921022 2 2 0.74830133 0.2E-01 + MIX 3 + DIFF 1.500E+00 4.00000E-01 + TOTAL 0.2222222 0.833333333 + NUSIGF 0.000E+00 1.35000E-01 + H-FACTOR 0.000E+00 1.35000E-01 + SCAT 1 1 0.1921022 2 2 0.70330133 0.2E-01 + MIX 4 + DIFF 2.000E+00 3.0000E-01 + TOTAL 0.1666667 1.11111111 + SCAT 1 1 0.1265067 2 2 1.10108711 0.4E-01 + ; +TRACK := BIVACT: IAEA :: + TITLE 'IAEA-2D BENCHMARK' + EDIT 2 MAXR 81 DUAL 1 1 SPN 1 ; +SYSTEM := BIVACA: MACRO TRACK ; +FLUX := FLUD: SYSTEM TRACK :: + EDIT 2 ; +assertS FLUX :: 'K-EFFECTIVE' 1 1.028754 ; +TRACK SYSTEM FLUX := DELETE: TRACK SYSTEM FLUX ; +TRACK := BIVACT: IAEA :: + TITLE 'IAEA-2D BENCHMARK' + EDIT 2 MAXR 81 DUAL 2 1 SPN 1 ; +SYSTEM := BIVACA: MACRO TRACK ; +FLUX := FLUD: SYSTEM TRACK :: + EDIT 2 ; +assertS FLUX :: 'K-EFFECTIVE' 1 1.029099 ; +TRACK SYSTEM FLUX := DELETE: TRACK SYSTEM FLUX ; +TRACK := BIVACT: IAEA :: + TITLE 'IAEA-2D BENCHMARK' + EDIT 2 MAXR 81 DUAL 1 1 SPN 3 ; +SYSTEM := BIVACA: MACRO TRACK ; +FLUX := FLUD: SYSTEM TRACK :: + EDIT 2 ; +assertS FLUX :: 'K-EFFECTIVE' 1 1.029274 ; +TRACK SYSTEM FLUX := DELETE: TRACK SYSTEM FLUX ; +TRACK := BIVACT: IAEA :: + TITLE 'IAEA-2D BENCHMARK' + EDIT 2 MAXR 81 DUAL 2 1 SPN 3 ; +SYSTEM := BIVACA: MACRO TRACK ; +FLUX := FLUD: SYSTEM TRACK :: + EDIT 2 ; +assertS FLUX :: 'K-EFFECTIVE' 1 1.029545 ; +ECHO "test SPNtst3_biv completed" ; +END: ; diff --git a/Trivac/data/SPNtst_proc/SPNtst3_tri.c2m b/Trivac/data/SPNtst_proc/SPNtst3_tri.c2m new file mode 100755 index 0000000..a5d5366 --- /dev/null +++ b/Trivac/data/SPNtst_proc/SPNtst3_tri.c2m @@ -0,0 +1,85 @@ +*---- +* TEST CASE SPNtst3_tri +* IAEA 2D BENCHMARK -- SPN THEORY IN TRIVAC (ISOTROPIC SCATTERING) +* MACROLIB-DEFINED CROSS SECTIONS +*---- +* Define STRUCTURES and MODULES used +*---- +LINKED_LIST IAEA MACRO TRACK SYSTEM FLUX EDIT ; +MODULE GEO: MAC: TRIVAT: TRIVAA: FLUD: DELETE: END: ; +PROCEDURE assertS ; +* +IAEA := GEO: :: CAR2D 9 9 + EDIT 2 + X- DIAG X+ VOID + Y- SYME Y+ DIAG + MIX 3 2 2 2 3 2 2 1 4 + 2 2 2 2 2 2 1 4 + 2 2 2 2 1 1 4 + 2 2 2 1 4 4 + 3 1 1 4 0 + 1 4 4 0 + 4 0 0 + 0 0 + 0 + MESHX 0.0 20.0 40.0 60.0 80.0 100.0 120.0 140.0 160.0 180.0 + ; +MACRO := MAC: :: + EDIT 2 NGRO 2 NMIX 4 NIFI 1 + READ INPUT + MIX 1 + DIFF 1.500E+00 4.0000E-01 + TOTAL 0.2222222 0.833333333 + NUSIGF 0.000E+00 1.3500E-01 + H-FACTOR 0.000E+00 1.3500E-01 + SCAT 1 1 0.1921022 2 2 0.75330133 0.2E-01 + MIX 2 + DIFF 1.500E+00 4.0000E-01 + TOTAL 0.2222222 0.833333333 + NUSIGF 0.000E+00 1.3500E-01 + H-FACTOR 0.000E+00 1.3500E-01 + SCAT 1 1 0.1921022 2 2 0.74830133 0.2E-01 + MIX 3 + DIFF 1.500E+00 4.00000E-01 + TOTAL 0.2222222 0.833333333 + NUSIGF 0.000E+00 1.35000E-01 + H-FACTOR 0.000E+00 1.35000E-01 + SCAT 1 1 0.1921022 2 2 0.70330133 0.2E-01 + MIX 4 + DIFF 2.000E+00 3.0000E-01 + TOTAL 0.1666667 1.11111111 + SCAT 1 1 0.1265067 2 2 1.10108711 0.4E-01 + ; +TRACK := TRIVAT: IAEA :: + TITLE 'IAEA-2D BENCHMARK' + EDIT 2 MAXR 81 DUAL 1 1 SPN 1 ; +SYSTEM := TRIVAA: MACRO TRACK ; +FLUX := FLUD: SYSTEM TRACK :: + EDIT 2 ; +assertS FLUX :: 'K-EFFECTIVE' 1 1.028754 ; +TRACK SYSTEM FLUX := DELETE: TRACK SYSTEM FLUX ; +TRACK := TRIVAT: IAEA :: + TITLE 'IAEA-2D BENCHMARK' + EDIT 2 MAXR 81 DUAL 2 1 SPN 1 ; +SYSTEM := TRIVAA: MACRO TRACK ; +FLUX := FLUD: SYSTEM TRACK :: + EDIT 2 ; +assertS FLUX :: 'K-EFFECTIVE' 1 1.029099 ; +TRACK SYSTEM FLUX := DELETE: TRACK SYSTEM FLUX ; +TRACK := TRIVAT: IAEA :: + TITLE 'IAEA-2D BENCHMARK' + EDIT 2 MAXR 81 DUAL 1 1 SPN 3 ; +SYSTEM := TRIVAA: MACRO TRACK ; +FLUX := FLUD: SYSTEM TRACK :: + EDIT 2 ; +assertS FLUX :: 'K-EFFECTIVE' 1 1.029274 ; +TRACK SYSTEM FLUX := DELETE: TRACK SYSTEM FLUX ; +TRACK := TRIVAT: IAEA :: + TITLE 'IAEA-2D BENCHMARK' + EDIT 2 MAXR 81 DUAL 2 1 SPN 3 ; +SYSTEM := TRIVAA: MACRO TRACK ; +FLUX := FLUD: SYSTEM TRACK :: + EDIT 2 ; +assertS FLUX :: 'K-EFFECTIVE' 1 1.029545 ; +ECHO "test SPNtst3_tri completed" ; +END: ; diff --git a/Trivac/data/SPNtst_proc/SPNtst3d_biv.c2m b/Trivac/data/SPNtst_proc/SPNtst3d_biv.c2m new file mode 100755 index 0000000..05dfe02 --- /dev/null +++ b/Trivac/data/SPNtst_proc/SPNtst3d_biv.c2m @@ -0,0 +1,71 @@ +*---- +* TEST CASE SPNtst3d_biv +* IAEA 2D BENCHMARK -- DIFFUSION THEORY IN BIVAC +* MACROLIB-DEFINED CROSS SECTIONS +*---- +* Define STRUCTURES and MODULES used +*---- +LINKED_LIST IAEA MACRO TRACK SYSTEM FLUX EDIT ; +MODULE GEO: MAC: BIVACT: BIVACA: FLUD: DELETE: END: ; +PROCEDURE assertS ; +* +IAEA := GEO: :: CAR2D 9 9 + EDIT 2 + X- DIAG X+ VOID + Y- SYME Y+ DIAG + MIX 3 2 2 2 3 2 2 1 4 + 2 2 2 2 2 2 1 4 + 2 2 2 2 1 1 4 + 2 2 2 1 4 4 + 3 1 1 4 0 + 1 4 4 0 + 4 0 0 + 0 0 + 0 + MESHX 0.0 20.0 40.0 60.0 80.0 100.0 120.0 140.0 160.0 180.0 + (*SPLITX 2 2 2 2 2 2 2 2 2*) + ; +MACRO := MAC: :: + EDIT 2 NGRO 2 NMIX 4 NIFI 1 + READ INPUT + MIX 1 + DIFF 1.500E+00 4.0000E-01 + TOTAL 0.2222222 0.833333333 + NUSIGF 0.000E+00 1.3500E-01 + H-FACTOR 0.000E+00 1.3500E-01 + SCAT 1 1 0.1921022 2 2 0.75330133 0.2E-01 + MIX 2 + DIFF 1.500E+00 4.0000E-01 + TOTAL 0.2222222 0.833333333 + NUSIGF 0.000E+00 1.3500E-01 + H-FACTOR 0.000E+00 1.3500E-01 + SCAT 1 1 0.1921022 2 2 0.74830133 0.2E-01 + MIX 3 + DIFF 1.500E+00 4.00000E-01 + TOTAL 0.2222222 0.833333333 + NUSIGF 0.000E+00 1.35000E-01 + H-FACTOR 0.000E+00 1.35000E-01 + SCAT 1 1 0.1921022 2 2 0.70330133 0.2E-01 + MIX 4 + DIFF 2.000E+00 3.0000E-01 + TOTAL 0.1666667 1.11111111 + SCAT 1 1 0.1265067 2 2 1.10108711 0.4E-01 + ; +TRACK := BIVACT: IAEA :: + TITLE 'IAEA-2D BENCHMARK' + EDIT 2 MAXR 81 DUAL 1 1 ; +SYSTEM := BIVACA: MACRO TRACK ; +FLUX := FLUD: SYSTEM TRACK :: + EDIT 2 ; +assertS FLUX :: 'K-EFFECTIVE' 1 1.0287611485 ; +TRACK SYSTEM FLUX := DELETE: TRACK SYSTEM FLUX ; +END: ; +TRACK := BIVACT: IAEA :: + TITLE 'IAEA-2D BENCHMARK' + EDIT 2 MAXR 81 DUAL 2 1 SPN 1 ; +SYSTEM := BIVACA: MACRO TRACK ; +FLUX := FLUD: SYSTEM TRACK :: + EDIT 2 ; +assertS FLUX :: 'K-EFFECTIVE' 1 0.9685486 ; +ECHO "test SPNtst3d_biv completed" ; +END: ; diff --git a/Trivac/data/SPNtst_proc/SPNtst3d_tri.c2m b/Trivac/data/SPNtst_proc/SPNtst3d_tri.c2m new file mode 100755 index 0000000..6ede58d --- /dev/null +++ b/Trivac/data/SPNtst_proc/SPNtst3d_tri.c2m @@ -0,0 +1,70 @@ +*---- +* TEST CASE SPNtst3d_tri +* IAEA 2D BENCHMARK -- DIFFUSION THEORY IN TRIVAC +* MACROLIB-DEFINED CROSS SECTIONS +*---- +* Define STRUCTURES and MODULES used +*---- +LINKED_LIST IAEA MACRO TRACK SYSTEM FLUX EDIT ; +MODULE GEO: MAC: TRIVAT: TRIVAA: FLUD: DELETE: END: ; +PROCEDURE assertS ; +* +IAEA := GEO: :: CAR2D 9 9 + EDIT 2 + X- DIAG X+ VOID + Y- SYME Y+ DIAG + MIX 3 2 2 2 3 2 2 1 4 + 2 2 2 2 2 2 1 4 + 2 2 2 2 1 1 4 + 2 2 2 1 4 4 + 3 1 1 4 0 + 1 4 4 0 + 4 0 0 + 0 0 + 0 + MESHX 0.0 20.0 40.0 60.0 80.0 100.0 120.0 140.0 160.0 180.0 + ; +MACRO := MAC: :: + EDIT 2 NGRO 2 NMIX 4 NIFI 1 + READ INPUT + MIX 1 + DIFF 1.500E+00 4.0000E-01 + TOTAL 0.2222222 0.833333333 + NUSIGF 0.000E+00 1.3500E-01 + H-FACTOR 0.000E+00 1.3500E-01 + SCAT 1 1 0.1921022 2 2 0.75330133 0.2E-01 + MIX 2 + DIFF 1.500E+00 4.0000E-01 + TOTAL 0.2222222 0.833333333 + NUSIGF 0.000E+00 1.3500E-01 + H-FACTOR 0.000E+00 1.3500E-01 + SCAT 1 1 0.1921022 2 2 0.74830133 0.2E-01 + MIX 3 + DIFF 1.500E+00 4.00000E-01 + TOTAL 0.2222222 0.833333333 + NUSIGF 0.000E+00 1.35000E-01 + H-FACTOR 0.000E+00 1.35000E-01 + SCAT 1 1 0.1921022 2 2 0.70330133 0.2E-01 + MIX 4 + DIFF 2.000E+00 3.0000E-01 + TOTAL 0.1666667 1.11111111 + SCAT 1 1 0.1265067 2 2 1.10108711 0.4E-01 + ; +TRACK := TRIVAT: IAEA :: + TITLE 'IAEA-2D BENCHMARK' + EDIT 2 MAXR 81 DUAL 1 1 ; +SYSTEM := TRIVAA: MACRO TRACK ; +FLUX := FLUD: SYSTEM TRACK :: + EDIT 2 ; +assertS FLUX :: 'K-EFFECTIVE' 1 1.0287611485 ; +TRACK SYSTEM FLUX := DELETE: TRACK SYSTEM FLUX ; +END: ; +TRACK := TRIVAT: IAEA :: + TITLE 'IAEA-2D BENCHMARK' + EDIT 2 MAXR 81 DUAL 2 1 SPN 1 ; +SYSTEM := TRIVAA: MACRO TRACK ; +FLUX := FLUD: SYSTEM TRACK :: + EDIT 2 ; +assertS FLUX :: 'K-EFFECTIVE' 1 0.9685486 ; +ECHO "test SPNtst3d_tri completed" ; +END: ; diff --git a/Trivac/data/SPNtst_proc/SPNtst4_biv.c2m b/Trivac/data/SPNtst_proc/SPNtst4_biv.c2m new file mode 100755 index 0000000..7e1d168 --- /dev/null +++ b/Trivac/data/SPNtst_proc/SPNtst4_biv.c2m @@ -0,0 +1,89 @@ +*---- +* TEST CASE SPNtst4_biv +* IAEA 2D BENCHMARK -- SPN THEORY IN BIVAC (ANISOTROPIC SCATTERING) +* MACROLIB-DEFINED CROSS SECTIONS +*---- +* Define STRUCTURES and MODULES used +*---- +LINKED_LIST IAEA MACRO TRACK SYSTEM FLUX EDIT ; +MODULE GEO: MAC: BIVACT: BIVACA: FLUD: DELETE: END: ; +PROCEDURE assertS ; +* +IAEA := GEO: :: CAR2D 9 9 + EDIT 2 + X- DIAG X+ VOID + Y- SYME Y+ DIAG + MIX 3 2 2 2 3 2 2 1 4 + 2 2 2 2 2 2 1 4 + 2 2 2 2 1 1 4 + 2 2 2 1 4 4 + 3 1 1 4 0 + 1 4 4 0 + 4 0 0 + 0 0 + 0 + MESHX 0.0 20.0 40.0 60.0 80.0 100.0 120.0 140.0 160.0 180.0 + ; +MACRO := MAC: :: + EDIT 2 NGRO 2 NMIX 4 NIFI 1 ANIS 2 + READ INPUT + MIX 1 + DIFF 1.500E+00 4.0000E-01 + TOTAL 0.2222222 0.833333333 + NUSIGF 0.000E+00 1.3500E-01 + H-FACTOR 0.000E+00 1.3500E-01 + SCAT 1 1 0.1921022 2 2 0.75330133 0.2E-01 + 1 1 0.02 2 2 0.03 0.01 + MIX 2 + DIFF 1.500E+00 4.0000E-01 + TOTAL 0.2222222 0.833333333 + NUSIGF 0.000E+00 1.3500E-01 + H-FACTOR 0.000E+00 1.3500E-01 + SCAT 1 1 0.1921022 2 2 0.74830133 0.2E-01 + 1 1 0.02 2 2 0.02 0.01 + MIX 3 + DIFF 1.500E+00 4.00000E-01 + TOTAL 0.2222222 0.833333333 + NUSIGF 0.000E+00 1.35000E-01 + H-FACTOR 0.000E+00 1.35000E-01 + SCAT 1 1 0.1921022 2 2 0.70330133 0.2E-01 + 1 1 0.02 2 2 0.01 0.01 + MIX 4 + DIFF 2.000E+00 3.0000E-01 + TOTAL 0.1666667 1.11111111 + SCAT 1 1 0.1265067 2 2 1.10108711 0.4E-01 + 1 1 0.01 2 2 0.05 0.02 + ; +TRACK := BIVACT: IAEA :: + TITLE 'IAEA-2D BENCHMARK' + EDIT 2 MAXR 81 DUAL 1 1 SPN 1 ; +SYSTEM := BIVACA: MACRO TRACK ; +FLUX := FLUD: SYSTEM TRACK :: + EDIT 2 ; +assertS FLUX :: 'K-EFFECTIVE' 1 1.026757 ; +TRACK SYSTEM FLUX := DELETE: TRACK SYSTEM FLUX ; +TRACK := BIVACT: IAEA :: + TITLE 'IAEA-2D BENCHMARK' + EDIT 2 MAXR 81 DUAL 2 1 SPN 1 ; +SYSTEM := BIVACA: MACRO TRACK ; +FLUX := FLUD: SYSTEM TRACK :: + EDIT 2 ; +assertS FLUX :: 'K-EFFECTIVE' 1 1.027114 ; +TRACK SYSTEM FLUX := DELETE: TRACK SYSTEM FLUX ; +TRACK := BIVACT: IAEA :: + TITLE 'IAEA-2D BENCHMARK' + EDIT 2 MAXR 81 DUAL 1 1 SPN 3 ; +SYSTEM := BIVACA: MACRO TRACK ; +FLUX := FLUD: SYSTEM TRACK :: + EDIT 2 ; +assertS FLUX :: 'K-EFFECTIVE' 1 1.027302 ; +TRACK SYSTEM FLUX := DELETE: TRACK SYSTEM FLUX ; +TRACK := BIVACT: IAEA :: + TITLE 'IAEA-2D BENCHMARK' + EDIT 2 MAXR 81 DUAL 2 1 SPN 3 ; +SYSTEM := BIVACA: MACRO TRACK ; +FLUX := FLUD: SYSTEM TRACK :: + EDIT 2 ; +assertS FLUX :: 'K-EFFECTIVE' 1 1.027580 ; +ECHO "test SPNtst4_biv completed" ; +END: ; diff --git a/Trivac/data/SPNtst_proc/SPNtst4_tri.c2m b/Trivac/data/SPNtst_proc/SPNtst4_tri.c2m new file mode 100755 index 0000000..86a6c9b --- /dev/null +++ b/Trivac/data/SPNtst_proc/SPNtst4_tri.c2m @@ -0,0 +1,89 @@ +*---- +* TEST CASE SPNtst4_tri +* IAEA 2D BENCHMARK -- SPN THEORY IN TRIVAC (ANISOTROPIC SCATTERING) +* MACROLIB-DEFINED CROSS SECTIONS +*---- +* Define STRUCTURES and MODULES used +*---- +LINKED_LIST IAEA MACRO TRACK SYSTEM FLUX EDIT ; +MODULE GEO: MAC: TRIVAT: TRIVAA: FLUD: DELETE: END: ; +PROCEDURE assertS ; +* +IAEA := GEO: :: CAR2D 9 9 + EDIT 2 + X- DIAG X+ VOID + Y- SYME Y+ DIAG + MIX 3 2 2 2 3 2 2 1 4 + 2 2 2 2 2 2 1 4 + 2 2 2 2 1 1 4 + 2 2 2 1 4 4 + 3 1 1 4 0 + 1 4 4 0 + 4 0 0 + 0 0 + 0 + MESHX 0.0 20.0 40.0 60.0 80.0 100.0 120.0 140.0 160.0 180.0 + ; +MACRO := MAC: :: + EDIT 2 NGRO 2 NMIX 4 NIFI 1 ANIS 2 + READ INPUT + MIX 1 + DIFF 1.500E+00 4.0000E-01 + TOTAL 0.2222222 0.833333333 + NUSIGF 0.000E+00 1.3500E-01 + H-FACTOR 0.000E+00 1.3500E-01 + SCAT 1 1 0.1921022 2 2 0.75330133 0.2E-01 + 1 1 0.02 2 2 0.03 0.01 + MIX 2 + DIFF 1.500E+00 4.0000E-01 + TOTAL 0.2222222 0.833333333 + NUSIGF 0.000E+00 1.3500E-01 + H-FACTOR 0.000E+00 1.3500E-01 + SCAT 1 1 0.1921022 2 2 0.74830133 0.2E-01 + 1 1 0.02 2 2 0.02 0.01 + MIX 3 + DIFF 1.500E+00 4.00000E-01 + TOTAL 0.2222222 0.833333333 + NUSIGF 0.000E+00 1.35000E-01 + H-FACTOR 0.000E+00 1.35000E-01 + SCAT 1 1 0.1921022 2 2 0.70330133 0.2E-01 + 1 1 0.02 2 2 0.01 0.01 + MIX 4 + DIFF 2.000E+00 3.0000E-01 + TOTAL 0.1666667 1.11111111 + SCAT 1 1 0.1265067 2 2 1.10108711 0.4E-01 + 1 1 0.01 2 2 0.05 0.02 + ; +TRACK := TRIVAT: IAEA :: + TITLE 'IAEA-2D BENCHMARK' + EDIT 2 MAXR 81 DUAL 1 1 SPN 1 ; +SYSTEM := TRIVAA: MACRO TRACK ; +FLUX := FLUD: SYSTEM TRACK :: + EDIT 2 ; +assertS FLUX :: 'K-EFFECTIVE' 1 1.026757 ; +TRACK SYSTEM FLUX := DELETE: TRACK SYSTEM FLUX ; +TRACK := TRIVAT: IAEA :: + TITLE 'IAEA-2D BENCHMARK' + EDIT 2 MAXR 81 DUAL 2 1 SPN 1 ; +SYSTEM := TRIVAA: MACRO TRACK ; +FLUX := FLUD: SYSTEM TRACK :: + EDIT 2 ; +assertS FLUX :: 'K-EFFECTIVE' 1 1.027114 ; +TRACK SYSTEM FLUX := DELETE: TRACK SYSTEM FLUX ; +TRACK := TRIVAT: IAEA :: + TITLE 'IAEA-2D BENCHMARK' + EDIT 2 MAXR 81 DUAL 1 1 SPN 3 ; +SYSTEM := TRIVAA: MACRO TRACK ; +FLUX := FLUD: SYSTEM TRACK :: + EDIT 2 ; +assertS FLUX :: 'K-EFFECTIVE' 1 1.027302 ; +TRACK SYSTEM FLUX := DELETE: TRACK SYSTEM FLUX ; +TRACK := TRIVAT: IAEA :: + TITLE 'IAEA-2D BENCHMARK' + EDIT 2 MAXR 81 DUAL 2 1 SPN 3 ; +SYSTEM := TRIVAA: MACRO TRACK ; +FLUX := FLUD: SYSTEM TRACK :: + EDIT 2 ; +assertS FLUX :: 'K-EFFECTIVE' 1 1.027580 ; +ECHO "test SPNtst4_tri completed" ; +END: ; diff --git a/Trivac/data/SPNtst_proc/SPNtst5_tri.c2m b/Trivac/data/SPNtst_proc/SPNtst5_tri.c2m new file mode 100755 index 0000000..92b9a0c --- /dev/null +++ b/Trivac/data/SPNtst_proc/SPNtst5_tri.c2m @@ -0,0 +1,127 @@ +*---- +* TEST CASE SPNtst5_tri +* IAEA 3D BENCHMARK -- SPN THEORY (ISOTROPIC SCATTERING) +* MACROLIB-DEFINED CROSS SECTIONS +*---- +* Define STRUCTURES and MODULES used +*---- +LINKED_LIST IAEA3D MACRO TRACK SYSTEM FLUX ; +MODULE GEO: MAC: TRIVAT: TRIVAA: FLUD: DELETE: END: ; +PROCEDURE assertS ; +* +IAEA3D := GEO: :: CAR3D 9 9 4 + EDIT 2 + X- DIAG X+ VOID + Y- SYME Y+ DIAG + Z- VOID Z+ VOID + MESHX 0.0 20.0 40.0 60.0 80.0 100.0 120.0 140.0 160.0 180.0 + MESHZ 0.0 20.0 280.0 360.0 380.0 + SPLITZ 1 2 1 1 + ! PLANE NB 1 + MIX 4 4 4 4 4 4 4 4 4 + 4 4 4 4 4 4 4 4 + 4 4 4 4 4 4 4 + 4 4 4 4 4 4 + 4 4 4 4 0 + 4 4 4 0 + 4 0 0 + 0 0 + 0 + ! PLANE NB 2 + 3 2 2 2 3 2 2 1 4 + 2 2 2 2 2 2 1 4 + 2 2 2 2 1 1 4 + 2 2 2 1 4 4 + 3 1 1 4 0 + 1 4 4 0 + 4 0 0 + 0 0 + 0 + ! PLANE NB 3 + 3 2 2 2 3 2 2 1 4 + 2 2 2 2 2 2 1 4 + 3 2 2 2 1 1 4 + 2 2 2 1 4 4 + 3 1 1 4 0 + 1 4 4 0 + 4 0 0 + 0 0 + 0 + ! PLANE NB 4 + 5 4 4 4 5 4 4 4 4 + 4 4 4 4 4 4 4 4 + 5 4 4 4 4 4 4 + 4 4 4 4 4 4 + 5 4 4 4 0 + 4 4 4 0 + 4 0 0 + 0 0 + 0 + ; +MACRO := MAC: :: + EDIT 2 NGRO 2 NMIX 5 NIFI 1 + READ INPUT + MIX 1 + DIFF 1.500E+00 4.0000E-01 + TOTAL 0.2222222 0.833333333 + NUSIGF 0.000E+00 1.3500E-01 + H-FACTOR 0.000E+00 1.3500E-01 + SCAT 1 1 0.1922222 2 2 0.7533333 0.2E-01 + MIX 2 + DIFF 1.500E+00 4.0000E-01 + TOTAL 0.2222222 0.833333333 + NUSIGF 0.000E+00 1.3500E-01 + H-FACTOR 0.000E+00 1.3500E-01 + SCAT 1 1 0.1922222 2 2 0.7483333 0.2E-01 + MIX 3 + DIFF 1.500E+00 4.00000E-01 + TOTAL 0.2222222 0.833333333 + NUSIGF 0.000E+00 1.35000E-01 + H-FACTOR 0.000E+00 1.35000E-01 + SCAT 1 1 0.1922222 2 2 0.7033333 0.2E-01 + MIX 4 + DIFF 2.000E+00 3.0000E-01 + TOTAL 0.1666667 1.11111111 + SCAT 1 1 0.1266667 2 2 1.1011111 0.4E-01 + MIX 5 + DIFF 2.000E+00 3.0000E-01 + TOTAL 0.1666667 1.11111111 + SCAT 1 1 0.1266667 2 2 1.0561111 0.4E-01 + ; +TRACK := TRIVAT: IAEA3D :: + TITLE 'TEST IAEA 3D' + EDIT 5 MAXR 405 DUAL 1 1 SPN 1 ; +SYSTEM := TRIVAA: MACRO TRACK :: + EDIT 5 ; +FLUX := FLUD: SYSTEM TRACK :: + EDIT 2 ; +assertS FLUX :: 'K-EFFECTIVE' 1 1.027945 ; +TRACK SYSTEM FLUX := DELETE: TRACK SYSTEM FLUX ; +TRACK := TRIVAT: IAEA3D :: + TITLE 'TEST IAEA 3D' + EDIT 5 MAXR 405 DUAL 3 3 SPN 1 ; +SYSTEM := TRIVAA: MACRO TRACK :: + EDIT 5 ; +FLUX := FLUD: SYSTEM TRACK :: + EDIT 2 ; +assertS FLUX :: 'K-EFFECTIVE' 1 1.0289810896 ; +TRACK SYSTEM FLUX := DELETE: TRACK SYSTEM FLUX ; +TRACK := TRIVAT: IAEA3D :: + TITLE 'TEST IAEA 3D' + EDIT 5 MAXR 405 DUAL 1 1 SPN 3 ; +SYSTEM := TRIVAA: MACRO TRACK :: + EDIT 5 ; +FLUX := FLUD: SYSTEM TRACK :: + EDIT 2 ; +assertS FLUX :: 'K-EFFECTIVE' 1 1.028504 ; +TRACK SYSTEM FLUX := DELETE: TRACK SYSTEM FLUX ; +TRACK := TRIVAT: IAEA3D :: + TITLE 'TEST IAEA 3D' + EDIT 5 MAXR 405 DUAL 3 3 SPN 5 ; +SYSTEM := TRIVAA: MACRO TRACK :: + EDIT 5 ; +FLUX := FLUD: SYSTEM TRACK :: + EDIT 2 ; +assertS FLUX :: 'K-EFFECTIVE' 1 1.029465 ; +ECHO "test SPNtst5_tri completed" ; +END: ; diff --git a/Trivac/data/SPNtst_proc/SPNtst5d_tri.c2m b/Trivac/data/SPNtst_proc/SPNtst5d_tri.c2m new file mode 100755 index 0000000..497fd80 --- /dev/null +++ b/Trivac/data/SPNtst_proc/SPNtst5d_tri.c2m @@ -0,0 +1,109 @@ +*---- +* TEST CASE SPNtst5d_tri +* IAEA 3D BENCHMARK -- DIFFUSION THEORY +* MACROLIB-DEFINED CROSS SECTIONS +*---- +* Define STRUCTURES and MODULES used +*---- +LINKED_LIST IAEA3D MACRO TRACK SYSTEM FLUX ; +MODULE GEO: MAC: TRIVAT: TRIVAA: FLUD: DELETE: END: ; +PROCEDURE assertS ; +* +IAEA3D := GEO: :: CAR3D 9 9 4 + EDIT 2 + X- DIAG X+ VOID + Y- SYME Y+ DIAG + Z- VOID Z+ VOID + MESHX 0.0 20.0 40.0 60.0 80.0 100.0 120.0 140.0 160.0 180.0 + MESHZ 0.0 20.0 280.0 360.0 380.0 + SPLITZ 1 2 1 1 + ! PLANE NB 1 + MIX 4 4 4 4 4 4 4 4 4 + 4 4 4 4 4 4 4 4 + 4 4 4 4 4 4 4 + 4 4 4 4 4 4 + 4 4 4 4 0 + 4 4 4 0 + 4 0 0 + 0 0 + 0 + ! PLANE NB 2 + 3 2 2 2 3 2 2 1 4 + 2 2 2 2 2 2 1 4 + 2 2 2 2 1 1 4 + 2 2 2 1 4 4 + 3 1 1 4 0 + 1 4 4 0 + 4 0 0 + 0 0 + 0 + ! PLANE NB 3 + 3 2 2 2 3 2 2 1 4 + 2 2 2 2 2 2 1 4 + 3 2 2 2 1 1 4 + 2 2 2 1 4 4 + 3 1 1 4 0 + 1 4 4 0 + 4 0 0 + 0 0 + 0 + ! PLANE NB 4 + 5 4 4 4 5 4 4 4 4 + 4 4 4 4 4 4 4 4 + 5 4 4 4 4 4 4 + 4 4 4 4 4 4 + 5 4 4 4 0 + 4 4 4 0 + 4 0 0 + 0 0 + 0 + ; +MACRO := MAC: :: + EDIT 2 NGRO 2 NMIX 5 NIFI 1 + READ INPUT + MIX 1 + DIFF 1.500E+00 4.0000E-01 + TOTAL 0.2222222 0.833333333 + NUSIGF 0.000E+00 1.3500E-01 + H-FACTOR 0.000E+00 1.3500E-01 + SCAT 1 1 0.1922222 2 2 0.7533333 0.2E-01 + MIX 2 + DIFF 1.500E+00 4.0000E-01 + TOTAL 0.2222222 0.833333333 + NUSIGF 0.000E+00 1.3500E-01 + H-FACTOR 0.000E+00 1.3500E-01 + SCAT 1 1 0.1922222 2 2 0.7483333 0.2E-01 + MIX 3 + DIFF 1.500E+00 4.00000E-01 + TOTAL 0.2222222 0.833333333 + NUSIGF 0.000E+00 1.35000E-01 + H-FACTOR 0.000E+00 1.35000E-01 + SCAT 1 1 0.1922222 2 2 0.7033333 0.2E-01 + MIX 4 + DIFF 2.000E+00 3.0000E-01 + TOTAL 0.1666667 1.11111111 + SCAT 1 1 0.1266667 2 2 1.1011111 0.4E-01 + MIX 5 + DIFF 2.000E+00 3.0000E-01 + TOTAL 0.1666667 1.11111111 + SCAT 1 1 0.1266667 2 2 1.0561111 0.4E-01 + ; +TRACK := TRIVAT: IAEA3D :: + TITLE 'TEST IAEA 3D' + EDIT 5 MAXR 405 DUAL 1 1 ; +SYSTEM := TRIVAA: MACRO TRACK :: + EDIT 5 ; +FLUX := FLUD: SYSTEM TRACK :: + EDIT 2 ; +assertS FLUX :: 'K-EFFECTIVE' 1 1.027945 ; +TRACK SYSTEM FLUX := DELETE: TRACK SYSTEM FLUX ; +TRACK := TRIVAT: IAEA3D :: + TITLE 'TEST IAEA 3D' + EDIT 5 MAXR 405 DUAL 3 3 ; +SYSTEM := TRIVAA: MACRO TRACK :: + EDIT 5 ; +FLUX := FLUD: SYSTEM TRACK :: + EDIT 2 ; +assertS FLUX :: 'K-EFFECTIVE' 1 1.0289810896 ; +ECHO "test SPNtst5d_tri completed" ; +END: ; diff --git a/Trivac/data/SPNtst_proc/SPNtst6_tri.c2m b/Trivac/data/SPNtst_proc/SPNtst6_tri.c2m new file mode 100755 index 0000000..fa9324d --- /dev/null +++ b/Trivac/data/SPNtst_proc/SPNtst6_tri.c2m @@ -0,0 +1,132 @@ +*---- +* TEST CASE SPNtst6_tri +* IAEA 3D BENCHMARK -- SPN THEORY (ANISOTROPIC SCATTERING) +* MACROLIB-DEFINED CROSS SECTIONS +*---- +* Define STRUCTURES and MODULES used +*---- +LINKED_LIST IAEA3D MACRO TRACK SYSTEM FLUX ; +MODULE GEO: MAC: TRIVAT: TRIVAA: FLUD: DELETE: END: ; +PROCEDURE assertS ; +* +IAEA3D := GEO: :: CAR3D 9 9 4 + EDIT 2 + X- DIAG X+ VOID + Y- SYME Y+ DIAG + Z- VOID Z+ VOID + MESHX 0.0 20.0 40.0 60.0 80.0 100.0 120.0 140.0 160.0 180.0 + MESHZ 0.0 20.0 280.0 360.0 380.0 + SPLITZ 1 2 1 1 + ! PLANE NB 1 + MIX 4 4 4 4 4 4 4 4 4 + 4 4 4 4 4 4 4 4 + 4 4 4 4 4 4 4 + 4 4 4 4 4 4 + 4 4 4 4 0 + 4 4 4 0 + 4 0 0 + 0 0 + 0 + ! PLANE NB 2 + 3 2 2 2 3 2 2 1 4 + 2 2 2 2 2 2 1 4 + 2 2 2 2 1 1 4 + 2 2 2 1 4 4 + 3 1 1 4 0 + 1 4 4 0 + 4 0 0 + 0 0 + 0 + ! PLANE NB 3 + 3 2 2 2 3 2 2 1 4 + 2 2 2 2 2 2 1 4 + 3 2 2 2 1 1 4 + 2 2 2 1 4 4 + 3 1 1 4 0 + 1 4 4 0 + 4 0 0 + 0 0 + 0 + ! PLANE NB 4 + 5 4 4 4 5 4 4 4 4 + 4 4 4 4 4 4 4 4 + 5 4 4 4 4 4 4 + 4 4 4 4 4 4 + 5 4 4 4 0 + 4 4 4 0 + 4 0 0 + 0 0 + 0 + ; +MACRO := MAC: :: + EDIT 2 NGRO 2 NMIX 5 NIFI 1 ANIS 2 + READ INPUT + MIX 1 + DIFF 1.500E+00 4.0000E-01 + TOTAL 0.2222222 0.833333333 + NUSIGF 0.000E+00 1.3500E-01 + H-FACTOR 0.000E+00 1.3500E-01 + SCAT 1 1 0.1922222 2 2 0.7533333 0.2E-01 + 1 1 0.02 2 2 0.03 0.01 + MIX 2 + DIFF 1.500E+00 4.0000E-01 + TOTAL 0.2222222 0.833333333 + NUSIGF 0.000E+00 1.3500E-01 + H-FACTOR 0.000E+00 1.3500E-01 + SCAT 1 1 0.1922222 2 2 0.7483333 0.2E-01 + 1 1 0.02 2 2 0.02 0.01 + MIX 3 + DIFF 1.500E+00 4.00000E-01 + TOTAL 0.2222222 0.833333333 + NUSIGF 0.000E+00 1.35000E-01 + H-FACTOR 0.000E+00 1.35000E-01 + SCAT 1 1 0.1922222 2 2 0.7033333 0.2E-01 + 1 1 0.02 2 2 0.01 0.01 + MIX 4 + DIFF 2.000E+00 3.0000E-01 + TOTAL 0.1666667 1.11111111 + SCAT 1 1 0.1266667 2 2 1.1011111 0.4E-01 + 1 1 0.01 2 2 0.05 0.02 + MIX 5 + DIFF 2.000E+00 3.0000E-01 + TOTAL 0.1666667 1.11111111 + SCAT 1 1 0.1266667 2 2 1.0561111 0.4E-01 + 1 1 0.01 2 2 0.05 0.02 + ; +TRACK := TRIVAT: IAEA3D :: + TITLE 'TEST IAEA 3D' + EDIT 5 MAXR 405 DUAL 1 1 SPN 1 ; +SYSTEM := TRIVAA: MACRO TRACK :: + EDIT 5 ; +FLUX := FLUD: SYSTEM TRACK :: + EDIT 2 ; +assertS FLUX :: 'K-EFFECTIVE' 1 1.025408 ; +TRACK SYSTEM FLUX := DELETE: TRACK SYSTEM FLUX ; +TRACK := TRIVAT: IAEA3D :: + TITLE 'TEST IAEA 3D' + EDIT 5 MAXR 405 DUAL 3 3 SPN 1 ; +SYSTEM := TRIVAA: MACRO TRACK :: + EDIT 5 ; +FLUX := FLUD: SYSTEM TRACK :: + EDIT 2 ; +assertS FLUX :: 'K-EFFECTIVE' 1 1.026429 ; +TRACK SYSTEM FLUX := DELETE: TRACK SYSTEM FLUX ; +TRACK := TRIVAT: IAEA3D :: + TITLE 'TEST IAEA 3D' + EDIT 5 MAXR 405 DUAL 1 1 SPN 3 ; +SYSTEM := TRIVAA: MACRO TRACK :: + EDIT 5 ; +FLUX := FLUD: SYSTEM TRACK :: + EDIT 2 ; +assertS FLUX :: 'K-EFFECTIVE' 1 1.026004 ; +TRACK SYSTEM FLUX := DELETE: TRACK SYSTEM FLUX ; +TRACK := TRIVAT: IAEA3D :: + TITLE 'TEST IAEA 3D' + EDIT 5 MAXR 405 DUAL 3 3 SPN 5 ; +SYSTEM := TRIVAA: MACRO TRACK :: + EDIT 5 ; +FLUX := FLUD: SYSTEM TRACK :: + EDIT 2 ; +assertS FLUX :: 'K-EFFECTIVE' 1 1.026932 ; +ECHO "test SPNtst6_tri completed" ; +END: ; diff --git a/Trivac/data/SPNtst_proc/SPNtst7_biv.c2m b/Trivac/data/SPNtst_proc/SPNtst7_biv.c2m new file mode 100755 index 0000000..f57ba50 --- /dev/null +++ b/Trivac/data/SPNtst_proc/SPNtst7_biv.c2m @@ -0,0 +1,61 @@ +*---- +* TEST CASE SPNtst7_biv +* HEXAGONAL NSE BENCHMARK -- SIMPLIFIED PN THEORY IN BIVAC +* MACROLIB-DEFINED CROSS SECTIONS +*---- +* Define STRUCTURES and MODULES used +*---- +LINKED_LIST GEOM MACRO TRACK SYSTEM FLUX EDIT ; +MODULE GEO: MAC: BIVACT: BIVACA: FLUD: OUT: END: ; +PROCEDURE assertS ; +* +GEOM := GEO: :: HEX 16 + EDIT 2 + HBC S30 VOID + SIDE 19.0 + SPLITL 2 + MIX + 1 + 1 + 1 1 + 1 2 + 2 2 2 + 2 2 3 + 3 3 3 0 + ; +MACRO := MAC: :: + EDIT 2 NGRO 1 NMIX 3 NIFI 1 ANIS 2 + READ INPUT + MIX 1 + TOTAL 0.025 + NUSIGF 0.0155 + CHI 1.0 + SCAT 1 1 0.013 + 1 1 0.0 + MIX 2 + TOTAL 0.025 + SCAT 1 1 0.024 + 1 1 0.006 + MIX 3 + TOTAL 0.075 + SCAT 1 1 0.0 + 1 1 0.0 + ; +TRACK := BIVACT: GEOM :: + TITLE 'ANISOTROPIC NSE BENCHMARK, 1 GROUP' + EDIT 1 MAXR 2500 DUAL (*IELEM=*) 2 (*ICOL=*) 3 + SPN 3 ; +SYSTEM := BIVACA: MACRO TRACK :: + EDIT 1 ; +FLUX := FLUD: SYSTEM TRACK :: + EDIT 2 EXTE 100 5.0E-6 ACCE 4 3 ; +EDIT := OUT: FLUX TRACK MACRO GEOM :: + EDIT 2 INTG + 1 2 3 4 5 + 6 7 8 9 10 + 11 12 13 14 15 + 0 + ; +assertS FLUX :: 'K-EFFECTIVE' 1 1.000329 ; +ECHO "test SPNtst7_biv completed" ; +END: ; diff --git a/Trivac/data/SPNtst_proc/SPNtst7_tri.c2m b/Trivac/data/SPNtst_proc/SPNtst7_tri.c2m new file mode 100755 index 0000000..a11f6b5 --- /dev/null +++ b/Trivac/data/SPNtst_proc/SPNtst7_tri.c2m @@ -0,0 +1,61 @@ +*---- +* TEST CASE SPNtst7_tri +* HEXAGONAL NSE BENCHMARK -- SIMPLIFIED PN THEORY IN TRIVAC +* MACROLIB-DEFINED CROSS SECTIONS +*---- +* Define STRUCTURES and MODULES used +*---- +LINKED_LIST GEOM MACRO TRACK SYSTEM FLUX EDIT ; +MODULE GEO: MAC: TRIVAT: TRIVAA: FLUD: OUT: END: ; +PROCEDURE assertS ; +* +GEOM := GEO: :: HEX 16 + EDIT 2 + HBC S30 VOID + SIDE 19.0 + SPLITL 2 + MIX + 1 + 1 + 1 1 + 1 2 + 2 2 2 + 2 2 3 + 3 3 3 0 + ; +MACRO := MAC: :: + EDIT 2 NGRO 1 NMIX 3 NIFI 1 ANIS 2 + READ INPUT + MIX 1 + TOTAL 0.025 + NUSIGF 0.0155 + CHI 1.0 + SCAT 1 1 0.013 + 1 1 0.0 + MIX 2 + TOTAL 0.025 + SCAT 1 1 0.024 + 1 1 0.006 + MIX 3 + TOTAL 0.075 + SCAT 1 1 0.0 + 1 1 0.0 + ; +TRACK := TRIVAT: GEOM :: + TITLE 'ANISOTROPIC NSE BENCHMARK, 1 GROUP' + EDIT 1 MAXR 2500 DUAL (*IELEM=*) 2 (*ICOL=*) 3 + SPN 3 ; +SYSTEM := TRIVAA: MACRO TRACK :: + EDIT 1 ; +FLUX := FLUD: SYSTEM TRACK :: + EDIT 2 ADI 10 EXTE 300 5.0E-6 ACCE 4 3 ; +EDIT := OUT: FLUX TRACK MACRO GEOM :: + EDIT 2 INTG + 1 2 3 4 5 + 6 7 8 9 10 + 11 12 13 14 15 + 0 + ; +assertS FLUX :: 'K-EFFECTIVE' 1 1.000333 ; +ECHO "test SPNtst7_tri completed" ; +END: ; diff --git a/Trivac/data/SPNtst_proc/SPNtst8_tri.c2m b/Trivac/data/SPNtst_proc/SPNtst8_tri.c2m new file mode 100755 index 0000000..a3b24c6 --- /dev/null +++ b/Trivac/data/SPNtst_proc/SPNtst8_tri.c2m @@ -0,0 +1,69 @@ +* TEST CASE SPNtst8_tri +* HEXAGONAL NSE BENCHMARK -- SIMPLIFIED PN THEORY IN TRIVAC +* MACROLIB-DEFINED CROSS SECTIONS +*---- +* Define STRUCTURES and MODULES used +*---- +LINKED_LIST GEOM MACRO TRACK SYSTEM FLUX ; +MODULE GEO: MAC: TRIVAT: TRIVAA: FLUD: END: ; +PROCEDURE assertS ; +* +GEOM := GEO: :: HEXZ 16 3 + EDIT 2 + HBC S30 VOID + SIDE 19.0 + Z- REFL Z+ VOID + MESHZ 0.0 50.0 60.0 70.0 + SPLITL 1 + MIX + 1 + 1 + 1 1 + 1 2 + 2 2 2 + 2 2 3 + 3 3 3 0 + 2 + 2 + 2 2 + 2 2 + 2 2 2 + 2 2 3 + 3 3 3 0 + 3 + 3 + 3 3 + 3 3 + 3 3 3 + 3 3 3 + 3 3 3 0 + ; +MACRO := MAC: :: + EDIT 2 NGRO 1 NMIX 3 NIFI 1 ANIS 2 + READ INPUT + MIX 1 + TOTAL 0.025 + NUSIGF 0.0155 + CHI 1.0 + SCAT 1 1 0.013 + 1 1 0.0 + MIX 2 + TOTAL 0.025 + SCAT 1 1 0.024 + 1 1 0.006 + MIX 3 + TOTAL 0.075 + SCAT 1 1 0.0 + 1 1 0.0 + ; +TRACK := TRIVAT: GEOM :: + TITLE 'ANISOTROPIC NSE BENCHMARK, 1 GROUP' + EDIT 1 MAXR 2500 DUAL (*IELEM=*) 2 (*ICOL=*) 1 + SPN 5 ; +SYSTEM := TRIVAA: MACRO TRACK :: + EDIT 1 ; +FLUX := FLUD: SYSTEM TRACK :: + EDIT 2 ADI 4 EXTE 300 5.0E-6 ACCE 4 3 ; +assertS FLUX :: 'K-EFFECTIVE' 1 0.760959 ; +ECHO "test SPNtst8_tri completed" ; +END: ; diff --git a/Trivac/data/SPNtst_proc/SPNtst9_biv.c2m b/Trivac/data/SPNtst_proc/SPNtst9_biv.c2m new file mode 100755 index 0000000..bf7c273 --- /dev/null +++ b/Trivac/data/SPNtst_proc/SPNtst9_biv.c2m @@ -0,0 +1,69 @@ +* TEST CASE SPNtst9_biv +* CARTESIAN 3-GROUP BENCHMARK -- SIMPLIFIED PN THEORY IN BIVAC +* MACROLIB-DEFINED CROSS SECTIONS +*---- +* Define STRUCTURES and MODULES used +*---- +LINKED_LIST GEOM MACRO TRACK SYSTEM FLUX EDIT ; +MODULE GEO: MAC: BIVACT: BIVACA: FLUD: OUT: ERROR: END: ; +INTEGER s := 1 ; +PROCEDURE assertS ; +* +GEOM := GEO: :: CAR2D 5 5 + X- REFL X+ VOID + Y- REFL Y+ VOID + MIX 1 1 2 2 3 + 1 1 2 2 3 + 2 2 2 2 3 + 2 2 2 3 3 + 3 3 3 3 0 + MESHX 0.0 40.0 80.0 120.0 160.0 200.0 + MESHY 0.0 40.0 80.0 120.0 160.0 200.0 + SPLITX <<s>> <<s>> <<s>> <<s>> <<s>> + SPLITY <<s>> <<s>> <<s>> <<s>> <<s>> + ; +MACRO := MAC: :: + EDIT 2 NGRO 3 NMIX 3 NIFI 1 ANIS 2 + READ INPUT + MIX 1 (* ACTIVE INNER CORE *) + CHI 1.0 0.0 0.0 + NUSIGF 1.235E-02 5.225E-03 7.684E-03 + H-FACTOR 1.235E-02 5.225E-03 7.684E-03 + TOTAL 1.31234E-01 1.93349E-01 2.63713E-01 + SCAT 1 1 (*1->1*) 1.00247E-01 + 2 2 (*2->2*) 1.83859E-01 (*1->2*) 2.544E-02 + 3 3 (*3->3*) 2.56380E-01 (*2->3*) 6.551E-03 (*1->3*) 5.625E-04 + 1 1 (*1->1*) 1.00247E-02 + 2 2 (*2->2*) 1.83859E-02 (*1->2*) 2.544E-03 + 3 3 (*3->3*) 2.56380E-02 (*2->3*) 6.551E-04 (*1->3*) 5.625E-05 + MIX 2 (* ACTIVE OUTER CORE *) + CHI 1.0 0.0 0.0 + NUSIGF 1.467E-02 6.955E-03 9.986E-03 + H-FACTOR 1.467E-02 6.955E-03 9.986E-03 + TOTAL 1.30822E-01 1.93237E-01 2.62674E-01 + SCAT 1 1 (*1->1*) 9.96078E-02 + 2 2 (*2->2*) 1.83362E-01 (*1->2*) 2.497E-02 + 3 3 (*3->3*) 2.54575E-01 (*2->3*) 6.341E-03 (*1->3*) 5.548E-04 + 1 1 (*1->1*) 9.96078E-03 + 2 2 (*2->2*) 1.83362E-02 (*1->2*) 2.497E-03 + 3 3 (*3->3*) 2.54575E-02 (*2->3*) 6.341E-04 (*1->3*) 5.548E-05 + MIX 3 (* SODIUM CHANNEL *) + TOTAL 6.93722E-02 1.02187E-01 1.37118E-01 + SCAT 1 1 (*1->1*) 5.78471E-02 + 2 2 (*2->2*) 9.85380E-02 (*1->2*) 1.130E-02 + 3 3 (*3->3*) 1.36811E-01 (*2->3*) 3.571E-03 (*1->3*) 6.718E-05 + 1 1 (*1->1*) 5.78471E-03 + 2 2 (*2->2*) 9.85380E-03 (*1->2*) 1.130E-03 + 3 3 (*3->3*) 1.36811E-02 (*2->3*) 3.571E-04 (*1->3*) 6.718E-06 + ; +TRACK := BIVACT: GEOM :: + TITLE 'ANISOTROPIC NSE BENCHMARK, 1 GROUP' + EDIT 1 MAXR 2500 DUAL (*IELEM=*) 3 (*ICOL=*) 1 + SPN 3 ; +SYSTEM := BIVACA: MACRO TRACK :: + EDIT 1 ; +FLUX := FLUD: SYSTEM TRACK :: + EDIT 2 EXTE 100 5.0E-6 ACCE 4 3 ; +assertS FLUX :: 'K-EFFECTIVE' 1 1.5197747 ; +ECHO "test SPNtst9_biv completed" ; +END: ; diff --git a/Trivac/data/SPNtst_proc/SPNtst9_tri.c2m b/Trivac/data/SPNtst_proc/SPNtst9_tri.c2m new file mode 100755 index 0000000..250acaa --- /dev/null +++ b/Trivac/data/SPNtst_proc/SPNtst9_tri.c2m @@ -0,0 +1,69 @@ +* TEST CASE SPNtst9_tri +* CARTESIAN 3-GROUP BENCHMARK -- SIMPLIFIED PN THEORY IN TRIVAC +* MACROLIB-DEFINED CROSS SECTIONS +*---- +* Define STRUCTURES and MODULES used +*---- +LINKED_LIST GEOM MACRO TRACK SYSTEM FLUX EDIT ; +MODULE GEO: MAC: TRIVAT: TRIVAA: FLUD: OUT: ERROR: END: ; +INTEGER s := 1 ; +PROCEDURE assertS ; +* +GEOM := GEO: :: CAR2D 5 5 + X- REFL X+ VOID + Y- REFL Y+ VOID + MIX 1 1 2 2 3 + 1 1 2 2 3 + 2 2 2 2 3 + 2 2 2 3 3 + 3 3 3 3 0 + MESHX 0.0 40.0 80.0 120.0 160.0 200.0 + MESHY 0.0 40.0 80.0 120.0 160.0 200.0 + SPLITX <<s>> <<s>> <<s>> <<s>> <<s>> + SPLITY <<s>> <<s>> <<s>> <<s>> <<s>> + ; +MACRO := MAC: :: + EDIT 2 NGRO 3 NMIX 3 NIFI 1 ANIS 2 + READ INPUT + MIX 1 (* ACTIVE INNER CORE *) + CHI 1.0 0.0 0.0 + NUSIGF 1.235E-02 5.225E-03 7.684E-03 + H-FACTOR 1.235E-02 5.225E-03 7.684E-03 + TOTAL 1.31234E-01 1.93349E-01 2.63713E-01 + SCAT 1 1 (*1->1*) 1.00247E-01 + 2 2 (*2->2*) 1.83859E-01 (*1->2*) 2.544E-02 + 3 3 (*3->3*) 2.56380E-01 (*2->3*) 6.551E-03 (*1->3*) 5.625E-04 + 1 1 (*1->1*) 1.00247E-02 + 2 2 (*2->2*) 1.83859E-02 (*1->2*) 2.544E-03 + 3 3 (*3->3*) 2.56380E-02 (*2->3*) 6.551E-04 (*1->3*) 5.625E-05 + MIX 2 (* ACTIVE OUTER CORE *) + CHI 1.0 0.0 0.0 + NUSIGF 1.467E-02 6.955E-03 9.986E-03 + H-FACTOR 1.467E-02 6.955E-03 9.986E-03 + TOTAL 1.30822E-01 1.93237E-01 2.62674E-01 + SCAT 1 1 (*1->1*) 9.96078E-02 + 2 2 (*2->2*) 1.83362E-01 (*1->2*) 2.497E-02 + 3 3 (*3->3*) 2.54575E-01 (*2->3*) 6.341E-03 (*1->3*) 5.548E-04 + 1 1 (*1->1*) 9.96078E-03 + 2 2 (*2->2*) 1.83362E-02 (*1->2*) 2.497E-03 + 3 3 (*3->3*) 2.54575E-02 (*2->3*) 6.341E-04 (*1->3*) 5.548E-05 + MIX 3 (* SODIUM CHANNEL *) + TOTAL 6.93722E-02 1.02187E-01 1.37118E-01 + SCAT 1 1 (*1->1*) 5.78471E-02 + 2 2 (*2->2*) 9.85380E-02 (*1->2*) 1.130E-02 + 3 3 (*3->3*) 1.36811E-01 (*2->3*) 3.571E-03 (*1->3*) 6.718E-05 + 1 1 (*1->1*) 5.78471E-03 + 2 2 (*2->2*) 9.85380E-03 (*1->2*) 1.130E-03 + 3 3 (*3->3*) 1.36811E-02 (*2->3*) 3.571E-04 (*1->3*) 6.718E-06 + ; +TRACK := TRIVAT: GEOM :: + TITLE 'ANISOTROPIC NSE BENCHMARK, 1 GROUP' + EDIT 1 MAXR 2500 DUAL (*IELEM=*) 3 (*ICOL=*) 1 + SPN 3 ; +SYSTEM := TRIVAA: MACRO TRACK :: + EDIT 1 ; +FLUX := FLUD: SYSTEM TRACK :: + EDIT 2 EXTE 100 5.0E-6 ACCE 4 3 ; +assertS FLUX :: 'K-EFFECTIVE' 1 1.5197747 ; +ECHO "test SPNtst9_tri completed" ; +END: ; diff --git a/Trivac/data/SPNtst_proc/iaea2d_iram.c2m b/Trivac/data/SPNtst_proc/iaea2d_iram.c2m new file mode 100755 index 0000000..0768f6f --- /dev/null +++ b/Trivac/data/SPNtst_proc/iaea2d_iram.c2m @@ -0,0 +1,132 @@ +*---- +* TEST CASE iaea2d_iram +* IAEA 2D BENCHMARK IN DIFFUSION THEORY +* MACROLIB-DEFINED CROSS SECTIONS +*---- +* Define STRUCTURES and MODULES used +*---- +LINKED_LIST IAEA MACRO TRACK SYSTEM FLUX EDIT ; +MODULE GEO: MAC: BIVACT: BIVACA: TRIVAT: TRIVAA: FLUD: OUT: DELETE: + END: ABORT: ; +PROCEDURE assertS ; +* +IAEA := GEO: :: CAR2D 9 9 + EDIT 2 + X- DIAG X+ VOID + Y- SYME Y+ DIAG + MIX 3 2 2 2 3 2 2 1 4 + 2 2 2 2 2 2 1 4 + 2 2 2 2 1 1 4 + 2 2 2 1 4 4 + 3 1 1 4 0 + 1 4 4 0 + 4 0 0 + 0 0 + 0 + MESHX 0.0 20.0 40.0 60.0 80.0 100.0 120.0 140.0 160.0 180.0 + ; +MACRO := MAC: :: + EDIT 2 NGRO 2 NMIX 4 NIFI 1 + READ INPUT + MIX 1 + DIFF 1.500E+00 4.0000E-01 + TOTAL 3.012E-02 8.0032E-02 + NUSIGF 0.000E+00 1.3500E-01 + H-FACTOR 0.000E+00 1.3500E-01 + SCAT 1 1 0.0 2 2 0.0 0.2E-01 + MIX 2 + DIFF 1.500E+00 4.0000E-01 + TOTAL 3.012E-02 8.5032E-02 + NUSIGF 0.000E+00 1.3500E-01 + H-FACTOR 0.000E+00 1.3500E-01 + SCAT 1 1 0.0 2 2 0.0 0.2E-01 + MIX 3 + DIFF 1.500E+00 4.00000E-01 + TOTAL 3.012E-02 1.30032E-01 + NUSIGF 0.000E+00 1.35000E-01 + H-FACTOR 0.000E+00 1.35000E-01 + SCAT 1 1 0.0 2 2 0.0 0.2E-01 + MIX 4 + DIFF 2.000E+00 3.0000E-01 + TOTAL 4.016E-02 1.0024E-02 + SCAT 1 1 0.0 2 2 0.0 0.4E-01 + ; +*---- +* BIVAC +*---- +TRACK := BIVACT: IAEA :: + TITLE 'IAEA-2D BENCHMARK' + EDIT 2 MAXR 81 PRIM 2 2 ; +SYSTEM := BIVACA: MACRO TRACK ; +FLUX := FLUD: SYSTEM TRACK :: + EDIT 1 IRAM 3 7 EXTE 100 1.0E-8 ; +assertS FLUX :: 'K-EFFECTIVE' 1 1.032315 ; +TRACK SYSTEM FLUX := DELETE: TRACK SYSTEM FLUX ; +TRACK := BIVACT: IAEA :: + TITLE 'IAEA-2D BENCHMARK' + EDIT 2 MAXR 81 DUAL 2 2 ; +SYSTEM := BIVACA: MACRO TRACK ; +FLUX := FLUD: SYSTEM TRACK :: + EDIT 1 IRAM 3 7 EXTE 100 1.0E-8 ; +assertS FLUX :: 'K-EFFECTIVE' 1 1.028691 ; +TRACK SYSTEM FLUX := DELETE: TRACK SYSTEM FLUX ; +TRACK := BIVACT: IAEA :: + TITLE 'IAEA-2D BENCHMARK' + EDIT 2 MAXR 81 DUAL 2 2 SPN 3 ; +SYSTEM := BIVACA: MACRO TRACK ; +FLUX := FLUD: SYSTEM TRACK :: + EDIT 1 IRAM 3 7 EXTE 100 1.0E-8 ; +assertS FLUX :: 'K-EFFECTIVE' 1 0.9690545 ; +TRACK SYSTEM FLUX := DELETE: TRACK SYSTEM FLUX ; +*---- +* TRIVAC +*---- +TRACK := TRIVAT: IAEA :: + TITLE 'IAEA-2D BENCHMARK' + EDIT 2 MAXR 81 PRIM 3 ; +SYSTEM := TRIVAA: MACRO TRACK ; +FLUX := FLUD: SYSTEM TRACK :: + EDIT 2 ADJ IRAM 3 7 10 EXTE 500 1.0E-8 ; +assertS FLUX :: 'K-EFFECTIVE' 1 1.029765 ; +TRACK SYSTEM FLUX := DELETE: TRACK SYSTEM FLUX ; +TRACK := TRIVAT: IAEA :: + TITLE 'IAEA-2D BENCHMARK' + EDIT 2 MAXR 81 DUAL 3 2 ; +SYSTEM := TRIVAA: MACRO TRACK ; +FLUX := FLUD: SYSTEM TRACK :: + EDIT 2 ADJ IRAM 3 7 10 EXTE 500 1.0E-8 ; +assertS FLUX :: 'K-EFFECTIVE' 1 1.029412 ; +TRACK SYSTEM FLUX := DELETE: TRACK SYSTEM FLUX ; +TRACK := TRIVAT: IAEA :: + TITLE 'IAEA-2D BENCHMARK' + EDIT 2 MAXR 81 MCFD 3 ; +SYSTEM := TRIVAA: MACRO TRACK ; +FLUX := FLUD: SYSTEM TRACK :: + EDIT 2 ADJ IRAM 3 7 10 EXTE 500 1.0E-8 ; +assertS FLUX :: 'K-EFFECTIVE' 1 1.029412 ; +TRACK SYSTEM FLUX := DELETE: TRACK SYSTEM FLUX ; +TRACK := TRIVAT: IAEA :: + TITLE 'IAEA-2D BENCHMARK' + EDIT 2 MAXR 81 DUAL 1 1 SPN 3 ; +SYSTEM := TRIVAA: MACRO TRACK ; +FLUX := FLUD: SYSTEM TRACK :: + EDIT 2 ADJ IRAM 3 7 10 EXTE 500 1.0E-8 ; +assertS FLUX :: 'K-EFFECTIVE' 1 0.9685930 ; +TRACK SYSTEM FLUX := DELETE: TRACK SYSTEM FLUX ; +TRACK := TRIVAT: IAEA :: + TITLE 'IAEA-2D BENCHMARK' + EDIT 2 MAXR 81 DUAL 2 1 SPN 1 ; +SYSTEM := TRIVAA: MACRO TRACK ; +FLUX := FLUD: SYSTEM TRACK :: + EDIT 2 ADJ IRAM 3 7 10 EXTE 500 1.0E-8 ; +assertS FLUX :: 'K-EFFECTIVE' 1 0.9685487 ; +TRACK SYSTEM FLUX := DELETE: TRACK SYSTEM FLUX ; +TRACK := TRIVAT: IAEA :: + TITLE 'IAEA-2D BENCHMARK' + EDIT 2 MAXR 81 DUAL 2 1 SPN 3 ; +SYSTEM := TRIVAA: MACRO TRACK ; +FLUX := FLUD: SYSTEM TRACK :: + EDIT 2 ADJ IRAM 3 7 10 EXTE 500 1.0E-8 ; +assertS FLUX :: 'K-EFFECTIVE' 1 0.9694149 ; +ECHO "test iaea2d_iram completed" ; +END: ; diff --git a/Trivac/data/SPNtst_proc/pertdiff_p1.c2m b/Trivac/data/SPNtst_proc/pertdiff_p1.c2m new file mode 100755 index 0000000..0b4b2d2 --- /dev/null +++ b/Trivac/data/SPNtst_proc/pertdiff_p1.c2m @@ -0,0 +1,148 @@ +*----- +* GPT TEST pertdiff_p1 +*----- +LINKED_LIST IAEA MACRO MACROT TRACK SYSTEM SYSTEMT FLUX DMACRO DSYSTEM + DSOUR DASOUR DFLUX MACRO2 SYSTEM2 FLUX2 EDIT ADFLUX ; +MODULE GEO: MAC: TRIVAT: TRIVAA: FLUD: DELETE: DELTA: GPTFLU: OUT: + END: ADD: STAT: UTL: ; +PROCEDURE assertS ; +* +IAEA := GEO: :: CAR2D 9 9 + EDIT 2 + X- DIAG X+ VOID + Y- SYME Y+ DIAG + MIX 3 2 2 2 3 2 2 1 4 + 2 2 2 2 2 2 1 4 + 2 2 2 2 1 1 4 + 2 2 2 1 4 4 + 3 1 1 4 0 + 1 4 4 0 + 4 0 0 + 0 0 + 0 + MESHX 0.0 20.0 40.0 60.0 80.0 100.0 120.0 140.0 160.0 180.0 + ; +* +* REFERENCE CASE: +MACRO := MAC: :: + EDIT 2 NGRO 2 NMIX 4 NIFI 1 + READ INPUT + MIX 1 + DIFF 1.900000E+00 4.400000E-01 + TOTAL 3.012000E-02 8.303201E-02 + NUSIGF 0.000000E+00 1.650000E-01 + H-FACTOR 0.000000E+00 1.650000E-01 + SCAT 1 1 0.0 2 2 0.0 0.200000E-01 + MIX 2 + DIFF 1.500000E+00 4.000000E-01 + TOTAL 3.012000E-02 8.503199E-02 + NUSIGF 0.000000E+00 1.350000E-01 + H-FACTOR 0.000000E+00 1.350000E-01 + SCAT 1 1 0.0 2 2 0.0 0.200000E-01 + MIX 3 + DIFF 1.500000E+00 4.000000E-01 + TOTAL 2.912000E-02 1.260320E-01 + NUSIGF 0.000000E+00 1.350000E-01 + H-FACTOR 0.000000E+00 1.350000E-01 + SCAT 1 1 0.0 2 2 0.0 0.200000E-01 + MIX 4 + DIFF 2.000000E+00 3.000000E-01 + TOTAL 4.016000E-02 1.002400E-02 + SCAT 1 1 0.0 2 2 0.0 0.400000E-01 + ; +TRACK := TRIVAT: IAEA :: + TITLE 'MODIFIED TEST IAEA-2D (ANL VERSION)' + EDIT 5 MAXR 1156 + DUAL 2 2 + SPN DIFF 1 SCAT 2 ; +SYSTEM := TRIVAA: MACRO TRACK :: EDIT 5 ; +FLUX := FLUD: SYSTEM TRACK :: EDIT 2 ; +assertS FLUX :: 'K-EFFECTIVE' 1 1.096281 ; +MACROT := MACRO ; +SYSTEMT := SYSTEM ; +FLUX := DELETE: FLUX ; +SYSTEM := DELETE: SYSTEM ; +MACRO := DELETE: MACRO ; +* +* UNPERTURBED CASE: +MACRO := MAC: :: + EDIT 2 NGRO 2 NMIX 4 NIFI 1 + READ INPUT + MIX 1 + DIFF 1.500000E+00 4.000000E-01 + TOTAL 3.012000E-02 8.003199E-02 + NUSIGF 0.000000E+00 1.350000E-01 + H-FACTOR 0.000000E+00 1.350000E-01 + SCAT 1 1 0.0 2 2 0.0 0.200000E-01 + MIX 2 + DIFF 1.500000E+00 4.000000E-01 + TOTAL 3.012000E-02 8.503199E-02 + NUSIGF 0.000000E+00 1.350000E-01 + H-FACTOR 0.000000E+00 1.350000E-01 + SCAT 1 1 0.0 2 2 0.0 0.200000E-01 + MIX 3 + DIFF 1.500000E+00 4.000000E-01 + TOTAL 3.012000E-02 1.300320E-01 + NUSIGF 0.000000E+00 1.350000E-01 + H-FACTOR 0.000000E+00 1.350000E-01 + SCAT 1 1 0.0 2 2 0.0 0.200000E-01 + MIX 4 + DIFF 2.000000E+00 3.000000E-01 + TOTAL 4.016000E-02 1.002400E-02 + SCAT 1 1 0.0 2 2 0.0 0.400000E-01 + ; +SYSTEM := TRIVAA: MACRO TRACK :: EDIT 5 ; +FLUX := FLUD: SYSTEM TRACK :: EDIT 2 ADJ ; +DMACRO := MAC: :: + EDIT 2 NGRO 2 NMIX 4 NIFI 1 + READ INPUT + MIX 1 + DIFF 4.000000E-01 4.000000E-02 + TOTAL 0.000000E+00 3.000000E-03 + NUSIGF 0.000000E+00 3.000000E-02 + H-FACTOR 0.000000E+00 3.000000E-02 + SCAT 1 1 0.0 2 2 0.0 1.0E-10 + MIX 2 + SCAT 1 1 0.0 2 2 0.0 1.0E-10 + MIX 3 + TOTAL -9.999999E-04 -4.000001E-03 + SCAT 1 1 0.0 2 2 0.0 1.0E-10 + MIX 4 + SCAT 1 1 0.0 2 2 0.0 1.0E-10 + ; +DSYSTEM := TRIVAA: MACRO TRACK DMACRO :: EDIT 5 DERI ; +UTL: DSYSTEM :: DUMP ; + +DSOUR := DELTA: FLUX SYSTEM DSYSTEM TRACK :: EDIT 2 ; +DFLUX := GPTFLU: DSOUR FLUX SYSTEM TRACK :: EDIT 2 EXPLICIT + FROM-TO 1 1 ; +assertS DFLUX :: 'K-EFFECTIVE' 1 1.028695 ; +DASOUR := DELTA: FLUX SYSTEM DSYSTEM TRACK :: EDIT 2 ADJ ; +ADFLUX := GPTFLU: DASOUR FLUX SYSTEM TRACK :: EDIT 2 IMPLICIT + FROM-TO 1 1 ; + +assertS DFLUX :: 'K-EFFECTIVE' 1 1.028695 ; +* Reset the perturbation flag of DSYSTEM to 0 so that it can be added. +DSYSTEM := UTL: DSYSTEM :: CREA STATE-VECTOR 9 9 = 0 ; +SYSTEM2 := SYSTEM ; +MACRO2 := MACRO ; +SYSTEM2 := ADD: SYSTEM2 DSYSTEM ; +MACRO2 := ADD: MACRO2 DMACRO ; +STAT: SYSTEMT SYSTEM2 ; +STAT: MACROT MACRO2 ; +FLUX2 := FLUD: SYSTEM2 TRACK MACRO2 :: EDIT 2 ; +assertS FLUX2 :: 'K-EFFECTIVE' 1 1.094982 ; +EDIT := OUT: FLUX2 TRACK MACRO2 IAEA :: + EDIT 2 INTG + 1 2 3 4 5 6 7 8 0 + 9 10 11 12 13 14 15 0 + 16 17 18 19 20 21 0 + 22 23 24 25 0 0 + 26 27 28 0 0 + 29 0 0 0 + 0 0 0 + 0 0 + 0 + ; +ECHO "test pertdiff_p1 completed" ; +END: ; |