Initial commit from Polytechnique Montreal

1 files changed, 106 insertions, 0 deletions

diff --git a/Dragon/data/lumpSS_proc/mixA1_lumpSS.c2m b/Dragon/data/lumpSS_proc/mixA1_lumpSS.c2m
new file mode 100644
index 0000000..4ebf607
--- /dev/null
+++ b/Dragon/data/lumpSS_proc/mixA1_lumpSS.c2m
@@ -0,0 +1,106 @@
+*
+* Perform resonance self-shielding and onstruct LIBRARY2 by concatenation
+*
+PARAMETER LIBRARY2 LIBRARY2A LIBRARY2B LIBRARY TRACK_SS1 TRACK_SS2 ::
+::: LINKED_LIST LIBRARY2 ;
+::: LINKED_LIST LIBRARY2A ;
+::: LINKED_LIST LIBRARY2B ;
+::: LINKED_LIST LIBRARY ;
+::: LINKED_LIST TRACK_SS1 ;
+::: LINKED_LIST TRACK_SS2 ; ;
+
+INTEGER istep ;
+:: >>istep<< ;
+
+MODULE USS: LIB: UTL: ERASE: END: ;
+
+IF istep 1 = THEN
+ECHO "construct LIBRARY2A at step 1:" ;
+
+  LIBRARY2A := USS: LIBRARY TRACK_SS1 ::
+   EDIT 1 MAXST 100 PASS 2 PIJ
+   CALC
+    REGI W1 U235 ALL
+    REGI W1 Pu239 ALL
+   ENDC
+   ;
+  LIBRARY2B := USS: LIBRARY TRACK_SS2 ::
+   EDIT 1 MAXST 100 PASS 2 PIJ
+   CALC
+    REGI W2 U235 ALL
+    REGI W2 Pu239 ALL
+   ENDC
+   ;
+  
+* create the LIBRARY2 object for later.
+  LIBRARY2 := LIB: ::
+    NMIX 11   (*MAXIMUM OF MATERIAL MIXTURES*)
+    EDIT 0
+    ;
+  
+ELSE
+
+  ECHO "construct LIBRARY2A using number densities of LIBRARY2:" ;
+
+* recover number densities from LIBRARY2 and copy them in LIBRARY2A
+  LIBRARY2A := LIB: LIBRARY2A LIBRARY2 :: EDIT 1
+   MAXS
+     MIX 1  MIX 2  MIX 3  MIX 4  MIX 5
+     ;
+  LIBRARY2A := USS: LIBRARY LIBRARY2A TRACK_SS1 ::
+   EDIT 0 MAXST 100 PASS 2 PIJ
+   ARM
+   CALC
+    REGI W1 U235 ALL
+    REGI W1 Pu239 ALL
+   ENDC
+   ;
+  LIBRARY2B := LIB: LIBRARY2B LIBRARY2 :: EDIT 1
+   MAXS
+     MIX 7  MIX 8  MIX 9  MIX 10  MIX 11
+     ;
+  LIBRARY2B := USS: LIBRARY LIBRARY2B TRACK_SS2 ::
+   EDIT 1 MAXST 100 PASS 2 PIJ
+   CALC
+    REGI W2 U235 ALL
+    REGI W2 Pu239 ALL
+   ENDC
+   ;
+  
+  LIBRARY2 := ERASE: LIBRARY2 ;
+
+ENDIF ;
+
+ECHO "construct LIBRARY2 by concatenation:" ;
+
+LIBRARY2 := LIB: LIBRARY2 LIBRARY2A ::
+  NMIX 11   (*MAXIMUM OF MATERIAL MIXTURES*)
+  EDIT 2
+  SKIP ! skip the macrolib construction
+  CATL
+  MIX 1 1
+  MIX 2 2
+  MIX 3 3
+  MIX 4 4
+  MIX 5 5
+;
+LIBRARY2 := LIB: LIBRARY2 LIBRARY ::
+  EDIT 2
+  SKIP ! skip the macrolib construction
+  CATL
+  MIX 6 6
+;
+LIBRARY2 := LIB: LIBRARY2 LIBRARY2B ::
+  EDIT 2
+  MACR ! activate the macrolib construction
+  DEPL LIB: DRAGON FIL: DLIB_295
+  CATL
+  MIX 7 7
+  MIX 8 8
+  MIX 9 9
+  MIX 10 10
+  MIX 11 11
+;
+
+END: ;
+QUIT .