****************************************************************
*                                                              *
* Procedure :  Pburntest.c2m                                   *
* Purpose   :  Average exit burnups for ACR-1000 core          *
* Author    :  R. Chambon (2008/03)                            *
* based on  :  D. Sekki (2007/06)                              *
*                                                              *
* CALL      :  FMAP := Pburntest FMAP :: <<Btyp>> ;            *
*                                                              *
****************************************************************

PARAMETER  FMAP :: ::: LINKED_LIST FMAP ; ;
MODULE     END: RESINI: ;
STRING     Btyp ;

  :: >>Btyp<< ;

FMAP := RESINI: FMAP :: 
  EDIT 1 
  BTYPE <<Btyp>> ! NCOMB ALL
  REF-SHIFT  8 
  ADD-PARAM PNAME D-COOL PARKEY X-COOL LOCAL
SET-PARAM D-COOL SAME 0.9
!  SET-PARAM D-COOL SAME 1.0
  ADD-PARAM PNAME T-COOL PARKEY T-COOL LOCAL
  SET-PARAM T-COOL SAME 5.831600E+02
!  SET-PARAM T-COOL SAME 5.731600E+02
  ADD-PARAM PNAME T-FUEL PARKEY T-FUEL LOCAL
  SET-PARAM T-FUEL SAME 9.851600E+02 
!  SET-PARAM T-FUEL SAME 9.601600E+02 
  TIMAV-BVAL
* A
     4900.  4900.  4400.  4400.  4900.  4900.
* B
     6200.  5900.  5800.  5800.  6100.  8000.  8000. 6100.
     5800.  5800.  5900.  6200.
* C
     6700.  7200.  8200.  8600.  9500. 10800. 12200. 12200.
    10800.  9500.  8600.  8200.  7200.  6700.
* D
     7800.  7800.  8600.  9500. 10700. 11200. 12100. 13300.
    13300. 12100. 11200. 10700.  9500.  8600.  7800.  7800.
* E
     8200.  8100. 10500.  9700. 10000. 11200. 12000. 11800.
    12300. 13300. 13300. 12300. 11800. 12000. 11200. 10000.
     9700. 10500.  8100.  8200.
* F
     9200. 10900. 11600. 11200. 11300. 12200. 12500. 11900.
    12100. 13400. 13400. 12100. 11900. 12500. 12200. 11300.
    11200. 11600. 10900. 9200.
* G
     9600. 10500. 12100. 12600. 11900. 11800. 12600. 12600.
    11800. 12400. 13400. 13400. 12400. 11800. 12600. 12600.
    11800. 11900. 12600. 12100. 10500.  9600.
* H
     6200.  9800. 12100. 13300. 13400. 12400. 12000. 12400.
    12500. 12300. 12600. 13700. 13700. 12600. 12300. 12500.
    12400. 12000. 12400. 13400. 13300. 12100.  9800.  6200.
* J
     8000. 10400. 12600. 13600. 13900. 13000. 12600. 12400.
    12500. 12800. 13200. 13800. 13800. 13200. 12800. 12500.
    12400. 12600. 13000. 13900. 13600. 12600. 10400.  8000.
* K
     8300. 11900. 12800. 13900. 13900. 13100. 12700. 12400.
    12400. 12900. 13200. 13900. 13900. 13200. 12900. 12400.
    12400. 12700. 13100. 13900. 13900. 12800. 11900.  8300.
* L
     8000.  8700. 12500. 13800. 13600. 13600. 13000. 12600.
    12300. 12300. 12900. 13200. 13800. 13800. 13200. 12900.
    12300. 12300. 12600. 13000. 13600. 13600. 13800. 12500.
     8700.  8000.
* M
     8600.  8900. 12800. 13900. 13700. 13800. 13000. 12600.
    12000. 12000. 12700. 13000. 13600. 13600. 13000. 12700.
    12000. 12000. 12600. 13000. 13800. 13700. 13900. 12800.
     8900.  8600.
* N
     8900.  9600. 13000. 13900. 13800. 13800. 13100. 12600.
    11900. 11900. 12500. 13000. 13500. 13500. 13000. 12500.
    11900. 11900. 12600. 13100. 13800. 13800. 13900. 13000.
     9600.  8900.
* O
     8900.  9600. 13000. 13900. 13800. 13800. 13100. 12600.
    11900. 11900. 12500. 13000. 13500. 13500. 13000. 12500.
    11900. 11900. 12600. 13100. 13800. 13800. 13900. 13000.
     9600.  8900.
* P
     8600.  8900. 12800. 13900. 13700. 13800. 13000. 12600.
    12000. 12000. 12700. 13000. 13600. 13600. 13000. 12700.
    12000. 12000. 12600. 13000. 13800. 13700. 13900. 12800.
     8900.  8600.
* Q
     8000.  8700. 12500. 13800. 13600. 13600. 13000. 12600.
    12300. 12300. 12900. 13200. 13800. 13800. 13200. 12900.
    12300. 12300. 12600. 13000. 13600. 13600. 13800. 12500.
     8700.  8000.
* R
     8300. 11900. 12800. 13900. 13900. 13100. 12700. 12400.
    12400. 12900. 13200. 13900. 13900. 13200. 12900. 12400.
    12400. 12700. 13100. 13900. 13900. 12800. 11900.  8300.
* S
     8000. 10400. 12600. 13600. 13900. 13000. 12600. 12400.
    12500. 12800. 13200. 13800. 13800. 13200. 12800. 12500.
    12400. 12600. 13000. 13900. 13600. 12600. 10400.  8000.
* T
     6200.  9800. 12100. 13300. 13400. 12400. 12000. 12400.
    12500. 12300. 12600. 13700. 13700. 12600. 12300. 12500.
    12400. 12000. 12400. 13400. 13300. 12100.  9800.  6200.
* U
     9600. 10500. 12100. 12600. 11900. 11800. 12600. 12600.
    11800. 12400. 13400. 13400. 12400. 11800. 12600. 12600.
    11800. 11900. 12600. 12100. 10500.  9600.
* V
     9200. 10900. 11600. 11200. 11300. 12200. 12500. 11900.
    12100. 13400. 13400. 12100. 11900. 12500. 12200. 11300.
    11200. 11600. 10900. 9200.
* W
     8200.  8100. 10500.  9700. 10000. 11200. 12000. 11800.
    12300. 13300. 13300. 12300. 11800. 12000. 11200. 10000.
     9700. 10500.  8100.  8200.
* X
     7800.  7800.  8600.  9500. 10700. 11200. 12100. 13300.
    13300. 12100. 11200. 10700.  9500.  8600.  7800.  7800.
* Y
     6700.  7200.  8200.  8600.  9500. 10800. 12200. 12200.
    10800.  9500.  8600.  8200.  7200.  6700.
* Z
     6200.  5900.  5800.  5800.  6100.  8000.  8000. 6100.
     5800.  5800.  5900.  6200.
* ZZ
     4900.  4900.  4400.  4400.  4900.  4900.
 ;

END: ;
QUIT .