Initial commit from Polytechnique Montreal

1 files changed, 247 insertions, 0 deletions

diff --git a/Dragon/data/g2s_prestation_proc/tst2016_4.c2m b/Dragon/data/g2s_prestation_proc/tst2016_4.c2m
new file mode 100644
index 0000000..9f9d82f
--- /dev/null
+++ b/Dragon/data/g2s_prestation_proc/tst2016_4.c2m
@@ -0,0 +1,247 @@
+*----
+*  TEST CASE tst2016_4.c2m (geometry only)
+*  MACROSCOPIC CROSS SECTIONS
+*  4-group eighth UOX assembly with AIC in DRAGON
+*----
+*  Define STRUCTURES and MODULES used
+*----
+LINKED_LIST GEON2 MACRO4G TRACKN2 SYS FLUX2 EDIT ;
+MODULE GEO: G2S: SALT: MCCGT: END: ;
+SEQ_ASCII UOX_AIC FIG_AIC ;
+SEQ_BINARY TF_EXC ;
+INTEGER an2d := 12 ;
+REAL densur := 25.0 ;
+REAL erra DELTA ;
+REAL Rcomb1 Rcomb2 Rcomb3 Rcomb4 R_int_TG R_ext_TG R_int_TI R_ext_TI
+     R_int_G R_ext_G Cote RmodeN1 Lame Rtub1 Rtub2 ;
+REAL Raic1 Raic2 Raic3 Raic4 R_int_AIC R_ext_AIC ;
+PROCEDURE assertS ;
+
+*----
+*  Input geometry data
+*----
+EVALUATE Cote := 1.26 ;
+EVALUATE Lame := 0.042 ;
+EVALUATE Rcomb4 := 0.4083 ;
+EVALUATE Rcomb1 := 0.5 SQRT Rcomb4 * ;
+EVALUATE Rcomb2 := 0.8 SQRT Rcomb4 * ;
+EVALUATE Rcomb3 := 0.95 SQRT Rcomb4 * ;
+EVALUATE Rtub1  := 0.1897 ;
+EVALUATE Rtub2  := 0.3794 ;
+EVALUATE R_int_TG := 0.5691 ;
+EVALUATE R_ext_TG := 0.6095 ;
+EVALUATE R_int_TI := 0.5691 ;
+EVALUATE R_ext_TI := 0.6095 ;
+EVALUATE R_int_G := 0.4165 ;
+EVALUATE R_ext_G := 0.4775 ;
+
+EVALUATE Raic4 := 0.431656 ;
+EVALUATE Raic1 := 0.5 SQRT Raic4 * ;
+EVALUATE Raic2 := 0.8 SQRT Raic4 * ;
+EVALUATE Raic3 := 0.95 SQRT Raic4 * ;
+EVALUATE R_int_AIC := 0.437 ;
+EVALUATE R_ext_AIC := 0.484 ;
+REAL mesh1 := Cote ;
+REAL mesh2 := mesh1 Cote + ;
+REAL mesh3 := mesh2 Cote + ;
+REAL mesh4 := mesh3 Cote + ;
+REAL mesh5 := mesh4 Cote + ;
+REAL mesh6 := mesh5 Cote + ;
+REAL mesh7 := mesh6 Cote + ;
+REAL mesh8 := mesh7 Cote + ;
+REAL mesh9 := mesh8 Cote + ;
+REAL mesh10 := mesh9 Lame + ;
+*
+GEON2 := GEO: :: CAR2D 10 10
+  EDIT 0
+  X- DIAG X+ REFL
+  Y- SYME Y+ DIAG
+  CELL
+  TI C0201 C0301     T1  C0501  C0601     T2   C0801 C0901 Lame_V
+     C0202 C0302  C0402  C0502  C0602  C0702   C0802 C0902 Lame_V
+           C0303  C0403  C0503  C0603  C0703   C0803 C0903 Lame_V
+                     T1  C0504  C0604     T2   C0804 C0904 Lame_V
+                         C0505  C0605  C0705   C0805 C0905 Lame_V
+                                   T2  C0706   C0806 C0906 Lame_V
+                                       C0707   C0807 C0907 Lame_V
+                                               C0808 C0908 Lame_V
+                                                     C0909 Lame_V
+                                                           Lame_C
+  MESHX 0.0 <<mesh1>> <<mesh2>> <<mesh3>> <<mesh4>> <<mesh5>> <<mesh6>>
+        <<mesh7>> <<mesh8>> <<mesh9>> <<mesh10>>
+  MESHY 0.0 <<mesh1>> <<mesh2>> <<mesh3>> <<mesh4>> <<mesh5>> <<mesh6>>
+        <<mesh7>> <<mesh8>> <<mesh9>> <<mesh10>>
+  ::: Lame_C := GEO: CAR2D 1 1
+    MESHX 0.0 <<Lame>> MESHY 0.0 <<Lame>>
+    MIX 1 ;
+
+  ::: Lame_V := GEO: CAR2D 1 1
+    MESHX 0.0 <<Lame>> MESHY 0.0 <<Cote>>
+    SPLITY 3 MIX 1 ;
+
+  ::: C0201 := 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  3 4 5 6   7 8 1 1 1 1 1 1 1 1 1 1 1 1 ;
+
+  ::: C0202 := GEO: C0201
+         MIX  9 10 11 12   7 8 1 1 1 1 1 1 1 1 1 1 1 1 ;
+
+  ::: C0301 := GEO: C0201
+         MIX  13 14 15 16   7 8 1 1 1 1 1 1 1 1 1 1 1 1 ;
+
+  ::: C0302 := GEO: C0201
+         MIX  17 18 19 20   7 8 1 1 1 1 1 1 1 1 1 1 1 1 ;
+
+  ::: C0303 := GEO: C0201
+         MIX  21 22 23 24   7 8 1 1 1 1 1 1 1 1 1 1 1 1 ;
+
+  ::: C0402 := GEO: C0201
+         MIX  26 27 28 29   7 8 1 1 1 1 1 1 1 1 1 1 1 1 ;
+
+  ::: C0403 := GEO: C0201
+         MIX  30 31 32 33   7 8 1 1 1 1 1 1 1 1 1 1 1 1 ;
+
+  ::: C0501 := GEO: C0201
+         MIX  34 35 36 37   7 8 1 1 1 1 1 1 1 1 1 1 1 1 ;
+
+  ::: C0502 := GEO: C0201
+         MIX  46 47 48 49   7 8 1 1 1 1 1 1 1 1 1 1 1 1 ;
+
+  ::: C0503 := GEO: C0201
+         MIX  50 51 52 53   7 8 1 1 1 1 1 1 1 1 1 1 1 1 ;
+
+  ::: C0504 := GEO: C0201
+         MIX  54 55 56 57   7 8 1 1 1 1 1 1 1 1 1 1 1 1 ;
+
+  ::: C0505 := GEO: C0201
+         MIX  58 59 60 61   7 8 1 1 1 1 1 1 1 1 1 1 1 1 ;
+
+  ::: C0601 := GEO: C0201
+         MIX  62 63 64 65   7 8 1 1 1 1 1 1 1 1 1 1 1 1 ;
+
+  ::: C0602 := GEO: C0201
+         MIX  66 67 68 69   7 8 1 1 1 1 1 1 1 1 1 1 1 1 ;
+
+  ::: C0603 := GEO: C0201
+         MIX  70 71 72 73   7 8 1 1 1 1 1 1 1 1 1 1 1 1 ;
+
+  ::: C0604 := GEO: C0201
+         MIX  74 75 76 77   7 8 1 1 1 1 1 1 1 1 1 1 1 1 ;
+
+  ::: C0605 := GEO: C0201
+         MIX  78 79 80 81   7 8 1 1 1 1 1 1 1 1 1 1 1 1 ;
+
+  ::: C0702 := GEO: C0201
+         MIX  82 83 84 85   7 8 1 1 1 1 1 1 1 1 1 1 1 1 ;
+
+  ::: C0703 := GEO: C0201
+         MIX  86 87 88 89   7 8 1 1 1 1 1 1 1 1 1 1 1 1 ;
+
+  ::: C0705 := GEO: C0201
+         MIX  90 91 92 93   7 8 1 1 1 1 1 1 1 1 1 1 1 1 ;
+
+  ::: C0706 := GEO: C0201
+         MIX  94 95 96 97   7 8 1 1 1 1 1 1 1 1 1 1 1 1 ;
+
+  ::: C0707 := GEO: C0201
+         MIX  98 99 100 101   7 8 1 1 1 1 1 1 1 1 1 1 1 1 ;
+
+  ::: C0801 := GEO: C0201
+         MIX  102 103 104 105   7 8 1 1 1 1 1 1 1 1 1 1 1 1 ;
+
+  ::: C0802 := GEO: C0201
+         MIX  106 107 108 109   7 8 1 1 1 1 1 1 1 1 1 1 1 1 ;
+
+  ::: C0803 := GEO: C0201
+         MIX  110 111 112 113   7 8 1 1 1 1 1 1 1 1 1 1 1 1 ;
+
+  ::: C0804 := GEO: C0201
+         MIX  114 115 116 117   7 8 1 1 1 1 1 1 1 1 1 1 1 1 ;
+
+  ::: C0805 := GEO: C0201
+         MIX  118 119 120 121   7 8 1 1 1 1 1 1 1 1 1 1 1 1 ;
+
+  ::: C0806 := GEO: C0201
+         MIX  122 123 124 125   7 8 1 1 1 1 1 1 1 1 1 1 1 1 ;
+
+  ::: C0807 := GEO: C0201
+         MIX  126 127 128 129   7 8 1 1 1 1 1 1 1 1 1 1 1 1 ;
+
+  ::: C0808 := GEO: C0201
+         MIX  130 131 132 133   7 8 1 1 1 1 1 1 1 1 1 1 1 1 ;
+
+  ::: C0901 := GEO: C0201
+         MIX  134 135 136 137   7 8 1 1 1 1 1 1 1 1 1 1 1 1 ;
+
+  ::: C0902 := GEO: C0201
+         MIX  138 139 140 141   7 8 1 1 1 1 1 1 1 1 1 1 1 1 ;
+
+  ::: C0903 := GEO: C0201
+         MIX  142 143 144 145   7 8 1 1 1 1 1 1 1 1 1 1 1 1 ;
+
+  ::: C0904 := GEO: C0201
+         MIX  146 147 148 149   7 8 1 1 1 1 1 1 1 1 1 1 1 1 ;
+
+  ::: C0905 := GEO: C0201
+         MIX  150 151 152 153   7 8 1 1 1 1 1 1 1 1 1 1 1 1 ;
+
+  ::: C0906 := GEO: C0201
+         MIX  154 155 156 157   7 8 1 1 1 1 1 1 1 1 1 1 1 1 ;
+
+  ::: C0907 := GEO: C0201
+         MIX  158 159 160 161   7 8 1 1 1 1 1 1 1 1 1 1 1 1 ;
+
+  ::: C0908 := GEO: C0201
+         MIX  162 163 164 165   7 8 1 1 1 1 1 1 1 1 1 1 1 1 ;
+
+  ::: C0909 := GEO: C0201
+         MIX  166 167 168 169   7 8 1 1 1 1 1 1 1 1 1 1 1 1 ;
+
+  ::: T2 := GEO: CARCEL 8
+         MESHX 0.0 <<Cote>>
+         MESHY 0.0 <<Cote>>
+         SECT 3 6
+         RADIUS 0.0 <<Raic1>> <<Raic2>> <<Raic3>> <<Raic4>>
+                <<R_int_AIC>> <<R_ext_AIC>> <<R_int_TI>> <<R_ext_TI>>
+         MIX 38 39 40 41 7 25
+             1  1  1  1  1  1  1  1
+             25 25 25 25 25 25 25 25
+             1  1  1  1  1  1  1  1 ;
+
+  ::: T1 := GEO: T2
+         MIX 42 43 44 45 7 25
+             1  1  1  1  1  1  1  1
+             25 25 25 25 25 25 25 25
+             1  1  1  1  1  1  1  1 ;
+
+  ::: TI := GEO: CARCEL 4
+         MESHX 0.0 <<Cote>>
+         MESHY 0.0 <<Cote>>
+         SECT 3 1
+         RADIUS 0.0 <<Rtub1>> <<Rtub2>> <<R_int_TI>> <<R_ext_TI>>
+         MIX 1
+             1  1  1  1  1  1  1  1
+             1  1  1  1  1  1  1  1
+             2  2  2  2  2  2  2  2
+             1  1  1  1  1  1  1  1 ;
+;
+
+UOX_AIC FIG_AIC := G2S: GEON2 :: DRAWMIX ;
+
+TRACKN2 TF_EXC := SALT: UOX_AIC ::
+  EDIT 3
+  ALLG
+  ANIS 2 TSPC EQW2 <<an2d>> <<densur>> REND
+;
+*
+TRACKN2 := MCCGT: TRACKN2 TF_EXC ::
+  EDIT 2
+  LCMD 3 AAC 150 TMT SCR 0 EPSI 1E-5
+  MAXI 1 KRYL 0 HDD 0.0 LDC ;
+
+ECHO "test tst2016_4 completed" ;
+END: ;