Initial commit from Polytechnique Montreal

1 files changed, 165 insertions, 0 deletions

diff --git a/Dragon/data/salmacro_proc/TDCM48.c2m b/Dragon/data/salmacro_proc/TDCM48.c2m
new file mode 100644
index 0000000..ab2227a
--- /dev/null
+++ b/Dragon/data/salmacro_proc/TDCM48.c2m
@@ -0,0 +1,165 @@
+*----
+*  TEST CASE TDCM48
+*  MACROSCOPIC CROSS SECTIONS
+*  SIMPLE ASSEMBLY BENCHMARK WITH A WINDMILL DISCRETIZATION
+*----
+*  Define STRUCTURES and MODULES used
+*----
+LINKED_LIST GEON2 TRACK MACRO PIJ FLUX ;
+SEQ_BINARY TF_EXC ;
+SEQ_ASCII UOX_TBH :: FILE './GEOtst_g2s.tdt' ;
+SEQ_ASCII GEOtstPS :: FILE './GEOtst2_g2s.ps' ;
+MODULE GEO: G2S: MAC: ASM: FLU: END: ;
+PROCEDURE geomProc ;
+PROCEDURE assertS ;
+*
+*------------------------------------*                                   
+* BEGIN GEOMETRY FOR FLUX CALCULATION*                                   
+* -----------------------------------*                                   
+REAL Rcomb1 := 0.288712 ;                                          
+REAL Rcomb2 := 0.365195 ;                                          
+REAL Rcomb3 := 0.397962 ;                                          
+REAL Rcomb4 := 0.4083 ;                                            
+REAL R_int_G := 0.4165 ;                                           
+REAL R_ext_G := 0.4775 ;                                           
+REAL Cote := 1.26 ;                                                
+REAL Lame := 0.042 ;
+REAL mesh1 := Cote ;
+REAL mesh2 := mesh1 Cote + ;
+REAL mesh3 := mesh2 Cote + ;
+REAL mesh4 := mesh3 Lame + ;
+*
+GEON2 := GEO: :: CAR2D 4 4
+  EDIT 0
+  X- DIAG X+ REFL
+  Y- SYME Y+ DIAG
+  CELL
+  C0101 C0201 C0301  Lame_V
+        C0202 C0302  Lame_V
+              C0303  Lame_V
+                     Lame_C
+  MESHX 0.0 <<mesh1>> <<mesh2>> <<mesh3>> <<mesh4>>
+  MESHY 0.0 <<mesh1>> <<mesh2>> <<mesh3>> <<mesh4>>
+  ::: Lame_C := GEO: CAR2D 1 1
+    MESHX 0.0 <<Lame>> MESHY 0.0 <<Lame>>
+    MIX 7 ;
+
+  ::: Lame_V := GEO: CAR2D 1 1
+    MESHX 0.0 <<Lame>> MESHY 0.0 <<Cote>>
+    SPLITY 3 MIX 7 ;
+
+  ::: C0101 := GEO: CARCEL 6
+         MESHX 0.0 <<Cote>>
+         MESHY 0.0 <<Cote>>
+         SECT 4 6
+         RADIUS 0.0 <<Rcomb1>> <<Rcomb2>> <<Rcomb3>> <<Rcomb4>>
+                <<R_int_G>> <<R_ext_G>>
+         MIX  1 2 3 4   5 6 7 7 7 7 7 7 7 7 7 7 7 7 ;
+
+  ::: C0201 := GEO: C0101
+         MIX  8 9 10 11   5 6 7 7 7 7 7 7 7 7 7 7 7 7 ;
+
+  ::: C0202 := GEO: C0101
+         MIX  12 13 14 15   5 6 7 7 7 7 7 7 7 7 7 7 7 7 ;
+
+  ::: C0301 := GEO: C0101
+         MIX  16 17 18 19   5 6 7 7 7 7 7 7 7 7 7 7 7 7 ;
+
+  ::: C0302 := GEO: C0101
+         MIX  20 21 22 23   5 6 7 7 7 7 7 7 7 7 7 7 7 7 ;
+
+  ::: C0303 := GEO: C0101
+         MIX  24 25 26 27   5 6 7 7 7 7 7 7 7 7 7 7 7 7 ;
+;
+UOX_TBH GEOtstPS := G2S: GEON2 :: DRAWMIX ;
+                                                 
+MACRO := MAC: ::
+     EDIT 2 NGRO 1 NMIX 27 NIFI 1
+     READ INPUT
+     MIX 1 (*FUEL*)
+        TOTAL 0.3652    SCAT 1 1 0.3234
+        NUSIGF 0.07664  CHI 1.0
+     MIX 2 (*FUEL*)
+        TOTAL 0.3652    SCAT 1 1 0.3234
+        NUSIGF 0.07664  CHI 1.0
+     MIX 3 (*FUEL*)
+        TOTAL 0.3652    SCAT 1 1 0.3234
+        NUSIGF 0.07664  CHI 1.0
+     MIX 4 (*FUEL*)
+        TOTAL 0.3652    SCAT 1 1 0.3234
+        NUSIGF 0.07664  CHI 1.0
+     MIX 5 (*VOID*)
+        TOTAL 0.001     SCAT 1 1 0.0005
+     MIX 6 (*CLAD*)
+        TOTAL 0.4029    SCAT 1 1 0.4000
+     MIX 7 (*WATER*)
+        TOTAL 0.3683    SCAT 1 1 0.35
+     MIX 8 (*FUEL*)
+        TOTAL 0.3652    SCAT 1 1 0.3234
+        NUSIGF 0.07664  CHI 1.0
+     MIX 9 (*FUEL*)
+        TOTAL 0.3652    SCAT 1 1 0.3234
+        NUSIGF 0.07664  CHI 1.0
+     MIX 10 (*FUEL*)
+        TOTAL 0.3652    SCAT 1 1 0.3234
+        NUSIGF 0.07664  CHI 1.0
+     MIX 11 (*FUEL*)
+        TOTAL 0.3652    SCAT 1 1 0.3234
+        NUSIGF 0.07664  CHI 1.0
+     MIX 12 (*FUEL*)
+        TOTAL 0.3652    SCAT 1 1 0.3234
+        NUSIGF 0.07664  CHI 1.0
+     MIX 13 (*FUEL*)
+        TOTAL 0.3652    SCAT 1 1 0.3234
+        NUSIGF 0.07664  CHI 1.0
+     MIX 14 (*FUEL*)
+        TOTAL 0.3652    SCAT 1 1 0.3234
+        NUSIGF 0.07664  CHI 1.0
+     MIX 15 (*FUEL*)
+        TOTAL 0.3652    SCAT 1 1 0.3234
+        NUSIGF 0.07664  CHI 1.0
+     MIX 16 (*FUEL*)
+        TOTAL 0.3652    SCAT 1 1 0.3234
+        NUSIGF 0.07664  CHI 1.0
+     MIX 17 (*FUEL*)
+        TOTAL 0.3652    SCAT 1 1 0.3234
+        NUSIGF 0.07664  CHI 1.0
+     MIX 18 (*FUEL*)
+        TOTAL 0.3652    SCAT 1 1 0.3234
+        NUSIGF 0.07664  CHI 1.0
+     MIX 19 (*FUEL*)
+        TOTAL 0.3652    SCAT 1 1 0.3234
+        NUSIGF 0.07664  CHI 1.0
+     MIX 20 (*FUEL*)
+        TOTAL 0.3652    SCAT 1 1 0.3234
+        NUSIGF 0.07664  CHI 1.0
+     MIX 21 (*FUEL*)
+        TOTAL 0.3652    SCAT 1 1 0.3234
+        NUSIGF 0.07664  CHI 1.0
+     MIX 22 (*FUEL*)
+        TOTAL 0.3652    SCAT 1 1 0.3234
+        NUSIGF 0.07664  CHI 1.0
+     MIX 23 (*FUEL*)
+        TOTAL 0.3652    SCAT 1 1 0.3234
+        NUSIGF 0.07664  CHI 1.0
+     MIX 24 (*FUEL*)
+        TOTAL 0.3652    SCAT 1 1 0.3234
+        NUSIGF 0.07664  CHI 1.0
+     MIX 25 (*FUEL*)
+        TOTAL 0.3652    SCAT 1 1 0.3234
+        NUSIGF 0.07664  CHI 1.0
+     MIX 26 (*FUEL*)
+        TOTAL 0.3652    SCAT 1 1 0.3234
+        NUSIGF 0.07664  CHI 1.0
+     MIX 27 (*FUEL*)
+        TOTAL 0.3652    SCAT 1 1 0.3234
+        NUSIGF 0.07664  CHI 1.0
+;
+* 
+* flux calculation
+*
+FLUX := geomProc UOX_TBH MACRO :: 8 0.01 ;
+assertS FLUX :: 'K-EFFECTIVE' 1 1.031027 ;
+ECHO "test TDCM48 completed" ;
+END: ;
+QUIT "LIST" .