Initial commit from Polytechnique Montreal

4 files changed, 745 insertions, 0 deletions

diff --git a/Donjon/data/proc/Pburn.c2m b/Donjon/data/proc/Pburn.c2m
new file mode 100755
index 0000000..ffbea78
--- /dev/null
+++ b/Donjon/data/proc/Pburn.c2m
@@ -0,0 +1,55 @@
+***********************************************************
+*                                                         *
+* Procedure :  Pburn.c2m                                  *
+* Purpose   :  Provide average exit burnups               *
+* Author(s) :  D. Sekki (2007/11)                         *
+*                                                         *
+* CALL      :  FMAP := Pburn FMAP ;                       *
+*                                                         *
+***********************************************************
+PARAMETER  FMAP :: ::: LINKED_LIST FMAP ; ;
+MODULE     END: RESINI: ;
+
+  FMAP := RESINI: FMAP :: EDIT 2  REF-SHIFT 8
+
+   BTYPE TIMAV-BURN
+   TIMAV-BVAL
+
+*A
+   1008.98  1057.69  1071.61  1095.41  1137.92
+
+*B
+   1365.60  1586.43  1643.79  1656.34  1756.62
+   2014.25  2364.85
+
+*C
+   1806.72  2019.33  2425.27  2556.62  2822.28
+   3250.93  3391.85  3761.47
+
+*D
+   2279.49  2267.03  2563.72  2898.28  3261.49
+   3409.15  3715.98  4136.73
+
+*E
+   2258.14  2345.30  3173.47  3111.80  3212.21
+   3456.56  3705.48  3801.69  3953.67
+
+*F
+   2678.92  3263.24  3614.41  3764.97  3813.93
+   3857.62  3925.74  4046.12  4119.31
+
+*G
+   2792.21  3087.13  3705.48  3960.65  4030.43
+   4025.20  3978.10  3990.31  4037.40
+
+*H
+   1693.96  2811.67  3666.96  4115.83  4241.15
+   4134.99  4025.20  3910.02  3915.26
+
+*J
+   2268.81  3065.97  3826.17  4232.46  4380.19
+   4121.05  3995.54  3889.07  3890.81
+ ;
+
+END: ;
+QUIT .
diff --git a/Donjon/data/proc/Pdevc.c2m b/Donjon/data/proc/Pdevc.c2m
new file mode 100755
index 0000000..76f7778
--- /dev/null
+++ b/Donjon/data/proc/Pdevc.c2m
@@ -0,0 +1,442 @@
+***********************************************************
+*                                                         *
+* Procedure :  Pdevc.c2m                                  *
+* Purpose   :  Reactor rod-devices specification          *
+* Author(s) :  D. Sekki (2007/06)                         *
+*                                                         *
+* CALL      :  DEVICE MATEX := Pdevc MATEX ::             *
+*        <<mZCRin>> <<mZCRout>> <<mSORin>> <<mSORout>> ;  *
+*                                                         *
+***********************************************************
+
+PARAMETER  DEVICE MATEX ::
+                          ::: LINKED_LIST DEVICE MATEX ; ;
+MODULE     END: DEVINI: ;
+INTEGER    mZCRin mZCRout mSORin mSORout ;
+*--
+* Read arguments:
+*--
+  :: >>mZCRin<< >>mZCRout<< >>mSORin<< >>mSORout<< ;
+
+  DEVICE MATEX := DEVINI: MATEX :: EDIT 1 NUM-ROD 56 FADE
+
+*--
+* ZCR:
+*--
+    ROD 1
+      ROD-NAME ZCR01A
+      LEVEL 0.0   AXIS Y  FROM H-
+      MAXPOS 161.0 183.0   0.0 260.0   123.825 173.355
+      DMIX <<mZCRin>> <<mZCRout>>
+    ENDROD
+*
+    ROD 2
+      ROD-NAME ZCR01B
+      LEVEL 0.0   AXIS Y  FROM H+
+      MAXPOS 161.0 183.0   260.0 520.0   123.825 173.355
+      DMIX <<mZCRin>> <<mZCRout>>
+    ENDROD
+*
+    ROD 3
+      ROD-NAME ZCR02A
+      LEVEL 0.0   AXIS Y  FROM H-
+      MAXPOS 205.0 227.0   0.0 260.0   123.825 173.355
+      DMIX <<mZCRin>> <<mZCRout>>
+    ENDROD
+*
+    ROD 4
+      ROD-NAME ZCR02B
+      LEVEL 0.0   AXIS Y  FROM H+
+      MAXPOS 205.0 227.0   260.0 520.0   123.825 173.355
+      DMIX <<mZCRin>> <<mZCRout>>
+    ENDROD
+*
+    ROD 5
+      ROD-NAME ZCR03A
+      LEVEL 0.0   AXIS Y  FROM H-
+      MAXPOS 249.0 271.0   0.0 260.0   123.825 173.355
+      DMIX <<mZCRin>> <<mZCRout>>
+    ENDROD
+*
+    ROD 6
+      ROD-NAME ZCR03B
+      LEVEL 0.0   AXIS Y  FROM H+
+      MAXPOS 249.0 271.0   260.0 520.0   123.825 173.355
+      DMIX <<mZCRin>> <<mZCRout>>
+    ENDROD
+*
+    ROD 7
+      ROD-NAME ZCR04A
+      LEVEL 0.0   AXIS Y  FROM H-
+      MAXPOS 293.0 315.0   0.0 260.0   123.825 173.355
+      DMIX <<mZCRin>> <<mZCRout>>
+    ENDROD
+*
+    ROD 8
+      ROD-NAME ZCR04B
+      LEVEL 0.0   AXIS Y  FROM H+
+      MAXPOS 293.0 315.0   260.0 520.0   123.825 173.355
+      DMIX <<mZCRin>> <<mZCRout>>
+    ENDROD
+*
+    ROD 9
+      ROD-NAME ZCR05A
+      LEVEL 0.0   AXIS Y  FROM H-
+      MAXPOS 337.0 359.0   0.0 260.0   123.825 173.355
+      DMIX <<mZCRin>> <<mZCRout>>
+    ENDROD
+*
+    ROD 10
+      ROD-NAME ZCR05B
+      LEVEL 0.0   AXIS Y  FROM H+
+      MAXPOS 337.0 359.0   260.0 520.0   123.825 173.355
+      DMIX <<mZCRin>> <<mZCRout>>
+    ENDROD
+*
+    ROD 11
+      ROD-NAME ZCR06A
+      LEVEL 0.0   AXIS Y  FROM H-
+      MAXPOS 161.0 183.0   0.0 260.0   272.415 321.945
+      DMIX <<mZCRin>> <<mZCRout>>
+    ENDROD
+*
+    ROD 12
+      ROD-NAME ZCR06B
+      LEVEL 0.0   AXIS Y  FROM H+
+      MAXPOS 161.0 183.0   260.0 520.0   272.415 321.945
+      DMIX <<mZCRin>> <<mZCRout>>
+    ENDROD
+*
+    ROD 13
+      ROD-NAME ZCR07A
+      LEVEL 0.0   AXIS Y  FROM H-
+      MAXPOS 205.0 227.0   0.0 260.0   272.415 321.945
+      DMIX <<mZCRin>> <<mZCRout>>
+    ENDROD
+*
+    ROD 14
+      ROD-NAME ZCR07B
+      LEVEL 0.0   AXIS Y  FROM H+
+      MAXPOS 205.0 227.0   260.0 520.0   272.415 321.945
+      DMIX <<mZCRin>> <<mZCRout>>
+    ENDROD
+*
+    ROD 15
+      ROD-NAME ZCR08A
+      LEVEL 0.0   AXIS Y  FROM H-
+      MAXPOS 249.0 271.0   0.0 260.0   272.415 321.945
+      DMIX <<mZCRin>> <<mZCRout>>
+    ENDROD
+*
+    ROD 16
+      ROD-NAME ZCR08B
+      LEVEL 0.0   AXIS Y  FROM H+
+      MAXPOS 249.0 271.0   260.0 520.0   272.415 321.945
+      DMIX <<mZCRin>> <<mZCRout>>
+    ENDROD
+*
+    ROD 17
+      ROD-NAME ZCR09A
+      LEVEL 0.0   AXIS Y  FROM H-
+      MAXPOS 293.0 315.0   0.0 260.0   272.415 321.945
+      DMIX <<mZCRin>> <<mZCRout>>
+    ENDROD
+*
+    ROD 18
+      ROD-NAME ZCR09B
+      LEVEL 0.0   AXIS Y  FROM H+
+      MAXPOS 293.0 315.0   260.0 520.0   272.415 321.945
+      DMIX <<mZCRin>> <<mZCRout>>
+    ENDROD
+*
+    ROD 19
+      ROD-NAME ZCR10A
+      LEVEL 0.0   AXIS Y  FROM H-
+      MAXPOS 337.0 359.0   0.0   260.0   272.415 321.945
+      DMIX <<mZCRin>> <<mZCRout>>
+    ENDROD
+*
+    ROD 20
+      ROD-NAME ZCR10B
+      LEVEL 0.0   AXIS Y  FROM H+
+      MAXPOS 337.0 359.0   260.0 520.0   272.415 321.945
+      DMIX <<mZCRin>> <<mZCRout>>
+    ENDROD
+*
+    ROD 21
+      ROD-NAME ZCR11A
+      LEVEL 0.0   AXIS Y  FROM H-
+      MAXPOS 161.0 183.0   0.0 260.0   421.005 470.535
+      DMIX <<mZCRin>> <<mZCRout>>
+    ENDROD
+*
+    ROD 22
+      ROD-NAME ZCR11B
+      LEVEL 0.0   AXIS Y  FROM H+
+      MAXPOS 161.0 183.0   260.0 520.0   421.005 470.535
+      DMIX <<mZCRin>> <<mZCRout>>
+    ENDROD
+*
+    ROD 23
+      ROD-NAME ZCR12A
+      LEVEL 0.0   AXIS Y  FROM H-
+      MAXPOS 205.0 227.0   0.0 260.0   421.005 470.535
+      DMIX <<mZCRin>> <<mZCRout>>
+    ENDROD
+*
+    ROD 24
+      ROD-NAME ZCR12B
+      LEVEL 0.0   AXIS Y  FROM H+
+      MAXPOS 205.0 227.0   260.0 520.0   421.005 470.535
+      DMIX <<mZCRin>> <<mZCRout>>
+    ENDROD
+*
+    ROD 25
+      ROD-NAME ZCR13A
+      LEVEL 0.0   AXIS Y  FROM H-
+      MAXPOS 249.0 271.0   0.0 260.0   421.005 470.535
+      DMIX <<mZCRin>> <<mZCRout>>
+    ENDROD
+*
+    ROD 26
+      ROD-NAME ZCR13B
+      LEVEL 0.0   AXIS Y  FROM H+
+      MAXPOS 249.0 271.0   260.0 520.0   421.005 470.535
+      DMIX <<mZCRin>> <<mZCRout>>
+    ENDROD
+*
+    ROD 27
+      ROD-NAME ZCR14A
+      LEVEL 0.0   AXIS Y  FROM H-
+      MAXPOS 293.0 315.0   0.0 260.0   421.005 470.535
+      DMIX <<mZCRin>> <<mZCRout>>
+    ENDROD
+*
+    ROD 28
+      ROD-NAME ZCR14B
+      LEVEL 0.0   AXIS Y  FROM H+
+      MAXPOS 293.0 315.0   260.0 520.0   421.005 470.535
+      DMIX <<mZCRin>> <<mZCRout>>
+    ENDROD
+*
+    ROD 29
+      ROD-NAME ZCR15A
+      LEVEL 0.0   AXIS Y  FROM H-
+      MAXPOS 337.0 359.0   0.0 260.0   421.005 470.535
+      DMIX <<mZCRin>> <<mZCRout>>
+    ENDROD
+*
+    ROD 30
+      ROD-NAME ZCR15B
+      LEVEL 0.0   AXIS Y  FROM H+
+      MAXPOS 337.0 359.0   260.0 520.0   421.005 470.535
+      DMIX <<mZCRin>> <<mZCRout>>
+    ENDROD
+
+*--
+* SOR:
+*--
+    ROD 31
+      ROD-NAME SOR01
+      LEVEL 0.0   AXIS Y  FROM H+
+      MAXPOS 117.0 139.0   53.75 466.25   49.53 99.06
+      DMIX <<mSORin>> <<mSORout>>
+    ENDROD
+*
+    ROD 32
+      ROD-NAME SOR02
+      LEVEL 0.0   AXIS Y  FROM H+
+      MAXPOS 183.0 205.0   24.5 495.5   49.53 99.06
+      DMIX <<mSORin>> <<mSORout>>
+    ENDROD
+*
+    ROD 33
+      ROD-NAME SOR03
+      LEVEL 0.0   AXIS Y  FROM H+
+      MAXPOS 227.0 249.0   24.5 495.5   49.53 99.06
+      DMIX <<mSORin>> <<mSORout>>
+    ENDROD
+*
+    ROD 34
+      ROD-NAME SOR04
+      LEVEL 0.0   AXIS Y  FROM H+
+      MAXPOS 271.0 293.0   24.5 495.5   49.53 99.06
+      DMIX <<mSORin>> <<mSORout>>
+    ENDROD
+*
+    ROD 35
+      ROD-NAME SOR05
+      LEVEL 0.0   AXIS Y  FROM H+
+      MAXPOS 315.0 337.0   24.5 495.5   49.53 99.06
+      DMIX <<mSORin>> <<mSORout>>
+    ENDROD
+*
+    ROD 36
+      ROD-NAME SOR06
+      LEVEL 0.0   AXIS Y  FROM H+
+      MAXPOS 381.0 403.0   53.75 466.25   49.53 99.06
+      DMIX <<mSORin>> <<mSORout>>
+    ENDROD
+*
+    ROD 37
+      ROD-NAME SOR07
+      LEVEL 0.0   AXIS Y  FROM H+
+      MAXPOS 117.0 139.0   53.75 466.25   123.825 173.355
+      DMIX <<mSORin>> <<mSORout>>
+    ENDROD
+*
+    ROD 38
+      ROD-NAME SOR08
+      LEVEL 0.0   AXIS Y  FROM H+
+      MAXPOS 381.0 403.0   53.75 466.25   123.825 173.355
+      DMIX <<mSORin>> <<mSORout>>
+    ENDROD
+*
+    ROD 39
+      ROD-NAME SOR09
+      LEVEL 0.0   AXIS Y  FROM H+
+      MAXPOS 117.0 139.0   53.75 466.25   222.885 272.415
+      DMIX <<mSORin>> <<mSORout>>
+    ENDROD
+*
+    ROD 40
+      ROD-NAME SOR10
+      LEVEL 0.0   AXIS Y  FROM H+
+      MAXPOS 227.0 249.0   24.5 495.5   198.12 247.65
+      DMIX <<mSORin>> <<mSORout>>
+    ENDROD
+*
+    ROD 41
+      ROD-NAME SOR11
+      LEVEL 0.0   AXIS Y  FROM H+
+      MAXPOS 271.0 293.0   24.5 495.5   198.12 247.65
+      DMIX <<mSORin>> <<mSORout>>
+    ENDROD
+*
+    ROD 42
+      ROD-NAME SOR12
+      LEVEL 0.0   AXIS Y  FROM H+
+      MAXPOS 381.0 403.0   53.75 466.25   222.885 272.415
+      DMIX <<mSORin>> <<mSORout>>
+    ENDROD
+*
+    ROD 43
+      ROD-NAME SOR13
+      LEVEL 0.0   AXIS Y  FROM H+
+      MAXPOS 117.0 139.0   53.75 466.25   272.415 321.945
+      DMIX <<mSORin>> <<mSORout>>
+    ENDROD
+*
+    ROD 44
+      ROD-NAME SOR14
+      LEVEL 0.0   AXIS Y  FROM H+
+      MAXPOS 381.0 403.0   53.75 466.25   272.415 321.945
+      DMIX <<mSORin>> <<mSORout>>
+    ENDROD
+*
+    ROD 45
+      ROD-NAME SOR15
+      LEVEL 0.0   AXIS Y  FROM H+
+      MAXPOS 117.0 139.0   53.75 466.25   321.945 371.475
+      DMIX <<mSORin>> <<mSORout>>
+    ENDROD
+*
+    ROD 46
+      ROD-NAME SOR16
+      LEVEL 0.0   AXIS Y  FROM H+
+      MAXPOS 227.0 249.0   24.5 495.5   346.71 396.24
+      DMIX <<mSORin>> <<mSORout>>
+    ENDROD
+*
+    ROD 47
+      ROD-NAME SOR17
+      LEVEL 0.0   AXIS Y  FROM H+
+      MAXPOS 271.0 293.0   24.5 495.5   346.71 396.24
+      DMIX <<mSORin>> <<mSORout>>
+    ENDROD
+*
+    ROD 48
+      ROD-NAME SOR18
+      LEVEL 0.0   AXIS Y  FROM H+
+      MAXPOS 381.0 403.0   53.75 466.25   321.945 371.475
+      DMIX <<mSORin>> <<mSORout>>
+    ENDROD
+*
+    ROD 49
+      ROD-NAME SOR19
+      LEVEL 0.0   AXIS Y  FROM H+
+      MAXPOS 117.0 139.0   53.75 466.25   421.005 470.535
+      DMIX <<mSORin>> <<mSORout>>
+    ENDROD
+*
+    ROD 50
+      ROD-NAME SOR20
+      LEVEL 0.0   AXIS Y  FROM H+
+      MAXPOS 381.0 403.0   53.75 466.25   421.005 470.535
+      DMIX <<mSORin>> <<mSORout>>
+    ENDROD
+*
+    ROD 51
+      ROD-NAME SOR21
+      LEVEL 0.0   AXIS Y  FROM H+
+      MAXPOS 117.0 139.0   53.75 466.25   495.3 544.83
+      DMIX <<mSORin>> <<mSORout>>
+    ENDROD
+*
+    ROD 52
+      ROD-NAME SOR22
+      LEVEL 0.0   AXIS Y  FROM H+
+      MAXPOS 183.0 205.0   24.5 495.5   495.3 544.83
+      DMIX <<mSORin>> <<mSORout>>
+    ENDROD
+*
+    ROD 53
+      ROD-NAME SOR23
+      LEVEL 0.0   AXIS Y  FROM H+
+      MAXPOS 227.0 249.0   24.5 495.5   495.3 544.83
+      DMIX <<mSORin>> <<mSORout>>
+    ENDROD
+*
+    ROD 54
+      ROD-NAME SOR24
+      LEVEL 0.0   AXIS Y  FROM H+
+      MAXPOS 271.0 293.0   24.5 495.5   495.3 544.83
+      DMIX <<mSORin>> <<mSORout>>
+    ENDROD
+*
+    ROD 55
+      ROD-NAME SOR25
+      LEVEL 0.0   AXIS Y  FROM H+
+      MAXPOS 315.0 337.0   24.5 495.5   495.3 544.83
+      DMIX <<mSORin>> <<mSORout>>
+    ENDROD
+*
+    ROD 56
+      ROD-NAME SOR26
+      LEVEL 0.0   AXIS Y  FROM H+
+      MAXPOS 381.0 403.0   53.75 466.25   495.3 544.83
+      DMIX <<mSORin>> <<mSORout>>
+    ENDROD
+
+*--
+* create rod-devices groups:
+*--
+    CREATE ROD-GR 5
+
+    GROUP-ID 1
+    ROD-ID 1 2 15 16 19 20 23 24 27 28
+
+    GROUP-ID 2
+    ROD-ID 3 4 7 8 9 10 13 14
+
+    GROUP-ID 3
+    ROD-ID 5 6 11 12 17 18 21 22 25 26 29 30
+
+    GROUP-ID 4
+    ROD-ID 31 36 37 38 39 42 43 44 45 48 49 50 51 52 53 54 55
+
+    GROUP-ID 5
+    ROD-ID 32 33 34 35 40 41 46 47 53 56 ;
+
+END: ;
+QUIT .
diff --git a/Donjon/data/proc/Pfmap.c2m b/Donjon/data/proc/Pfmap.c2m
new file mode 100755
index 0000000..6fb6c9c
--- /dev/null
+++ b/Donjon/data/proc/Pfmap.c2m
@@ -0,0 +1,133 @@
+***********************************************************
+*                                                         *
+* Procedure :  Pfmap.c2m                                  *
+* Purpose   :  Reactor fuel-map specification             *
+* Author(s) :  D. Sekki (2007/11)                         *
+*                                                         *
+* CALL      :  FMAP MATEX := Pfmap MATEX ;                *
+*                                                         *
+***********************************************************
+PARAMETER  FMAP MATEX :: ::: LINKED_LIST FMAP MATEX ; ;
+MODULE     END: RESINI: ;
+
+FMAP MATEX := RESINI: MATEX :: EDIT 0
+
+      ::: GEO: CAR3D 20 20 12
+
+         EDIT 0
+         X- VOID  X+ VOID
+         Y- VOID  Y+ VOID
+         Z- VOID  Z+ VOID
+
+      MIX
+
+    PLANE 1
+
+*   - 1 2 3 4 5 6 7 8 9  0 1 2 3 4 5 6 7 8 -
+
+    0 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 1 1 1 1  1 1 1 1 1 0 0 0 0 0   ! A
+    0 0 0 1 1 1 1 1 1 1  1 1 1 1 1 1 1 0 0 0   ! B
+    0 0 1 1 1 1 1 1 1 1  1 1 1 1 1 1 1 1 0 0   ! C
+    0 0 1 1 1 1 1 1 1 1  1 1 1 1 1 1 1 1 0 0   ! D
+    0 1 1 1 1 1 1 1 1 1  1 1 1 1 1 1 1 1 1 0   ! E
+    0 1 1 1 1 1 1 1 1 1  1 1 1 1 1 1 1 1 1 0   ! F
+    0 1 1 1 1 1 1 1 1 1  1 1 1 1 1 1 1 1 1 0   ! G
+    0 1 1 1 1 1 1 1 1 1  1 1 1 1 1 1 1 1 1 0   ! H
+    0 1 1 1 1 1 1 1 1 1  1 1 1 1 1 1 1 1 1 0   ! J
+
+    0 1 1 1 1 1 1 1 1 1  1 1 1 1 1 1 1 1 1 0   ! K
+    0 1 1 1 1 1 1 1 1 1  1 1 1 1 1 1 1 1 1 0   ! L
+    0 1 1 1 1 1 1 1 1 1  1 1 1 1 1 1 1 1 1 0   ! M
+    0 1 1 1 1 1 1 1 1 1  1 1 1 1 1 1 1 1 1 0   ! N
+    0 1 1 1 1 1 1 1 1 1  1 1 1 1 1 1 1 1 1 0   ! O
+    0 0 1 1 1 1 1 1 1 1  1 1 1 1 1 1 1 1 0 0   ! P
+    0 0 1 1 1 1 1 1 1 1  1 1 1 1 1 1 1 1 0 0   ! Q
+    0 0 0 1 1 1 1 1 1 1  1 1 1 1 1 1 1 0 0 0   ! R
+    0 0 0 0 0 1 1 1 1 1  1 1 1 1 1 0 0 0 0 0   ! S
+    0 0 0 0 0 0 0 0 0 0  0 0 0 0 0 0 0 0 0 0   ! -
+
+    PLANE 2  SAME 1
+    PLANE 3  SAME 1
+    PLANE 4  SAME 1
+
+    PLANE 5
+
+*   - 1 2 3 4 5 6 7 8 9  0 1 2 3 4 5 6 7 8 -
+
+    0 0 0 0 0 0 0 0 0 0  0 0 0 0 0 0 0 0 0 0   ! -
+    0 0 0 0 0 2 2 2 2 2  2 2 2 2 2 0 0 0 0 0   ! A
+    0 0 0 2 2 2 2 2 2 2  2 2 2 2 2 2 2 0 0 0   ! B
+    0 0 2 2 2 2 2 2 2 2  2 2 2 2 2 2 2 2 0 0   ! C
+    0 0 2 2 2 2 2 2 2 2  2 2 2 2 2 2 2 2 0 0   ! D
+    0 2 2 2 2 2 2 2 2 2  2 2 2 2 2 2 2 2 2 0   ! E
+    0 2 2 2 2 2 2 2 2 2  2 2 2 2 2 2 2 2 2 0   ! F
+    0 2 2 2 2 2 2 2 2 2  2 2 2 2 2 2 2 2 2 0   ! G
+    0 2 2 2 2 2 2 2 2 2  2 2 2 2 2 2 2 2 2 0   ! H
+    0 2 2 2 2 2 2 2 2 2  2 2 2 2 2 2 2 2 2 0   ! J
+
+    0 2 2 2 2 2 2 2 2 2  2 2 2 2 2 2 2 2 2 0   ! K
+    0 2 2 2 2 2 2 2 2 2  2 2 2 2 2 2 2 2 2 0   ! L
+    0 2 2 2 2 2 2 2 2 2  2 2 2 2 2 2 2 2 2 0   ! M
+    0 2 2 2 2 2 2 2 2 2  2 2 2 2 2 2 2 2 2 0   ! N
+    0 2 2 2 2 2 2 2 2 2  2 2 2 2 2 2 2 2 2 0   ! O
+    0 0 2 2 2 2 2 2 2 2  2 2 2 2 2 2 2 2 0 0   ! P
+    0 0 2 2 2 2 2 2 2 2  2 2 2 2 2 2 2 2 0 0   ! Q
+    0 0 0 2 2 2 2 2 2 2  2 2 2 2 2 2 2 0 0 0   ! R
+    0 0 0 0 0 2 2 2 2 2  2 2 2 2 2 0 0 0 0 0   ! S
+    0 0 0 0 0 0 0 0 0 0  0 0 0 0 0 0 0 0 0 0   ! -
+
+    PLANE  6  SAME 5
+    PLANE  7  SAME 5
+    PLANE  8  SAME 5
+
+    PLANE  9  SAME 1
+    PLANE 10  SAME 1
+    PLANE 11  SAME 1
+    PLANE 12  SAME 1
+
+    MESHX  0.0   62.  84. 106. 128. 150. 172.
+           194. 216. 238. 260. 282. 304. 326.
+           348. 370. 392. 414. 436. 458. 520.
+
+    MESHY  0.0   62.  84. 106. 128. 150. 172.
+           194. 216. 238. 260. 282. 304. 326.
+           348. 370. 392. 414. 436. 458. 520.
+
+    MESHZ  0.0  49.53  99.06  148.59  198.12  247.65
+    297.18 346.71 396.24 445.77 495.30 544.83 594.36
+  ;
+
+  NXNAME  '-' '1' '2' '3' '4' '5' '6' '7' '8' '9' '10'
+          '11' '12' '13' '14' '15' '16' '17' '18' '-'
+
+  NYNAME  '-' 'A' 'B' 'C' 'D' 'E' 'F' 'G' 'H' 'J'
+          'K' 'L' 'M' 'N' 'O' 'P' 'Q' 'R' 'S' '-'
+
+  NCOMB 73  B-ZONE
+
+   1   2   3   4   5   5   4   3   2   1   6   7   8   9
+  10  11  12  12  11  10   9   8   7   6  13  14  15  16
+  17  18  19  20  20  19  18  17  16  15  14  13  21  22
+  23  24  25  26  27  28  28  27  26  25  24  23  22  21
+  29  30  31  32  33  34  35  36  37  37  36  35  34  33
+  32  31  30  29  38  39  40  41  42  43  44  45  46  46
+  45  44  43  42  41  40  39  38  47  48  49  50  51  52
+  53  54  55  55  54  53  52  51  50  49  48  47  56  57
+  58  59  60  61  62  63  64  64  63  62  61  60  59  58
+  57  56  65  66  67  68  69  70  71  72  73  73  72  71
+  70  69  68  67  66  65  65  66  67  68  69  70  71  72
+  73  73  72  71  70  69  68  67  66  65  56  57  58  59
+  60  61  62  63  64  64  63  62  61  60  59  58  57  56
+  47  48  49  50  51  52  53  54  55  55  54  53  52  51
+  50  49  48  47  38  39  40  41  42  43  44  45  46  46
+  45  44  43  42  41  40  39  38  29  30  31  32  33  34
+  35  36  37  37  36  35  34  33  32  31  30  29  21  22
+  23  24  25  26  27  28  28  27  26  25  24  23  22  21
+  13  14  15  16  17  18  19  20  20  19  18  17  16  15
+  14  13   6   7   8   9  10  11  12  12  11  10   9   8
+   7   6   1   2   3   4   5   5   4   3   2   1
+ ;
+
+END: ;
+QUIT .
diff --git a/Donjon/data/proc/Pgeom.c2m b/Donjon/data/proc/Pgeom.c2m
new file mode 100755
index 0000000..9089349
--- /dev/null
+++ b/Donjon/data/proc/Pgeom.c2m
@@ -0,0 +1,115 @@
+***********************************************************
+*                                                         *
+* Procedure :  Pgeom.c2m                                  *
+* Purpose   :  Reactor geometry definition                *
+* Author(s) :  D. Sekki  (2007/06)                        *
+*                                                         *
+* CALL      :  GEOM := Pgeom ;                            *
+*                                                         *
+***********************************************************
+
+PARAMETER   GEOM :: ::: LINKED_LIST GEOM ; ;
+MODULE      END: GEO: ;
+
+  GEOM := GEO: :: CAR3D 24 24 12
+
+          EDIT 1
+          X- VOID  X+ VOID
+          Y- VOID  Y+ VOID
+          Z- VOID  Z+ VOID
+  MIX
+  PLANE 1
+
+* - - - 1 2 3 4 5 6 7 8 9  0 1 2 3 4 5 6 7 8 - - -
+
+  0 0 0 0 0 0 0 0 3 3 3 3  3 3 3 3 0 0 0 0 0 0 0 0   ! -
+  0 0 0 0 0 0 3 3 3 3 3 3  3 3 3 3 3 3 0 0 0 0 0 0   ! -
+  0 0 0 0 0 3 3 3 3 3 3 3  3 3 3 3 3 3 3 0 0 0 0 0   ! -
+  0 0 0 3 3 3 3 1 1 1 1 1  1 1 1 1 1 3 3 3 3 0 0 0   ! A
+  0 0 0 3 3 1 1 1 1 1 1 1  1 1 1 1 1 1 1 3 3 0 0 0   ! B
+  0 0 3 3 1 1 1 1 1 1 1 1  1 1 1 1 1 1 1 1 3 3 0 0   ! C
+  0 3 3 3 1 1 1 1 1 1 1 1  1 1 1 1 1 1 1 1 3 3 3 0   ! D
+  0 3 3 1 1 1 1 1 1 1 1 1  1 1 1 1 1 1 1 1 1 3 3 0   ! E
+  3 3 3 1 1 1 1 1 1 1 1 1  1 1 1 1 1 1 1 1 1 3 3 3   ! F
+  3 3 3 1 1 1 1 1 1 1 1 1  1 1 1 1 1 1 1 1 1 3 3 3   ! G
+  3 3 3 1 1 1 1 1 1 1 1 1  1 1 1 1 1 1 1 1 1 3 3 3   ! H
+  3 3 3 1 1 1 1 1 1 1 1 1  1 1 1 1 1 1 1 1 1 3 3 3   ! J
+
+  3 3 3 1 1 1 1 1 1 1 1 1  1 1 1 1 1 1 1 1 1 3 3 3   ! K
+  3 3 3 1 1 1 1 1 1 1 1 1  1 1 1 1 1 1 1 1 1 3 3 3   ! L
+  3 3 3 1 1 1 1 1 1 1 1 1  1 1 1 1 1 1 1 1 1 3 3 3   ! M
+  3 3 3 1 1 1 1 1 1 1 1 1  1 1 1 1 1 1 1 1 1 3 3 3   ! N
+  0 3 3 1 1 1 1 1 1 1 1 1  1 1 1 1 1 1 1 1 1 3 3 0   ! O
+  0 3 3 3 1 1 1 1 1 1 1 1  1 1 1 1 1 1 1 1 3 3 3 0   ! P
+  0 0 3 3 1 1 1 1 1 1 1 1  1 1 1 1 1 1 1 1 3 3 0 0   ! Q
+  0 0 0 3 3 1 1 1 1 1 1 1  1 1 1 1 1 1 1 3 3 0 0 0   ! R
+  0 0 0 3 3 3 3 1 1 1 1 1  1 1 1 1 1 3 3 3 3 0 0 0   ! S
+  0 0 0 0 0 3 3 3 3 3 3 3  3 3 3 3 3 3 3 0 0 0 0 0   ! -
+  0 0 0 0 0 0 3 3 3 3 3 3  3 3 3 3 3 3 0 0 0 0 0 0   ! -
+  0 0 0 0 0 0 0 0 3 3 3 3  3 3 3 3 0 0 0 0 0 0 0 0   ! -
+
+  PLANE 2  SAME 1
+  PLANE 3  SAME 1
+  PLANE 4  SAME 1
+
+  PLANE 5
+
+* - - - 1 2 3 4 5 6 7 8 9  0 1 2 3 4 5 6 7 8 - - -
+
+  0 0 0 0 0 0 0 0 4 4 4 4  4 4 4 4 0 0 0 0 0 0 0 0   ! -
+  0 0 0 0 0 0 4 4 4 4 4 4  4 4 4 4 4 4 0 0 0 0 0 0   ! -
+  0 0 0 0 0 4 4 4 4 4 4 4  4 4 4 4 4 4 4 0 0 0 0 0   ! -
+  0 0 0 4 4 4 4 2 2 2 2 2  2 2 2 2 2 4 4 4 4 0 0 0   ! A
+  0 0 0 4 4 2 2 2 2 2 2 2  2 2 2 2 2 2 2 4 4 0 0 0   ! B
+  0 0 4 4 2 2 2 2 2 2 2 2  2 2 2 2 2 2 2 2 4 4 0 0   ! C
+  0 4 4 4 2 2 2 2 2 2 2 2  2 2 2 2 2 2 2 2 4 4 4 0   ! D
+  0 4 4 2 2 2 2 2 2 2 2 2  2 2 2 2 2 2 2 2 2 4 4 0   ! E
+  4 4 4 2 2 2 2 2 2 2 2 2  2 2 2 2 2 2 2 2 2 4 4 4   ! F
+  4 4 4 2 2 2 2 2 2 2 2 2  2 2 2 2 2 2 2 2 2 4 4 4   ! G
+  4 4 4 2 2 2 2 2 2 2 2 2  2 2 2 2 2 2 2 2 2 4 4 4   ! H
+  4 4 4 2 2 2 2 2 2 2 2 2  2 2 2 2 2 2 2 2 2 4 4 4   ! J
+
+  4 4 4 2 2 2 2 2 2 2 2 2  2 2 2 2 2 2 2 2 2 4 4 4   ! K
+  4 4 4 2 2 2 2 2 2 2 2 2  2 2 2 2 2 2 2 2 2 4 4 4   ! L
+  4 4 4 2 2 2 2 2 2 2 2 2  2 2 2 2 2 2 2 2 2 4 4 4   ! M
+  4 4 4 2 2 2 2 2 2 2 2 2  2 2 2 2 2 2 2 2 2 4 4 4   ! N
+  0 4 4 2 2 2 2 2 2 2 2 2  2 2 2 2 2 2 2 2 2 4 4 0   ! O
+  0 4 4 4 2 2 2 2 2 2 2 2  2 2 2 2 2 2 2 2 4 4 4 0   ! P
+  0 0 4 4 2 2 2 2 2 2 2 2  2 2 2 2 2 2 2 2 4 4 0 0   ! Q
+  0 0 0 4 4 2 2 2 2 2 2 2  2 2 2 2 2 2 2 4 4 0 0 0   ! R
+  0 0 0 4 4 4 4 2 2 2 2 2  2 2 2 2 2 4 4 4 4 0 0 0   ! S
+  0 0 0 0 0 4 4 4 4 4 4 4  4 4 4 4 4 4 4 0 0 0 0 0   ! -
+  0 0 0 0 0 0 4 4 4 4 4 4  4 4 4 4 4 4 0 0 0 0 0 0   ! -
+  0 0 0 0 0 0 0 0 4 4 4 4  4 4 4 4 0 0 0 0 0 0 0 0   ! -
+
+  PLANE  6  SAME 5
+  PLANE  7  SAME 5
+  PLANE  8  SAME 5
+
+  PLANE  9  SAME 1
+  PLANE 10  SAME 1
+  PLANE 11  SAME 1
+  PLANE 12  SAME 1
+
+  MESHX  0.0   20.  40.  62.  84. 106. 128. 150. 172.
+         194. 216. 238. 260. 282. 304. 326. 348. 370.
+         392. 414. 436. 458. 480. 500. 520.
+
+  MESHY  0.0   20.  40.  62.  84. 106. 128. 150. 172.
+         194. 216. 238. 260. 282. 304. 326. 348. 370.
+         392. 414. 436. 458. 480. 500. 520.
+
+  MESHZ  0.0 49.53 99.06 148.59 198.12 247.65 297.18
+         346.71 396.24 445.77 495.30 544.83 594.36
+
+
+  SPLITX 2 2 2 2 2 2 2 2 2 2 2 2
+         2 2 2 2 2 2 2 2 2 2 2 2
+
+  SPLITY 2 2 2 2 2 2 2 2 2 2 2 2
+         2 2 2 2 2 2 2 2 2 2 2 2
+
+  SPLITZ 2 2 2 2 2 2 2 2 2 2 2 2 ;
+
+END: ;
+QUIT .