1 files changed, 46 insertions, 0 deletions
diff --git a/Dragon/data/UOX_5x5_TG6_sym8_multiDom.x2m b/Dragon/data/UOX_5x5_TG6_sym8_multiDom.x2m
new file mode 100644
index 0000000..2284e42
--- /dev/null
+++ b/Dragon/data/UOX_5x5_TG6_sym8_multiDom.x2m
@@ -0,0 +1,46 @@
+*----
+*  TEST CASE UOX_5x5_TG6_sym8_multiDom
+*  SIMPLE 5 X 5 PWR ASSEMBLY WITH SYBIL
+*  Input cross section data from Apex
+*----
+*  Define STRUCTURES and MODULES used
+*----
+LINKED_LIST ASSMB TRACK MACRO SYS FLUX ;
+HDF5_FILE UOX_5x5 :: FILE './UOX_5x5_TG6_sym8_multiDom.h5' ;
+MODULE GEO: HUTL: SPH: SYBILT: ASM: FLU: END: ;
+REAL B2 ;
+PROCEDURE assertS ;
+
+REAL side1 := 1.26 ;
+REAL side2 := side1 1.26 + ;
+REAL side3 := side2 1.26 + ;
+ASSMB := GEO: :: CAR2D 3 3 (*ASSEMBLY 5 X 5*)
+          X- DIAG X+ REFL
+          Y- SYME Y+ DIAG
+          MESHX 0.0 <<side1>> <<side2>> <<side3>>
+          MIX 1 2 4
+                3 5
+                  6
+;
+
+TRACK := SYBILT: ASSMB ::
+     EDIT 1
+     MAXR 40  (*MAXIMUM OF 40 REGIONS*)
+     MAXZ 100000
+     TITLE 'SIMPLE 5x5 FUEL ASSEMBLY'
+     QUA2 6 6
+     DP00 ;
+
+HUTL: UOX_5x5 :: DIR
+  GREP '/calc       1/miscellaneous/B2' 1 >>B2<< ;
+ECHO 'buckling B2=' B2 ;
+UOX_5x5 := SPH: UOX_5x5 TRACK :: EDIT 6 STEP AT 1
+  EQUI 'equivalence_P0c_up0' ;
+MACRO := SPH: UOX_5x5 :: EDIT 3 STEP AT 1 MACRO SPRD
+  EQUI 'equivalence_P0c_up0' ;
+SYS := ASM: MACRO TRACK :: PIJ ;
+FLUX := FLU: MACRO TRACK SYS :: TYPE K LKRD SIGS BUCK <<B2>> ;
+assertS FLUX :: 'K-INFINITY' 1 1.320080 ;
+
+ECHO "UOX_5x5_TG6_sym8_multiDom completed" ;
+END: ;