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

---
 Donjon/data/Candu6_proc/SetReflPro.c2m | 25 +++++++++++++++++++++++++
 1 file changed, 25 insertions(+)
 create mode 100755 Donjon/data/Candu6_proc/SetReflPro.c2m

(limited to 'Donjon/data/Candu6_proc/SetReflPro.c2m')

diff --git a/Donjon/data/Candu6_proc/SetReflPro.c2m b/Donjon/data/Candu6_proc/SetReflPro.c2m
new file mode 100755
index 0000000..71fb651
--- /dev/null
+++ b/Donjon/data/Candu6_proc/SetReflPro.c2m
@@ -0,0 +1,25 @@
+***********************************************************
+*                                                         *
+* Procedure :  SetReflPro.c2m                             *
+* Purpose   :  Reactor reflector specifications           *
+* Author(s) :  M. Guyot (2010)                            *
+*                                                         *
+* CALL      :  MACRO := SetReflPro CPOREFL ;              *
+*                                                         *
+***********************************************************
+
+PARAMETER MACRO CPOREFL ::
+      ::: LINKED_LIST
+          MACRO CPOREFL ; ;
+MODULE CRE: END: ;
+
+STRING NamCpo1 ;
+EVALUATE NamCpo1 := 'MIXTMOD    1'        ;
+
+MACRO := CRE: CPOREFL ::
+            EDIT 5 NMIX 60 READ
+            COMPO CPOREFL MIX 2  <<NamCpo1>> 
+             ENDMIX ;
+
+END: ;
+QUIT .
-- 
cgit v1.2.3