LINKED_LIST 
   LIBRARY LIBRARY2 GEOM SYS FLUX CPO
   OUT1 OUT2 OUT3 
;

XSM_FILE TRACK1 ; 

SEQ_BINARY TRACK_FIL1 ; 

SEQ_ASCII Multicompo26
           Out1 Out2 Out3 
;

LIBRARY := NCR: CPO ::
EDIT 0 NMIX 61
   COMPO CPO 'F'

* First mixture for the fuel pellet
   MIX  1 FROM 1 ENDMIX
   MIX  2 FROM 1 ENDMIX
   MIX  3 FROM 1 ENDMIX
   MIX  4 FROM 1 ENDMIX
   MIX  5 FROM 1 ENDMIX
   MIX  6 FROM 1 ENDMIX
   MIX  7 FROM 1 ENDMIX

* Second mixture for helium + graphite surrounding the fuel pellet
   MIX  8 FROM 2 ENDMIX
   MIX  9 FROM 2 ENDMIX
   MIX  10 FROM 2 ENDMIX
   MIX  11 FROM 2 ENDMIX
   MIX  12 FROM 2 ENDMIX
   MIX  13 FROM 2 ENDMIX
   MIX  14 FROM 2 ENDMIX

   COMPO CPO 'K'

* Mixture for small coolant
   MIX  15 FROM 1 ENDMIX
   MIX  16 FROM 1 ENDMIX
   MIX  17 FROM 1 ENDMIX
   MIX  18 FROM 1 ENDMIX
   MIX  19 FROM 1 ENDMIX
   MIX  20 FROM 1 ENDMIX
   MIX  21 FROM 1 ENDMIX

   COMPO CPO 'C'

* Mixture for large coolant
   MIX  22 FROM 1 ENDMIX
   MIX  23 FROM 1 ENDMIX
   MIX  24 FROM 1 ENDMIX
   MIX  25 FROM 1 ENDMIX
   MIX  26 FROM 1 ENDMIX
   MIX  27 FROM 1 ENDMIX
   MIX  28 FROM 1 ENDMIX

   COMPO CPO 'G'

* Mixture for the burnable poisons cells (graphite here)
   MIX  29 FROM 1 ENDMIX
   MIX  30 FROM 1 ENDMIX
   MIX  31 FROM 1 ENDMIX
   MIX  32 FROM 1 ENDMIX
   MIX  33 FROM 1 ENDMIX
   MIX  34 FROM 1 ENDMIX
   MIX  35 FROM 1 ENDMIX

   COMPO CPO 'G'

* Mixture for the full graphite cells
   MIX  36 FROM 1 ENDMIX
   MIX  37 FROM 1 ENDMIX
   MIX  38 FROM 1 ENDMIX
   MIX  39 FROM 1 ENDMIX
   MIX  40 FROM 1 ENDMIX
   MIX  41 FROM 1 ENDMIX
   MIX  42 FROM 1 ENDMIX
   MIX  43 FROM 1 ENDMIX
   MIX  44 FROM 1 ENDMIX
   MIX  45 FROM 1 ENDMIX
   MIX  46 FROM 1 ENDMIX
   MIX  47 FROM 1 ENDMIX
   MIX  48 FROM 1 ENDMIX

   COMPO CPO 'J'

* Mixture for the J-cells (graphite)
   MIX  49 FROM 1 
    MICRO ALL
    GRAB  9.486753785E-02 
   ENDMIX
   MIX  50 FROM 1 
    MICRO ALL
    GRAB  9.486753785E-02 
   ENDMIX
   MIX  51 FROM 1 
    MICRO ALL
    GRAB  9.486753785E-02 
   ENDMIX
   MIX  52 FROM 1 
    MICRO ALL
    GRAB  9.486753785E-02 
   ENDMIX
   MIX  53 FROM 1 
    MICRO ALL
    GRAB  9.486753785E-02 
   ENDMIX
   MIX  54 FROM 1 
    MICRO ALL
    GRAB  9.486753785E-02 
   ENDMIX
   MIX  55 FROM 1 
    MICRO ALL
    GRAB  9.486753785E-02 
   ENDMIX
   MIX  56 FROM 1 
    MICRO ALL
    GRAB  9.486753785E-02 
   ENDMIX
   MIX  57 FROM 1 
    MICRO ALL
    GRAB  9.486753785E-02 
   ENDMIX
   MIX  58 FROM 1 
    MICRO ALL
    GRAB  9.486753785E-02 
   ENDMIX
   MIX  59 FROM 1 
    MICRO ALL
    GRAB  9.486753785E-02 
   ENDMIX
   MIX  60 FROM 1 
    MICRO ALL
    GRAB  9.486753785E-02 
   ENDMIX
   MIX  61 FROM 1 
    MICRO ALL
    GRAB  9.486753785E-02 
   ENDMIX
