Initial commit from Polytechnique Montreal

1 files changed, 55 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 .