1 files changed, 46 insertions, 0 deletions
diff --git a/Dragon/data/fbr_tone.x2m b/Dragon/data/fbr_tone.x2m
new file mode 100644
index 0000000..e15fc14
--- /dev/null
+++ b/Dragon/data/fbr_tone.x2m
@@ -0,0 +1,46 @@
+*----
+*
+*  TEST CASE fbr
+*  Junjie Rao and Xingjie Peng
+*
+*----
+*  Define STRUCTURES and MODULES used
+*----
+LINKED_LIST GEOM TRACK LIBRARY ASB FLUX ;
+MODULE LIB: GEO: SYBILT: TONE: ASM: FLU: DELETE: END: ;
+PROCEDURE assertS ;
+*
+GEOM := GEO: :: TUBE 3
+  R+ REFL
+  RADIUS 0.0 0.3236 0.3859 0.53703
+  SPLITR 2 1 5
+  MIX 1 2 3 ;
+TRACK := SYBILT: GEOM ::
+  MAXR 20 QUA1 16 ;
+*----
+* USS
+*----
+LIBRARY := LIB: ::
+ EDIT 1
+ NMIX 3    (*MAXIMUM OF MATERIAL MIXTURES*)
+ CTRA APOL (*APOLLO TYPE TRANSPORT CORRECTION*)
+ ANIS 2
+*
+ MIXS LIB: DRAGON FIL: DLIB_315
+ MIX 1 300.0 (*COMB*)
+    U235    = U235   3.08220E-5 1
+    U238    = U238   1.82440E-2 1
+    Pu239   = Pu239  2.81470E-3 1
+ MIX 2 300.0 (*GAIN1*)
+    Cr52    = Cr52   8.68256E-3 2
+    Fe56    = Fe56   6.39008E-2 2
+ MIX 3 300.0 (*MODE1*)
+    Na23    = Na23   2.22720E-2
+ ;
+LIBRARY := TONE: LIBRARY TRACK :: EDIT 3 TRAN PIJ ;
+ASB := ASM: LIBRARY TRACK :: PIJ ;
+FLUX := FLU: LIBRARY TRACK ASB :: TYPE K ;
+assertS FLUX :: K-EFFECTIVE 1 1.466248 ;
+LIBRARY ASB FLUX := DELETE: LIBRARY ASB FLUX ;
+ECHO "test fbr_tone completed" ;
+END: ;