;

*  Fuel Cell FXX          (block of interest) 
 ::: F01 := GEO: HEXCEL 1
     SIDE 1.08542 
     RADIUS 0.0 0.6225
     SECT -1 
     MIX 1 1 1 1 1 1 
         8 8 8 8 8 8  ;
 ::: F02 := GEO: HEXCEL 1
     SIDE 1.08542 
     RADIUS 0.0 0.6225
     SECT -1 
     MIX 2 2 2 2 2 2 
         9 9 9 9 9 9  ;
 ::: F03 := GEO: HEXCEL 1
     SIDE 1.08542 
     RADIUS 0.0 0.6225
     SECT -1 
     MIX 3 3 3 3 3 3 
         10 10 10 10 10 10  ;
 ::: F04 := GEO: HEXCEL 1
     SIDE 1.08542 
     RADIUS 0.0 0.6225
     SECT -1 
     MIX 4 4 4 4 4 4 
         11 11 11 11 11 11  ;
 ::: F05 := GEO: HEXCEL 1
     SIDE 1.08542 
     RADIUS 0.0 0.6225
     SECT -1 
     MIX 5 5 5 5 5 5 
         12 12 12 12 12 12  ;
 ::: F06 := GEO: HEXCEL 1
     SIDE 1.08542 
     RADIUS 0.0 0.6225
     SECT -1 
     MIX 6 6 6 6 6 6 
         13 13 13 13 13 13  ;
 ::: F07 := GEO: HEXCEL 1
     SIDE 1.08542 
     RADIUS 0.0 0.6225
     SECT -1 
     MIX 7 7 7 7 7 7 
         14 14 14 14 14 14  ;
*  Small coolant Hole KXX (block of interest) 
 ::: K01 := GEO: HEXCEL 1
     SIDE 1.08542 
     RADIUS 0.0 0.8
     SECT -1 
     MIX 15 15 15 15 15 15 
         15 15 15 15 15 15  ;
 ::: K02 := GEO: HEXCEL 1
     SIDE 1.08542 
     RADIUS 0.0 0.8
     SECT -1 
     MIX 16 16 16 16 16 16 
         16 16 16 16 16 16  ;
 ::: K03 := GEO: HEXCEL 1
     SIDE 1.08542 
     RADIUS 0.0 0.8
     SECT -1 
     MIX 17 17 17 17 17 17 
         17 17 17 17 17 17  ;
 ::: K04 := GEO: HEXCEL 1
     SIDE 1.08542 
     RADIUS 0.0 0.8
     SECT -1 
     MIX 18 18 18 18 18 18 
         18 18 18 18 18 18  ;
 ::: K05 := GEO: HEXCEL 1
     SIDE 1.08542 
     RADIUS 0.0 0.8
     SECT -1 
     MIX 19 19 19 19 19 19 
         19 19 19 19 19 19  ;
 ::: K06 := GEO: HEXCEL 1
     SIDE 1.08542 
     RADIUS 0.0 0.8
     SECT -1 
     MIX 20 20 20 20 20 20 
         20 20 20 20 20 20  ;
 ::: K07 := GEO: HEXCEL 1
     SIDE 1.08542 
     RADIUS 0.0 0.8
     SECT -1 
     MIX 21 21 21 21 21 21 
         21 21 21 21 21 21  ;
