Initial commit from Polytechnique Montreal

6 files changed, 578 insertions, 0 deletions

diff --git a/Donjon/data/rep900_sim_defrod_proc/GeoCo.c2m b/Donjon/data/rep900_sim_defrod_proc/GeoCo.c2m
new file mode 100755
index 0000000..029be61
--- /dev/null
+++ b/Donjon/data/rep900_sim_defrod_proc/GeoCo.c2m
@@ -0,0 +1,190 @@
+*DECK GeoCo.c2m
+*----
+*  Name          : GeoCo.c2m
+*  Type          : DONJON procedure
+*  Use           : Core Geometry
+*  Procedure called as: 
+*
+*  Bench := GeoCo ::
+*    <<Splitx>> <<Splitz>> <<dx>> ;
+*
+*  Parameters of the procedure
+*  Bench     : Core Geometry
+*  Input data:
+*    Splitx  : cartesian splitting
+*    Splitz  : axial splitting
+*    dx      : length of an assembly
+*----
+* Definition of the input and output data structures and 
+* of the input and output parameters for this procedure
+*----
+PARAMETER       GeoRes Matex  ::
+::: LINKED_LIST GeoRes Matex ; ;
+*----
+*  Local modules, procedures and structures
+*----
+MODULE      USPLIT: GEO: END: ;
+LINKED_LIST GeoCoeur ;
+*----
+*  Get calculation options
+*----
+INTEGER Splitx Splitz MaxR ;
+REAL    dx ;
+:: >>Splitx<< >>Splitz<< >>MaxR<< >>dx<< ;
+
+REAL  x1 x2 x3 x4 x5 x6 x7 x8 x9 x10 x11 x12 x13 x14 
+      x15 x16 x17 :=
+      1. dx *  2. dx *  3. dx *  4. dx *  5. dx *  6. dx *
+      7. dx *  8. dx *  9. dx *  10. dx * 11. dx * 12. dx * 
+      13. dx * 14. dx * 15. dx * 16. dx * 17. dx * ;
+
+REAL dz := 360.0 29.0 / ;
+
+REAL  z1 z2 z3 z4 z5 z6 z7 z8 z9 z10 z11 z12 z13 z14 
+      z15 z16 z17 z18 z19 z20 z21 z22 z23 z24 z25 
+      z26 z27 z28 z29 z30 z31 :=
+      1. dz *  2. dz *  3. dz *  4. dz *  5. dz *  6. dz *
+      7. dz *  8. dz *  9. dz *  10. dz * 11. dz * 12. dz * 
+      13. dz * 14. dz * 15. dz * 16. dz * 17. dz * 18. dz *
+      19. dz * 20. dz * 21. dz * 22. dz * 23. dz * 24. dz *
+      25. dz * 26. dz * 27. dz * 28. dz * 29. dz * 30. dz *
+      31. dz * ;
+
+GeoCoeur := GEO: :: CAR3D 17 17 31
+  EDIT 3
+  X+ VOID  X- VOID
+  Y+ VOID  Y- VOID
+  Z+ VOID  Z- VOID
+  MIX  
+
+PLANE 1 (* lower core *)
+  0 0 0 0 0 0 3 3   3   3 3 0 0 0 0 0 0
+  0 0 0 0 3 3 3 3   3   3 3 3 3 0 0 0 0
+  0 0 0 3 3 3 3 3   3   3 3 3 3 3 0 0 0
+  0 0 3 3 3 3 3 3   3   3 3 3 3 3 3 0 0
+  0 3 3 3 3 3 3 3   3   3 3 3 3 3 3 3 0
+  0 3 3 3 3 3 3 3   3   3 3 3 3 3 3 3 0
+  3 3 3 3 3 3 3 3   3   3 3 3 3 3 3 3 3
+  3 3 3 3 3 3 3 3   3   3 3 3 3 3 3 3 3
+                        
+  3 3 3 3 3 3 3 3   3   3 3 3 3 3 3 3 3
+                        
+  3 3 3 3 3 3 3 3   3   3 3 3 3 3 3 3 3
+  3 3 3 3 3 3 3 3   3   3 3 3 3 3 3 3 3
+  0 3 3 3 3 3 3 3   3   3 3 3 3 3 3 3 0
+  0 3 3 3 3 3 3 3   3   3 3 3 3 3 3 3 0
+  0 0 3 3 3 3 3 3   3   3 3 3 3 3 3 0 0
+  0 0 0 3 3 3 3 3   3   3 3 3 3 3 0 0 0
+  0 0 0 0 3 3 3 3   3   3 3 3 3 0 0 0 0
+  0 0 0 0 0 0 3 3   3   3 3 0 0 0 0 0 0
+
+PLANE 2
+  0 0 0 0 0 0 1 1   1   1 1 0 0 0 0 0 0
+  0 0 0 0 1 1 1 4   4   4 1 1 1 0 0 0 0
+  0 0 0 1 1 4 4 5   4   5 4 4 1 1 0 0 0
+  0 0 1 1 4 5 4 4   4   4 4 5 4 1 1 0 0
+  0 1 1 4 4 4 4 5   4   5 4 4 4 4 1 1 0
+  0 1 4 5 4 4 5 4   4   4 5 4 4 5 4 1 0
+  1 1 4 4 4 5 4 4   4   4 4 5 4 4 4 1 1
+  1 4 5 4 5 4 4 4   4   4 4 4 5 4 5 4 1
+                       
+  1 4 4 4 4 4 4 4   4   4 4 4 4 4 4 4 1
+                       
+  1 4 5 4 5 4 4 4   4   4 4 4 5 4 5 4 1
+  1 1 4 4 4 5 4 4   4   4 4 5 4 4 4 1 1
+  0 1 4 5 4 4 5 4   4   4 5 4 4 5 4 1 0
+  0 1 1 4 4 4 4 5   4   5 4 4 4 4 1 1 0
+  0 0 1 1 4 5 4 4   4   4 4 5 4 1 1 0 0
+  0 0 0 1 1 4 4 5   4   5 4 4 1 1 0 0 0
+  0 0 0 0 1 1 1 4   4   4 1 1 1 0 0 0 0
+  0 0 0 0 0 0 1 1   1   1 1 0 0 0 0 0 0
+
+PLANE 3 SAME 2
+PLANE 4 SAME 2
+PLANE 5 SAME 2
+PLANE 6 SAME 2
+PLANE 7 SAME 2
+PLANE 8 SAME 2
+PLANE 9 SAME 2
+PLANE 10 SAME 2
+PLANE 11 SAME 2
+PLANE 12 SAME 2
+PLANE 13 SAME 2
+PLANE 14 SAME 2
+PLANE 15 SAME 2
+PLANE 16 SAME 2
+PLANE 17 SAME 2
+PLANE 18 SAME 2
+PLANE 19 SAME 2
+PLANE 20 SAME 2
+PLANE 21 SAME 2
+PLANE 22 SAME 2
+PLANE 23 SAME 2
+PLANE 24 SAME 2
+PLANE 25 SAME 2
+PLANE 26 SAME 2
+PLANE 27 SAME 2
+PLANE 28 SAME 2
+PLANE 29 SAME 2
+PLANE 30 SAME 2
+PLANE 31 (* higher core *)
+  0 0 0 0 0 0 2 2   2   2 2 0 0 0 0 0 0
+  0 0 0 0 2 2 2 2   2   2 2 2 2 0 0 0 0
+  0 0 0 2 2 2 2 2   2   2 2 2 2 2 0 0 0
+  0 0 2 2 2 2 2 2   2   2 2 2 2 2 2 0 0
+  0 2 2 2 2 2 2 2   2   2 2 2 2 2 2 2 0
+  0 2 2 2 2 2 2 2   2   2 2 2 2 2 2 2 0
+  2 2 2 2 2 2 2 2   2   2 2 2 2 2 2 2 2
+  2 2 2 2 2 2 2 2   2   2 2 2 2 2 2 2 2
+                        
+  2 2 2 2 2 2 2 2   2   2 2 2 2 2 2 2 2
+                        
+  2 2 2 2 2 2 2 2   2   2 2 2 2 2 2 2 2
+  2 2 2 2 2 2 2 2   2   2 2 2 2 2 2 2 2
+  0 2 2 2 2 2 2 2   2   2 2 2 2 2 2 2 0
+  0 2 2 2 2 2 2 2   2   2 2 2 2 2 2 2 0
+  0 0 2 2 2 2 2 2   2   2 2 2 2 2 2 0 0
+  0 0 0 2 2 2 2 2   2   2 2 2 2 2 0 0 0
+  0 0 0 0 2 2 2 2   2   2 2 2 2 0 0 0 0
+  0 0 0 0 0 0 2 2   2   2 2 0 0 0 0 0 0
+
+  MESHX 0. <<x1>> <<x2>> <<x3>> <<x4>> <<x5>> <<x6>> <<x7>> 
+        <<x8>>  <<x9>>  <<x10>> <<x11>> <<x12>> <<x13>> <<x14>>
+        <<x15>> <<x16>> <<x17>>
+
+  MESHY 0. <<x1>> <<x2>> <<x3>> <<x4>> <<x5>> <<x6>> <<x7>> 
+        <<x8>>  <<x9>>  <<x10>> <<x11>> <<x12>> <<x13>> <<x14>>
+        <<x15>> <<x16>> <<x17>>
+
+  MESHZ 0.0 <<z1>> <<z2>> <<z3>> <<z4>> <<z5>> <<z6>> <<z7>> 
+        <<z8>>  <<z9>>  <<z10>> <<z11>> <<z12>> <<z13>> <<z14>>
+        <<z15>> <<z16>> <<z17>> <<z18>> <<z19>> <<z20>> <<z21>>
+        <<z22>> <<z23>> <<z24>> <<z25>> <<z26>> <<z27>> <<z28>>
+        <<z29>> <<z30>> <<z31>>
+
+  SPLITX <<Splitx>> <<Splitx>> <<Splitx>> <<Splitx>> <<Splitx>>
+         <<Splitx>> <<Splitx>> <<Splitx>> <<Splitx>> <<Splitx>> 
+         <<Splitx>> <<Splitx>> <<Splitx>> <<Splitx>> <<Splitx>> 
+         <<Splitx>> <<Splitx>> 
+  SPLITY <<Splitx>> <<Splitx>> <<Splitx>> <<Splitx>> <<Splitx>>
+         <<Splitx>> <<Splitx>> <<Splitx>> <<Splitx>> <<Splitx>> 
+         <<Splitx>> <<Splitx>> <<Splitx>> <<Splitx>> <<Splitx>> 
+         <<Splitx>> <<Splitx>>
+
+  SPLITZ <<Splitz>> <<Splitz>> <<Splitz>> <<Splitz>> <<Splitz>>
+         <<Splitz>> <<Splitz>> <<Splitz>> <<Splitz>> <<Splitz>> 
+         <<Splitz>> <<Splitz>> <<Splitz>> <<Splitz>> <<Splitz>>
+         <<Splitz>> <<Splitz>> <<Splitz>> <<Splitz>> <<Splitz>> 
+         <<Splitz>> <<Splitz>> <<Splitz>> <<Splitz>> <<Splitz>>
+         <<Splitz>> <<Splitz>> <<Splitz>> <<Splitz>> <<Splitz>>
+         <<Splitz>>
+;
+
+GeoRes Matex := USPLIT: GeoCoeur :: NGRP 2 MAXR <<MaxR>>
+               NREFL 3  RMIX 1 2 3
+               NFUEL 2  FMIX 4 5 (* UOX, MOX *)
+;
+
+END: ;
+
+QUIT "LIST" .
diff --git a/Donjon/data/rep900_sim_defrod_proc/InitSteady.c2m b/Donjon/data/rep900_sim_defrod_proc/InitSteady.c2m
new file mode 100755
index 0000000..b3f1afa
--- /dev/null
+++ b/Donjon/data/rep900_sim_defrod_proc/InitSteady.c2m
@@ -0,0 +1,136 @@
+****************************************************************
+*                                                              *
+* Procedure :  InitSteady.c2m                                  *
+* Purpose   :  initialize objects for Steady procedure         *
+* Author    :  V. Salino                                       *
+*                                                              *
+* CALL      :                                                  *
+*  Flux Thermo XeMicroF XeBurn Fmap Matex := InitSteady        *
+*  Fmap Matex ReflXS Track ;                                   *
+*                                                              *
+****************************************************************
+PARAMETER Flux Thermo MicroF Burn Fmap Matex SapUOX SapMOX 
+          MacroRefl Track ::
+  ::: LINKED_LIST Flux Thermo MicroF Burn Fmap 
+                  Matex SapUOX SapMOX MacroRefl Track ; ;
+MODULE SCR: NCR: MACINI: RESINI: TRIVAA: FLUD: FLPOW: THM: EVO:
+       GREP: UTL: DELETE: ABORT: END: ;
+*--
+* Local objects and variable
+*--
+LINKED_LIST MacroTot MacroF System PowerIter ;
+REAL CBinterp := 0.0 ;
+*--
+* Thermalhydraulics parameters
+*--
+REAL dx       := 21.5 ;
+REAL Tot_tub  := 6.6E-03 2.0 ** $Pi_R * 25.0  * ;
+REAL Tot_pin  := 4.7E-03 2.0 ** $Pi_R * 264.0 * ;
+REAL asssect  := dx dx * 1.E-04 * Tot_tub - Tot_pin - ;
+REAL coresect := 157.0 asssect * ;
+*--
+* Flat power distribution
+*--
+REAL Ptot := 2750. ;
+REAL BundPow := Ptot 157.0 / 29.0 / 1.0E+3 * (* MW to kW *) ;
+Fmap := RESINI: Fmap ::
+  BUNDLE-POW SAME <<BundPow>> ;
+*--
+* Thermalhydraulics computation
+*--
+    Thermo Fmap := THM: Fmap ::
+      EDIT 4
+      CRITFL 4.00E+6 (* W/m^2 *)
+      ASSMB  264 25
+      CWSECT <<coresect>> 60000.0
+      INLET  155.0E+05 550.0
+      RADIUS 4.1E-03 4.2E-03 4.7E-03 6.6E-03
+      SET-PARAM 'C-BORE' <<CBinterp>>
+      CONV 50 50 50 0.1 1.0E-3
+      RELAX 0.4 ;
+*--
+* Saphyb Interpolation
+* Historic effects are neglected for simplicity's sake
+*--
+MicroF := SCR: SapUOX SapMOX Fmap ::
+    EDIT 1
+    MICRO LINEAR
+    EQUI EQVS
+    TABLE SapUOX 'BURN'
+    MIX 4
+       INST-BURN
+        SET 'DMOD' MAP
+        SET 'TCOM' MAP
+        SET 'BARR' MAP
+       MICRO ALL
+           'B10'      *
+           'B11'      *
+           'XE135PF'    0.
+           'I135PF'     0.
+           'ND147PF'    0.
+           'PM147PF'    0.
+           'PM148PF'    0.
+           'PM148MPF'   0.
+           'PM149PF'    0.
+           'SM149PF'    0.
+           '*MAC*RES' 1.
+    ENDMIX
+    TABLE SapMOX 'BURN'
+    MIX 5
+       INST-BURN
+        SET 'DMOD' MAP
+        SET 'TCOM' MAP
+        SET 'BARR' MAP
+       MICRO ALL
+           'B10'      *
+           'B11'      *
+           'XE135PF'    0.
+           'I135PF'     0.
+           'ND147PF'    0.
+           'PM147PF'    0.
+           'PM148PF'    0.
+           'PM148MPF'   0.
+           'PM149PF'    0.
+           'SM149PF'    0.
+           '*MAC*RES' 1.
+    ENDMIX
+CHAIN
+  B10      STABLE
+  B11      STABLE
+  I135PF   NG    0.
+  XE135PF  NG    0. FROM DECAY 1.0E+00 I135PF
+  ND147PF  STABLE
+  PM147PF  STABLE
+  PM148PF  STABLE
+  PM148MPF STABLE
+  PM149PF  STABLE
+  SM149PF  STABLE
+  MACR     NFTOT 0.
+ENDCHAIN
+;
+
+MacroF := MicroF :: STEP UP "MACROLIB" ;
+*--
+* Reflector interpolation
+*--
+*--
+* Flux and power computation
+*--
+MacroTot Matex := MACINI: Matex MacroRefl MacroF ;
+MacroF := DELETE: MacroF ;
+System := TRIVAA: MacroTot Track :: EDIT 0 ;
+MacroTot := DELETE: MacroTot ;
+Flux := FLUD: System Track :: EDIT 0 ACCE 5 3 ;
+System := DELETE: System ;
+PowerIter Fmap := FLPOW: Fmap Flux Track Matex ::
+  EDIT 0 PTOT <<Ptot>> PRINT DISTR POWER ;
+*--
+* Xenon saturation
+*--
+Burn MicroF := EVO: MicroF PowerIter ::
+  EDIT 0 FLUX_POW PIFI SAVE 0. DAY KEEP ;
+*Flux PowerIter := DELETE: Flux PowerIter ;
+PowerIter := DELETE: PowerIter ;
+
+END: ;
+
diff --git a/Donjon/data/rep900_sim_defrod_proc/SetFuelMap.c2m b/Donjon/data/rep900_sim_defrod_proc/SetFuelMap.c2m
new file mode 100755
index 0000000..5bfe0c0
--- /dev/null
+++ b/Donjon/data/rep900_sim_defrod_proc/SetFuelMap.c2m
@@ -0,0 +1,179 @@
+***********************************************************
+*                                                         *
+* Procedure :  SetFuelMap.c2m                             *
+* Purpose   :  Fuel-map specifications for REP900         *
+* Author(s) :  M. Guyot (2010)                            *
+* Modified by : A. Hebert (2011)                          *
+*                                                         *
+* CALL      :  FMAP MATEX := SetFuelMap MATEX ;           *
+*                                                         *
+***********************************************************
+
+PARAMETER FMAP MATEX ::
+      ::: LINKED_LIST
+          FMAP MATEX ; ;
+
+MODULE RESINI: END: ;
+
+*----
+*  Get calculation options
+*----
+REAL    dx ;
+:: >>dx<< ;
+
+REAL  x1 x2 x3 x4 x5 x6 x7 x8 x9 x10 x11 x12 x13 x14 
+      x15 x16 x17 :=
+      1. dx *  2. dx *  3. dx *  4. dx *  5. dx *  6. dx *
+      7. dx *  8. dx *  9. dx *  10. dx * 11. dx * 12. dx * 
+      13. dx * 14. dx * 15. dx * 16. dx * 17. dx * ;
+
+REAL dz := 360.0 29.0 / ;
+
+REAL  z1 z2 z3 z4 z5 z6 z7 z8 z9 z10 z11 z12 z13 z14 
+      z15 z16 z17 z18 z19 z20 z21 z22 z23 z24 z25 
+      z26 z27 z28 z29 z30 z31 :=
+      1. dz *  2. dz *  3. dz *  4. dz *  5. dz *  6. dz *
+      7. dz *  8. dz *  9. dz *  10. dz * 11. dz * 12. dz * 
+      13. dz * 14. dz * 15. dz * 16. dz * 17. dz * 18. dz *
+      19. dz * 20. dz * 21. dz * 22. dz * 23. dz * 24. dz *
+      25. dz * 26. dz * 27. dz * 28. dz * 29. dz * 30. dz *
+      31. dz * ;
+      
+ECHO 'SetFuelMap: elementary length=' dx 'cm' ;
+
+FMAP MATEX := RESINI: MATEX ::
+      ::: GEO: CAR3D 17 17 31
+                EDIT  0
+                X- VOID      X+ VOID
+                Y- VOID      Y+ VOID
+                Z- VOID      Z+ VOID
+MIX
+PLANE    1
+  0 0 0 0 0 0 0 0   0   0 0 0 0 0 0 0 0
+  0 0 0 0 0 0 0 0   0   0 0 0 0 0 0 0 0
+  0 0 0 0 0 0 0 0   0   0 0 0 0 0 0 0 0
+  0 0 0 0 0 0 0 0   0   0 0 0 0 0 0 0 0
+  0 0 0 0 0 0 0 0   0   0 0 0 0 0 0 0 0
+  0 0 0 0 0 0 0 0   0   0 0 0 0 0 0 0 0
+  0 0 0 0 0 0 0 0   0   0 0 0 0 0 0 0 0
+  0 0 0 0 0 0 0 0   0   0 0 0 0 0 0 0 0
+                       
+  0 0 0 0 0 0 0 0   0   0 0 0 0 0 0 0 0
+                       
+  0 0 0 0 0 0 0 0   0   0 0 0 0 0 0 0 0
+  0 0 0 0 0 0 0 0   0   0 0 0 0 0 0 0 0
+  0 0 0 0 0 0 0 0   0   0 0 0 0 0 0 0 0
+  0 0 0 0 0 0 0 0   0   0 0 0 0 0 0 0 0
+  0 0 0 0 0 0 0 0   0   0 0 0 0 0 0 0 0
+  0 0 0 0 0 0 0 0   0   0 0 0 0 0 0 0 0
+  0 0 0 0 0 0 0 0   0   0 0 0 0 0 0 0 0
+  0 0 0 0 0 0 0 0   0   0 0 0 0 0 0 0 0
+!
+PLANE 2
+  0 0 0 0 0 0 0 0   0   0 0 0 0 0 0 0 0
+  0 0 0 0 0 0 0 4   4   4 0 0 0 0 0 0 0
+  0 0 0 0 0 4 4 5   4   5 4 4 0 0 0 0 0
+  0 0 0 0 4 5 4 4   4   4 4 5 4 0 0 0 0
+  0 0 0 4 4 4 4 5   4   5 4 4 4 4 0 0 0
+  0 0 4 5 4 4 5 4   4   4 5 4 4 5 4 0 0
+  0 0 4 4 4 5 4 4   4   4 4 5 4 4 4 0 0
+  0 4 5 4 5 4 4 4   4   4 4 4 5 4 5 4 0
+                       
+  0 4 4 4 4 4 4 4   4   4 4 4 4 4 4 4 0
+                       
+  0 4 5 4 5 4 4 4   4   4 4 4 5 4 5 4 0
+  0 0 4 4 4 5 4 4   4   4 4 5 4 4 4 0 0
+  0 0 4 5 4 4 5 4   4   4 5 4 4 5 4 0 0
+  0 0 0 4 4 4 4 5   4   5 4 4 4 4 0 0 0
+  0 0 0 0 4 5 4 4   4   4 4 5 4 0 0 0 0
+  0 0 0 0 0 4 4 5   4   5 4 4 0 0 0 0 0
+  0 0 0 0 0 0 0 4   4   4 0 0 0 0 0 0 0
+  0 0 0 0 0 0 0 0   0   0 0 0 0 0 0 0 0
+
+PLANE 3 SAME 2
+PLANE 4 SAME 2
+PLANE 5 SAME 2
+PLANE 6 SAME 2
+PLANE 7 SAME 2
+PLANE 8 SAME 2
+PLANE 9 SAME 2
+PLANE 10 SAME 2
+PLANE 11 SAME 2
+PLANE 12 SAME 2
+PLANE 13 SAME 2
+PLANE 14 SAME 2
+PLANE 15 SAME 2
+PLANE 16 SAME 2
+PLANE 17 SAME 2
+PLANE 18 SAME 2
+PLANE 19 SAME 2
+PLANE 20 SAME 2
+PLANE 21 SAME 2
+PLANE 22 SAME 2
+PLANE 23 SAME 2
+PLANE 24 SAME 2
+PLANE 25 SAME 2
+PLANE 26 SAME 2
+PLANE 27 SAME 2
+PLANE 28 SAME 2
+PLANE 29 SAME 2
+PLANE 30 SAME 2
+PLANE 31 SAME 1
+!
+MESHX 0.0 <<x1>> <<x2>> <<x3>> <<x4>> <<x5>> <<x6>> <<x7>> 
+          <<x8>>  <<x9>>  <<x10>> <<x11>> <<x12>> <<x13>> <<x14>>
+          <<x15>> <<x16>> <<x17>>
+
+MESHY 0.0 <<x1>> <<x2>> <<x3>> <<x4>> <<x5>> <<x6>> <<x7>> 
+          <<x8>>  <<x9>>  <<x10>> <<x11>> <<x12>> <<x13>> <<x14>>
+          <<x15>> <<x16>> <<x17>>
+
+
+MESHZ 0.0 <<z1>> <<z2>> <<z3>> <<z4>> <<z5>> <<z6>> <<z7>> 
+          <<z8>>  <<z9>>  <<z10>> <<z11>> <<z12>> <<z13>> <<z14>>
+          <<z15>> <<z16>> <<z17>> <<z18>> <<z19>> <<z20>> <<z21>>
+          <<z22>> <<z23>> <<z24>> <<z25>> <<z26>> <<z27>> <<z28>>
+          <<z29>> <<z30>> <<z31>> ;
+!
+NXNAME '-'  'R' 'P' 'N' 'M' 'L' 'K' 'J' 'H' 'G' 'F' 'E'
+        'D' 'C' 'B' 'A' '-'
+!
+NYNAME  '--' '01' '02' '03' '04' '05' '06' '07' '08' '09'
+        '10' '11' '12' '13' '14' '15' '--'
+!
+
+SIM 15 15
+                           J01 H01 G01
+                   L02 K02 J02 H02 G02 F02 E02
+               M03 L03 K03 J03 H03 G03 F03 E03 D03
+           N04 M04 L04 K04 J04 H04 G04 F04 E04 D04 C04
+       P05 N05 M05 L05 K05 J05 H05 G05 F05 E05 D05 C05 B05
+       P06 N06 M06 L06 K06 J06 H06 G06 F06 E06 D06 C06 B06
+   R07 P07 N07 M07 L07 K07 J07 H07 G07 F07 E07 D07 C07 B07 A07 
+   R08 P08 N08 M08 L08 K08 J08 H08 G08 F08 E08 D08 C08 B08 A08 
+   R09 P09 N09 M09 L09 K09 J09 H09 G09 F09 E09 D09 C09 B09 A09 
+       P10 N10 M10 L10 K10 J10 H10 G10 F10 E10 D10 C10 B10
+       P11 N11 M11 L11 K11 J11 H11 G11 F11 E11 D11 C11 B11
+           N12 M12 L12 K12 J12 H12 G12 F12 E12 D12 C12
+               M13 L13 K13 J13 H13 G13 F13 E13 D13
+                   L14 K14 J14 H14 G14 F14 E14
+                           J15 H15 G15
+
+FOLLOW 8 XE135PF I135PF
+         ND147PF PM147PF PM148PF PM148MPF PM149PF SM149PF
+NCOMB ALL                            
+
+FUEL WEIGHT 46. 46. ! values needed for SIM:
+BTYPE INST-BURN
+ADD-PARAM PNAME 'C-BORE' PARKEY 'CBOR' GLOBAL
+ADD-PARAM PNAME 'T-FUEL' PARKEY 'TCOM' GLOBAL
+ADD-PARAM PNAME 'D-COOL' PARKEY 'DMOD' GLOBAL
+* Initialization values needed for THM:
+SET-PARAM 'T-FUEL' 286.00055
+SET-PARAM 'D-COOL' .753915906
+!SET-PARAM 'T-COOL' 300.0
+*--------------------------------------------------------
+;
+
+END: ;
+QUIT .
diff --git a/Donjon/data/rep900_sim_defrod_proc/_Refl.XS_as b/Donjon/data/rep900_sim_defrod_proc/_Refl.XS_as
new file mode 100755
index 0000000..057635f
--- /dev/null
+++ b/Donjon/data/rep900_sim_defrod_proc/_Refl.XS_as
@@ -0,0 +1,67 @@
+->       1      12       3       3                                 <-   
+SIGNATURE                                                                       
+         4         4         4
+L_MACROLIB  
+->       1      12       1      40                                 <-   
+STATE-VECTOR                                                                    
+         2         3         1         0         0         0         0         0
+         1         0         0         0         0         0         0         0
+         0         0         0         0         0         0         0         0
+         0         0         0         0         0         0         0         0
+         0         0         0         0         0         0         0         0
+->       1      12      10       2                                 <-   
+GROUP                                                                           
+->       2       0       0      -1                                 <-   00000001
+->       3      12       2       3                                 <-   
+DIFF                                                                            
+  1.29999995E+00  1.29999995E+00  1.29999995E+00
+->       3      12       1       3                                 <-   
+NJJS00                                                                          
+         1         1         1
+->       3      12       1       3                                 <-   
+IJJS00                                                                          
+         1         1         1
+->       3      12       1       3                                 <-   
+IPOS00                                                                          
+         1         2         3
+->       3      12       2       3                                 <-   
+SIGW00                                                                          
+  0.00000000E+00  0.00000000E+00  0.00000000E+00
+->       3      12       2       3                                 <-   
+SIGS00                                                                          
+  7.20194168E-03  9.96883679E-03  2.28258651E-02
+->       3      12       2       3                                 <-   
+SCAT00                                                                          
+  0.00000000E+00  0.00000000E+00  0.00000000E+00
+->       3      12       2       3                                 <-   
+NTOT0                                                                           
+  1.76822022E-02  1.53639531E-02  3.76667082E-02
+->      -3       0       0       0                                 <-   
+->       2       0       0      -1                                 <-   00000002
+->       3      12       2       3                                 <-   
+DIFF                                                                            
+  4.00000006E-01  4.00000006E-01  4.00000006E-01
+->       3      12       1       3                                 <-   
+NJJS00                                                                          
+         2         2         2
+->       3      12       1       3                                 <-   
+IJJS00                                                                          
+         2         2         2
+->       3      12       1       3                                 <-   
+IPOS00                                                                          
+         1         3         5
+->       3      12       2       3                                 <-   
+SIGW00                                                                          
+  0.00000000E+00  0.00000000E+00  0.00000000E+00
+->       3      12       2       3                                 <-   
+SIGS00                                                                          
+  0.00000000E+00  0.00000000E+00  0.00000000E+00
+->       3      12       2       6                                 <-   
+SCAT00                                                                          
+  0.00000000E+00  7.20194168E-03  0.00000000E+00  9.96883679E-03  0.00000000E+00
+  2.28258651E-02
+->       3      12       2       3                                 <-   
+NTOT0                                                                           
+  1.04217932E-01  7.50210211E-02  2.04408560E-02
+->      -3       0       0       0                                 <-   
+->      -1       0       0       0                                 <-   
diff --git a/Donjon/data/rep900_sim_defrod_proc/_Saphyb_MOX b/Donjon/data/rep900_sim_defrod_proc/_Saphyb_MOX
new file mode 100755
index 0000000..646822b
--- /dev/null
+++ b/Donjon/data/rep900_sim_defrod_proc/_Saphyb_MOX
@@ -0,0 +1,3 @@
+version https://git-lfs.github.com/spec/v1
+oid sha256:90e904b7e518f2ddc201bb855a53779adfd09b64afa27c6d34646937d3c44a1c
+size 31004125
diff --git a/Donjon/data/rep900_sim_defrod_proc/_Saphyb_UOX b/Donjon/data/rep900_sim_defrod_proc/_Saphyb_UOX
new file mode 100755
index 0000000..0218f45
--- /dev/null
+++ b/Donjon/data/rep900_sim_defrod_proc/_Saphyb_UOX
@@ -0,0 +1,3 @@
+version https://git-lfs.github.com/spec/v1
+oid sha256:d011844f152e9b13f50085d1ff68ce1826e6d6b76d045fccb871e3d7b12c37e4
+size 29491665