Initial commit from Polytechnique Montreal

1 files changed, 25 insertions, 0 deletions

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 .