*  Large Coolant Hole CXX (block of interest) 
 ::: C01 := GEO: HEXCEL 1
     SIDE 1.08542 
     RADIUS 0.0 0.8
     SECT -1 
     MIX 22 22 22 22 22 22 
         22 22 22 22 22 22  ;
 ::: C02 := GEO: HEXCEL 1
     SIDE 1.08542 
     RADIUS 0.0 0.8
     SECT -1 
     MIX 23 23 23 23 23 23 
         23 23 23 23 23 23  ;
 ::: C03 := GEO: HEXCEL 1
     SIDE 1.08542 
     RADIUS 0.0 0.8
     SECT -1 
     MIX 24 24 24 24 24 24 
         24 24 24 24 24 24  ;
 ::: C04 := GEO: HEXCEL 1
     SIDE 1.08542 
     RADIUS 0.0 0.8
     SECT -1 
     MIX 25 25 25 25 25 25 
         25 25 25 25 25 25  ;
 ::: C05 := GEO: HEXCEL 1
     SIDE 1.08542 
     RADIUS 0.0 0.8
     SECT -1 
     MIX 26 26 26 26 26 26 
         26 26 26 26 26 26  ;
 ::: C06 := GEO: HEXCEL 1
     SIDE 1.08542 
     RADIUS 0.0 0.8
     SECT -1 
     MIX 27 27 27 27 27 27 
         27 27 27 27 27 27  ;
 ::: C07 := GEO: HEXCEL 1
     SIDE 1.08542 
     RADIUS 0.0 0.8
     SECT -1 
     MIX 28 28 28 28 28 28 
         28 28 28 28 28 28  ;
*  Burnable poison cells (block of interest, GRA here) 
 ::: B01 := GEO: HEXCEL 1
     SIDE 1.08542 
     RADIUS 0.0 0.8
     SECT -1 
     MIX 29 29 29 29 29 29 
         29 29 29 29 29 29  ;
 ::: B02 := GEO: HEXCEL 1
     SIDE 1.08542 
     RADIUS 0.0 0.8
     SECT -1 
     MIX 30 30 30 30 30 30 
         30 30 30 30 30 30  ;
 ::: B03 := GEO: HEXCEL 1
     SIDE 1.08542 
     RADIUS 0.0 0.8
     SECT -1 
     MIX 31 31 31 31 31 31 
         31 31 31 31 31 31  ;
 ::: B04 := GEO: HEXCEL 1
     SIDE 1.08542 
     RADIUS 0.0 0.8
     SECT -1 
     MIX 32 32 32 32 32 32 
         32 32 32 32 32 32  ;
 ::: B05 := GEO: HEXCEL 1
     SIDE 1.08542 
     RADIUS 0.0 0.8
     SECT -1 
     MIX 33 33 33 33 33 33 
         33 33 33 33 33 33  ;
 ::: B06 := GEO: HEXCEL 1
     SIDE 1.08542 
     RADIUS 0.0 0.8
     SECT -1 
     MIX 34 34 34 34 34 34 
         34 34 34 34 34 34  ;
 ::: B07 := GEO: HEXCEL 1
     SIDE 1.08542 
     RADIUS 0.0 0.8
     SECT -1 
     MIX 35 35 35 35 35 35 
         35 35 35 35 35 35  ;
