***********************************************************
*                                                         *
* 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 .