From 7dfcc480ba1e19bd3232349fc733caef94034292 Mon Sep 17 00:00:00 2001
From: stainer_t <thomas.stainer@oecd-nea.org>
Date: Mon, 8 Sep 2025 13:48:49 +0200
Subject: Initial commit from Polytechnique Montreal

---
 .../data/rep900_het_gff_jef2p2_proc/AddCompo.c2m   | 158 +++++++++++++++++++++
 1 file changed, 158 insertions(+)
 create mode 100644 Dragon/data/rep900_het_gff_jef2p2_proc/AddCompo.c2m

(limited to 'Dragon/data/rep900_het_gff_jef2p2_proc/AddCompo.c2m')

diff --git a/Dragon/data/rep900_het_gff_jef2p2_proc/AddCompo.c2m b/Dragon/data/rep900_het_gff_jef2p2_proc/AddCompo.c2m
new file mode 100644
index 0000000..40065d2
--- /dev/null
+++ b/Dragon/data/rep900_het_gff_jef2p2_proc/AddCompo.c2m
@@ -0,0 +1,158 @@
+*----
+*  Name          : AddCompo.c2m
+*  Type          : DRAGON procedure
+*  Use           : Initialize multicompo object
+*  Author        : R. Chambon
+*
+*  Procedure called as: 
+*
+*  LIBRARY2 := Autop1 LIBRARY TRACKSS :: <<Fuel>> <<NbRegions>> ;
+*
+*  Input data   :
+*    LIBRARY    : Library with SUBG key word
+*    TRACKSS    : Tracking of the SS geometry
+*    Fuel       : Type of fuel (UOX/MOX)
+*    NbRegions  : Number of regions for the calculation (20/32)
+*  Output data  :
+*    LIBRARY2   : Self shielded Library
+ECHO "AddCompo.x2m" ;
+
+PARAMETER COMPO FLUX2 LIBEQ TRACKN2 
+          GEON2 ALLGEO BURN164 LIBRARY ::
+       EDIT 1 
+           ::: LINKED_LIST 
+          COMPO FLUX2 LIBEQ TRACKN2 
+          GEON2 ALLGEO BURN164 LIBRARY 
+           ; 
+   ;
+
+LINKED_LIST EDIOBJ EDIOB2 ;
+
+MODULE COMPO: END: DELETE: ;
+
+PROCEDURE CondHet_2gr ;
+
+STRING Library SelOpt TypeCompo Gff ;
+REAL pbore dmod Tend ;
+
+  :: >>Library<< >>SelOpt<< >>TypeCompo<<  >>Gff<< 
+     >>pbore<<  >>dmod<< >>Tend<< ;
+
+REAL rodl := 0.0 ;
+
+STRING NameDirAss NameDirPin NameDirHt1 NameDirHt2 :=
+       'Ass'      'Pin'      'Het1'     'Het2'     ;
+
+*
+*Pin by Pin
+*
+IF TypeCompo "PinByPin" = TypeCompo "All" = + TypeCompo "Both" = + 
+   Gff "Yes" = + THEN
+  EDIOBJ := CondHet_2gr FLUX2 LIBEQ TRACKN2 GEON2 ALLGEO
+    :: <<Library>> <<SelOpt>> 'PinByPin' ;
+  IF TypeCompo "PinByPin" = TypeCompo "All" = + 
+     TypeCompo "Both" = +  THEN
+    COMPO := COMPO: COMPO EDIOBJ BURN164 LIBRARY ::
+      EDIT 2
+      STEP UP <<NameDirPin>>
+      'ppmBore' <<pbore>>
+      'DCA' <<dmod>>
+      'BARR' <<rodl>>
+      MACRO
+      SET <<Tend>> DAY 
+    ;
+  ENDIF ;
+  IF Gff "Yes" = THEN
+    EDIOB2 := EDIOBJ ;
+  ENDIF ;
+  EDIOBJ := DELETE: EDIOBJ ;
+ENDIF ;
+
+IF TypeCompo "Assembly" = TypeCompo "All" = + TypeCompo "Both" = + THEN
+  EDIOBJ := CondHet_2gr FLUX2 LIBEQ TRACKN2 GEON2 ALLGEO
+    :: <<Library>> <<SelOpt>> 'Assembly' ;
+  IF Gff "No" = THEN
+    COMPO := COMPO: COMPO EDIOBJ BURN164 LIBRARY ::
+      EDIT 2
+      STEP UP <<NameDirAss>>
+      'ppmBore' <<pbore>>
+      'DCA' <<dmod>>
+      'BARR' <<rodl>>
+      MACRO
+      SET <<Tend>> DAY 
+    ;
+  ELSEIF Gff "Yes" = THEN
+    COMPO := COMPO: COMPO EDIOBJ EDIOB2 BURN164 LIBRARY ::
+      EDIT 2
+      STEP UP <<NameDirAss>>
+      'ppmBore' <<pbore>>
+      'DCA' <<dmod>>
+      'BARR' <<rodl>>
+      MACRO
+      SET <<Tend>> DAY 
+    ;
+  ENDIF ;
+  EDIOBJ := DELETE: EDIOBJ ;
+ENDIF ;
+
+IF TypeCompo "Heter1" = TypeCompo "All" = + THEN
+  EDIOBJ := CondHet_2gr FLUX2 LIBEQ TRACKN2 GEON2 ALLGEO
+    :: <<Library>> <<SelOpt>> 'Heter1' ;
+  IF Gff "No" = THEN
+    COMPO := COMPO: COMPO EDIOBJ BURN164 LIBRARY ::
+      EDIT 2
+      STEP UP <<NameDirHt1>>
+      'ppmBore' <<pbore>>
+      'DCA' <<dmod>>
+      'BARR' <<rodl>>
+      MACRO
+      SET <<Tend>> DAY 
+    ;
+  ELSEIF Gff "Yes" = THEN
+    COMPO := COMPO: COMPO EDIOBJ EDIOB2 BURN164 LIBRARY ::
+      EDIT 2
+      STEP UP <<NameDirHt1>>
+      'ppmBore' <<pbore>>
+      'DCA' <<dmod>>
+      'BARR' <<rodl>>
+      MACRO
+      SET <<Tend>> DAY 
+    ;
+  ENDIF ;
+  EDIOBJ := DELETE: EDIOBJ ;
+ENDIF ;
+
+!IF TypeCompo "Heter2" = TypeCompo "All" = + THEN
+!  EDIOBJ := CondHet_2gr FLUX2 LIBEQ TRACKN2 GEON2 ALLGEO
+!    :: <<Library>> <<SelOpt>> 'Heter2' ;
+!  IF Gff "No" = THEN
+!    COMPO := COMPO: COMPO EDIOBJ BURN164 LIBRARY ::
+!      EDIT 2
+!      STEP UP <<NameDirHt2>>
+!      'ppmBore' <<pbore>>
+!      'DCA' <<dmod>>
+!      'BARR' <<rodl>>
+!      MACRO
+!      SET <<Tend>> DAY 
+!    ;
+!  ELSEIF Gff "Yes" = THEN
+!    COMPO := COMPO: COMPO EDIOBJ EDIOB2 BURN164 LIBRARY ::
+!      EDIT 2
+!      STEP UP <<NameDirHt2>>
+!      'ppmBore' <<pbore>>
+!      'DCA' <<dmod>>
+!      'BARR' <<rodl>>
+!      MACRO
+!      SET <<Tend>> DAY 
+!    ;
+!  ENDIF ;
+!  EDIOBJ := DELETE: EDIOBJ ;
+!ENDIF ;
+
+IF Gff "Yes" = THEN
+  EDIOB2 := DELETE: EDIOB2 ;
+ENDIF ;
+
+
+END: ;
+QUIT .
-- 
cgit v1.2.3