*  Full Density Grapite GXX (block of interest) 
 ::: G01 := GEO: HEXCEL 1
     SIDE 1.08542 
     RADIUS 0.0 0.8
     SECT -1 
     MIX 36 36 36 36 36 36 
         36 36 36 36 36 36  ;
 ::: G02 := GEO: HEXCEL 1
     SIDE 1.08542 
     RADIUS 0.0 0.8
     SECT -1 
     MIX 37 37 37 37 37 37 
         37 37 37 37 37 37  ;
 ::: G03 := GEO: HEXCEL 1
     SIDE 1.08542 
     RADIUS 0.0 0.8
     SECT -1 
     MIX 38 38 38 38 38 38 
         38 38 38 38 38 38  ;
 ::: G04 := GEO: HEXCEL 1
     SIDE 1.08542 
     RADIUS 0.0 0.8
     SECT -1 
     MIX 39 39 39 39 39 39 
         39 39 39 39 39 39  ;
 ::: G05 := GEO: HEXCEL 1
     SIDE 1.08542 
     RADIUS 0.0 0.8
     SECT -1 
     MIX 40 40 40 40 40 40 
         40 40 40 40 40 40  ;
 ::: G06 := GEO: HEXCEL 1
     SIDE 1.08542 
     RADIUS 0.0 0.8
     SECT -1 
     MIX 41 41 41 41 41 41 
         41 41 41 41 41 41  ;
 ::: G07 := GEO: HEXCEL 1
     SIDE 1.08542 
     RADIUS 0.0 0.8
     SECT -1 
     MIX 42 42 42 42 42 42 
         42 42 42 42 42 42  ;
 ::: G08 := GEO: HEXCEL 1
     SIDE 1.08542 
     RADIUS 0.0 0.8
     SECT -1 
     MIX 43 43 43 43 43 43 
         43 43 43 43 43 43  ;
 ::: G09 := GEO: HEXCEL 1
     SIDE 1.08542 
     RADIUS 0.0 0.8
     SECT -1 
     MIX 44 44 44 44 44 44 
         44 44 44 44 44 44  ;
 ::: G10 := GEO: HEXCEL 1
     SIDE 1.08542 
     RADIUS 0.0 0.8
     SECT -1 
     MIX 45 45 45 45 45 45 
         45 45 45 45 45 45  ;
 ::: G11 := GEO: HEXCEL 1
     SIDE 1.08542 
     RADIUS 0.0 0.8
     SECT -1 
     MIX 46 46 46 46 46 46 
         46 46 46 46 46 46  ;
 ::: G12 := GEO: HEXCEL 1
     SIDE 1.08542 
     RADIUS 0.0 0.8
     SECT -1 
     MIX 47 47 47 47 47 47 
         47 47 47 47 47 47  ;
 ::: G13 := GEO: HEXCEL 1
     SIDE 1.08542 
     RADIUS 0.0 0.8
     SECT -1 
     MIX 48 48 48 48 48 48 
         48 48 48 48 48 48  ;
*  Reduced/increased Density Graphite JXX (block of interest) 
 ::: J01 := GEO: HEXCEL 1
     SIDE 1.08542 
     RADIUS 0.0 0.8
     SECT -1 
     MIX 49 49 49 49 49 49 
         49 49 49 49 49 49  ;
 ::: J02 := GEO: HEXCEL 1
     SIDE 1.08542 
     RADIUS 0.0 0.8
     SECT -1 
     MIX 50 50 50 50 50 50 
         50 50 50 50 50 50  ;
 ::: J03 := GEO: HEXCEL 1
     SIDE 1.08542 
     RADIUS 0.0 0.8
     SECT -1 
     MIX 51 51 51 51 51 51 
         51 51 51 51 51 51  ;
 ::: J04 := GEO: HEXCEL 1
     SIDE 1.08542 
     RADIUS 0.0 0.8
     SECT -1 
     MIX 52 52 52 52 52 52 
         52 52 52 52 52 52  ;
 ::: J05 := GEO: HEXCEL 1
     SIDE 1.08542 
     RADIUS 0.0 0.8
     SECT -1 
     MIX 53 53 53 53 53 53 
         53 53 53 53 53 53  ;
 ::: J06 := GEO: HEXCEL 1
     SIDE 1.08542 
     RADIUS 0.0 0.8
     SECT -1 
     MIX 54 54 54 54 54 54 
         54 54 54 54 54 54  ;
 ::: J07 := GEO: HEXCEL 1
     SIDE 1.08542 
     RADIUS 0.0 0.8
     SECT -1 
     MIX 55 55 55 55 55 55 
         55 55 55 55 55 55  ;
 ::: J08 := GEO: HEXCEL 1
     SIDE 1.08542 
     RADIUS 0.0 0.8
     SECT -1 
     MIX 56 56 56 56 56 56 
         56 56 56 56 56 56  ;
 ::: J09 := GEO: HEXCEL 1
     SIDE 1.08542 
     RADIUS 0.0 0.8
     SECT -1 
     MIX 57 57 57 57 57 57 
         57 57 57 57 57 57  ;
 ::: J10 := GEO: HEXCEL 1
     SIDE 1.08542 
     RADIUS 0.0 0.8
     SECT -1 
     MIX 58 58 58 58 58 58 
         58 58 58 58 58 58  ;
 ::: J11 := GEO: HEXCEL 1
     SIDE 1.08542 
     RADIUS 0.0 0.8
     SECT -1 
     MIX 59 59 59 59 59 59 
         59 59 59 59 59 59  ;
 ::: J12 := GEO: HEXCEL 1
     SIDE 1.08542 
     RADIUS 0.0 0.8
     SECT -1 
     MIX 60 60 60 60 60 60 
         60 60 60 60 60 60  ;
 ::: J13 := GEO: HEXCEL 1
     SIDE 1.08542 
     RADIUS 0.0 0.8
     SECT -1 
     MIX 61 61 61 61 61 61 
         61 61 61 61 61 61  ;
