1 files changed, 72 insertions, 0 deletions
diff --git a/Trivac/data/DIFtst_proc/iaea_hexb.c2m b/Trivac/data/DIFtst_proc/iaea_hexb.c2m
new file mode 100755
index 0000000..47a42f9
--- /dev/null
+++ b/Trivac/data/DIFtst_proc/iaea_hexb.c2m
@@ -0,0 +1,72 @@
+LINKED_LIST HEX MACRO TRACK SYSTEM FLUX EDIT ;
+MODULE GEO: MAC: TRIVAT: TRIVAA: FLUD: OUT: DELETE: END: ;
+PROCEDURE assertS ;
+*
+HEX := GEO: :: HEX  20
+       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
+       4  4  4  4
+       ;
+MACRO := MAC: ::
+ EDIT 2 NGRO 2 NMIX 4 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
+ MIX     4
+      DIFF  1.5E+00  4.0E-01
+     TOTAL  4.0E-02  1.0E-02
+      SCAT  1 1 0.0 2 2 0.0  0.4E-01
+ ;
+HEX := GEO: HEX ::
+      SPLITH 0 SPLITL 0 ;
+TRACK := TRIVAT: HEX ::
+      TITLE 'TEST HEXAGONAL IAEA BENCHMARK CASE B (WITH REFLECTOR).'
+      EDIT 5 MAXR 500 MCFD (*IELEM=*) 1 ;
+SYSTEM := TRIVAA: MACRO TRACK ::
+      EDIT 2 ;
+FLUX := FLUD: SYSTEM TRACK ::
+      EDIT 2 ;
+EDIT := OUT: FLUX HEX MACRO TRACK ::
+      EDIT 2 INTG IN ;
+assertS FLUX :: 'K-EFFECTIVE' 1 1.009611 ;
+TRACK SYSTEM FLUX EDIT := DELETE: TRACK SYSTEM FLUX EDIT ;
+*
+HEX := GEO: HEX ::
+      SPLITH 0 SPLITL 2 ;
+TRACK := TRIVAT: HEX ::
+      TITLE 'TEST HEXAGONAL IAEA BENCHMARK CASE B (WITH REFLECTOR).'
+      EDIT 5 MAXR 5000 DUAL (*IELEM=*) 2 (*ICOL=*) 3 ;
+SYSTEM := TRIVAA: MACRO TRACK ::
+      EDIT 2 ;
+FLUX := FLUD: SYSTEM TRACK ::
+      ADI 2 EDIT 2 ;
+EDIT := OUT: FLUX HEX MACRO TRACK ::
+      EDIT 2 INTG IN ;
+assertS FLUX :: 'K-EFFECTIVE' 1 1.005512 ;
+ECHO "test iaea_hexb completed" ;
+END: ;