Initial commit from Polytechnique Montreal

1 files changed, 176 insertions, 0 deletions

diff --git a/Trivac/data/DIFtst_proc/iaea_hexa.c2m b/Trivac/data/DIFtst_proc/iaea_hexa.c2m
new file mode 100755
index 0000000..443cf1d
--- /dev/null
+++ b/Trivac/data/DIFtst_proc/iaea_hexa.c2m
@@ -0,0 +1,176 @@
+LINKED_LIST HEX MACRO TRACK SYSTEM FLUX ;
+MODULE GEO: MAC: BIVACT: BIVACA: TRIVAT: TRIVAA: FLUD: DELETE: END: ;
+PROCEDURE assertS ;
+*
+HEX := GEO: :: HEX  16
+       EDIT 2
+       HBC   S30  ALBE  0.0
+       SIDE 11.5470054
+       MIX
+       3
+       2
+       2  3
+       2  2
+       3  2  2
+       2  2  2
+       1  1  1  1
+       ;
+MACRO := MAC: ::
+ EDIT 2 NGRO 2 NMIX 3 NIFI 1
+ READ INPUT
+ MIX     1
+      DIFF  1.5E+00  4.0E-01
+     TOTAL  3.0E-02  8.0E-02
+    NUSIGF  0.0E+00  1.35E-01
+  H-FACTOR  0.0E+00  5.6E-02
+      SCAT  1 1 0.0 2 2 0.0  0.2E-01
+ MIX     2
+      DIFF  1.5E+00  4.0E-01
+     TOTAL  3.0E-02  8.5E-02
+    NUSIGF  0.0E+00  1.35E-01
+  H-FACTOR  0.0E+00  5.6E-02
+      SCAT  1 1 0.0 2 2 0.0  0.2E-01
+ MIX     3
+      DIFF  1.5E+00  4.0E-01
+     TOTAL  3.0E-02  1.3E-01
+    NUSIGF  0.0E+00  1.35E-01
+  H-FACTOR  0.0E+00  5.6E-02
+      SCAT  1 1 0.0 2 2 0.0  0.2E-01
+ ;
+*----
+* BIVAC
+*----
+HEX := GEO: HEX ::
+      SPLITH 0 SPLITL 0 ;
+TRACK := BIVACT: HEX ::
+      TITLE 'TEST HEXAGONAL IAEA BENCHMARK CASE A (NO REFLECTOR).'
+      EDIT 5 MAXR 500 MCFD ;
+SYSTEM := BIVACA: MACRO TRACK ::
+      EDIT 2 ;
+FLUX := FLUD: SYSTEM TRACK ::
+      EDIT 2 ;
+assertS FLUX :: 'K-EFFECTIVE' 1 0.9917505 ;
+TRACK SYSTEM FLUX := DELETE: TRACK SYSTEM FLUX ;
+*
+HEX := GEO: HEX ::
+      SPLITH 0 SPLITL 0 ;
+TRACK := BIVACT: HEX ::
+      TITLE 'TEST HEXAGONAL IAEA BENCHMARK CASE A (NO REFLECTOR).'
+      EDIT 5 MAXR 500 PRIM (*IELEM=*) 1 (*ICOL=*) 2 ;
+SYSTEM := BIVACA: MACRO TRACK ::
+      EDIT 2 ;
+FLUX := FLUD: SYSTEM TRACK ::
+      EDIT 2 ;
+assertS FLUX :: 'K-EFFECTIVE' 1 0.9610498 ;
+TRACK SYSTEM FLUX := DELETE: TRACK SYSTEM FLUX ;
+*
+HEX := GEO: HEX ::
+      SPLITH 1 SPLITL 0 ;
+TRACK := BIVACT: HEX ::
+      TITLE 'TEST HEXAGONAL IAEA BENCHMARK CASE A (NO REFLECTOR).'
+      EDIT 5 MAXR 500 MCFD ;
+SYSTEM := BIVACA: MACRO TRACK ::
+      EDIT 2 ;
+FLUX := FLUD: SYSTEM TRACK ::
+      EDIT 2 ;
+assertS FLUX :: 'K-EFFECTIVE' 1 0.9822278 ;
+TRACK SYSTEM FLUX := DELETE: TRACK SYSTEM FLUX ;
+*
+HEX := GEO: HEX ::
+      SPLITH 1 SPLITL 0 ;
+TRACK := BIVACT: HEX ::
+      TITLE 'TEST HEXAGONAL IAEA BENCHMARK CASE A (NO REFLECTOR).'
+      EDIT 5 MAXR 500 PRIM (*IELEM=*) 1 (*ICOL=*) 2 ;
+SYSTEM := BIVACA: MACRO TRACK ::
+      EDIT 2 ;
+FLUX := FLUD: SYSTEM TRACK ::
+      EDIT 2 ;
+assertS FLUX :: 'K-EFFECTIVE' 1 0.9709085 ;
+TRACK SYSTEM FLUX := DELETE: TRACK SYSTEM FLUX ;
+*
+HEX := GEO: HEX ::
+      SPLITH 0 SPLITL 1 ;
+TRACK := BIVACT: HEX ::
+      TITLE 'TEST HEXAGONAL IAEA BENCHMARK CASE A (NO REFLECTOR).'
+      EDIT 5 MAXR 5000 DUAL (*IELEM=*) 2 (*ICOL=*) 3 ;
+SYSTEM := BIVACA: MACRO TRACK ::
+      EDIT 2 ;
+FLUX := FLUD: SYSTEM TRACK ::
+      EDIT 2 ;
+assertS FLUX :: 'K-EFFECTIVE' 1 0.9782231 ;
+TRACK SYSTEM FLUX := DELETE: TRACK SYSTEM FLUX ;
+*
+HEX := GEO: HEX ::
+      SPLITH 0 SPLITL 2 ;
+TRACK := BIVACT: HEX ::
+      TITLE 'TEST HEXAGONAL IAEA BENCHMARK CASE A (NO REFLECTOR).'
+      EDIT 5 MAXR 5000 DUAL (*IELEM=*) 1 (*ICOL=*) 3 ;
+SYSTEM := BIVACA: MACRO TRACK ::
+      EDIT 2 ;
+FLUX := FLUD: SYSTEM TRACK ::
+      EDIT 2 ;
+assertS FLUX :: 'K-EFFECTIVE' 1 0.9775723 ;
+TRACK SYSTEM FLUX := DELETE: TRACK SYSTEM FLUX ;
+*----
+* TRIVAC
+*----
+HEX := GEO: HEX ::
+      SPLITH 0 SPLITL 0 ;
+TRACK := TRIVAT: HEX ::
+      TITLE 'TEST HEXAGONAL IAEA BENCHMARK CASE A (NO REFLECTOR).'
+      EDIT 5 MAXR 500 MCFD (*IELEM=*) 1 ;
+SYSTEM := TRIVAA: MACRO TRACK ::
+      EDIT 2 ;
+FLUX := FLUD: SYSTEM TRACK ::
+      EDIT 2 ;
+assertS FLUX :: 'K-EFFECTIVE' 1 0.9917505 ;
+TRACK SYSTEM FLUX := DELETE: TRACK SYSTEM FLUX ;
+*
+HEX := GEO: HEX ::
+      SPLITH 0 SPLITL 0 ;
+TRACK := TRIVAT: HEX ::
+      TITLE 'TEST HEXAGONAL IAEA BENCHMARK CASE A (NO REFLECTOR).'
+      EDIT 2 MAXR 500 PRIM (*IELEM=*) 1 ;
+SYSTEM := TRIVAA: MACRO TRACK ::
+      EDIT 2 ;
+FLUX := FLUD: SYSTEM TRACK ::
+      EDIT 2 ;
+assertS FLUX :: 'K-EFFECTIVE' 1 0.9610475 ;
+TRACK SYSTEM FLUX := DELETE: TRACK SYSTEM FLUX ;
+*
+HEX := GEO: HEX ::
+      SPLITH 1 SPLITL 0 ;
+TRACK := TRIVAT: HEX ::
+      TITLE 'TEST HEXAGONAL IAEA BENCHMARK CASE A (NO REFLECTOR).'
+      EDIT 5 MAXR 500 MCFD (*IELEM=*) 1 ;
+SYSTEM := TRIVAA: MACRO TRACK ::
+      EDIT 2 ;
+FLUX := FLUD: SYSTEM TRACK ::
+      EDIT 2 ;
+assertS FLUX :: 'K-EFFECTIVE' 1 0.9822259 ;
+TRACK SYSTEM FLUX := DELETE: TRACK SYSTEM FLUX ;
+*
+HEX := GEO: HEX ::
+      SPLITH 1 SPLITL 0 ;
+TRACK := TRIVAT: HEX ::
+      TITLE 'TEST HEXAGONAL IAEA BENCHMARK CASE A (NO REFLECTOR).'
+      EDIT 5 MAXR 500 PRIM (*IELEM=*) 1 ;
+SYSTEM := TRIVAA: MACRO TRACK ::
+      EDIT 2 ;
+FLUX := FLUD: SYSTEM TRACK ::
+      EDIT 2 ;
+assertS FLUX :: 'K-EFFECTIVE' 1 0.9709070 ;
+TRACK SYSTEM FLUX := DELETE: TRACK SYSTEM FLUX ;
+*
+HEX := GEO: HEX ::
+      SPLITH 0 SPLITL 2 ;
+TRACK := TRIVAT: HEX ::
+      TITLE 'TEST HEXAGONAL IAEA BENCHMARK CASE A (NO REFLECTOR).'
+      EDIT 5 MAXR 5000 DUAL (*IELEM=*) 2 (*ICOL=*) 3 ;
+SYSTEM := TRIVAA: MACRO TRACK ::
+      EDIT 2 ;
+FLUX := FLUD: SYSTEM TRACK ::
+      EDIT 2 ADI 4 ;
+assertS FLUX :: 'K-EFFECTIVE' 1 0.9780799 ;
+ECHO "test iaea_hexa completed" ;
+END: ;