;


*---
* Mixtures merge for Instant :
* Fuel cell 01 merged
*---

*************
*295 Groups *
*************

OUT1 := EDI: FLUX LIBRARY TRACK1 GEOM ::
   EDIT 4
   MERGE MIX
*1 2 3 4 5 6 7 8 9 10
* F mixtures : fuel pellet
 1 0 0 0 0 0 0
* F mixtures : helium and graphite surrounding fuel
 1 0 0 0 0 0 0
* K mixtures
 1 0 0 0 0 0 0
* C mixtures
 1 0 0 0 0 0 0
* B mixtures
 1 0 0 0 0 0 0
* G mixtures
 1 0 0 0 0 0 0 0 0 0
 0 0 0
* J mixtures
 1 0 0 0 0 0 0 0 0 0
 0 0 0

  COND NONE
  MICR 16 GRAB HE4 O16 NP27 PU38 PU39 PU40
          PU41 PU42 AM41 AM42 AM43 C12 SI28 SI29 SI30
  SAVE
;

Out1 := OUT1 ;
OUT1 := DELETE: OUT1 ; 



OUT2 := EDI: FLUX LIBRARY TRACK1 GEOM ::
   EDIT 4
   MERGE MIX
*1 2 3 4 5 6 7 8 9 10
* F mixtures
 0 0 0 0 0 0 0
 0 0 0 0 0 0 0
* K mixtures
 0 0 0 0 0 0 0
* C mixtures
 0 0 0 0 0 0 0
* B mixtures
 0 0 0 0 0 0 0
* G mixtures
 0 0 0 0 0 0 0 1 1 1
 0 0 0
* J mixtures
 0 0 0 0 0 0 0 0 0 0
 0 0 0

  COND NONE
  MICR 16 GRAB HE4 O16 NP27 PU38 PU39 PU40
          PU41 PU42 AM41 AM42 AM43 C12 SI28 SI29 SI30
  SAVE
;

Out2 := OUT2 ;
OUT2 := DELETE: OUT2 ; 



OUT3 := EDI: FLUX LIBRARY TRACK1 GEOM ::
   EDIT 4
   MERGE MIX
*1 2 3 4 5 6 7 8 9 10
* F mixtures
 0 0 0 0 0 0 0
 0 0 0
 0 0 0 0

* K mixtures
 0 0 0 0 0 0 0

* C mixtures
 0 0 0 0 0 0 0

* B mixtures
 0 0 0 0 0 0 0
* G mixtures
 0 0 0 0 0 0 0 0 0 0
 1 1 1
* J mixtures
 0 0 0 0 0 0 0 0 0 0
 0 0 0

  COND NONE
  MICR 16 GRAB HE4 O16 NP27 PU38 PU39 PU40
          PU41 PU42 AM41 AM42 AM43 C12 SI28 SI29 SI30
  SAVE
;

Out3 := OUT3 ;
OUT3 := DELETE: OUT3 ; 



