*----
*  Procedure TCND05Lib
*  Create Library for test CASE TCND05
*  Calling :
*      LIBRARY := TCND05Lib :: iedit ;
*  with :
*      LIBRARY = Linked list containing the result of LIB: for
*                TCND05
*      iprint  = print level for LIB: module
*----
*  Define PARAMETERS,STRUCTURES and MODULES used
*----
PARAMETER  LIBRARY  ::  ::: LINKED_LIST LIBRARY ; ;
MODULE     LIB: END: ;
*----
*  Define and read LIB: EDIT option
INTEGER iedit   ;
:: >>iedit<<    ;
*----
*  Depletion data from file in NDAS format
*  Microscopic cross sections from file in NDAS format
*----
LIBRARY := LIB: ::
  EDIT <<iedit>>
  NMIX 17 CTRA WIMS
  DEPL LIB: NDAS FIL: E65LIB6.idx:E65LIB6.sdb
  MIXS LIB: NDAS FIL: E65LIB6.idx:E65LIB6.sdb
  MIX  1  560.66   0.81212           O16      = O16      7.99449E-1
    D2D2O    = DD2O     1.99768E-1   H1H2O    = H1H2O    7.83774E-4
  MIX  2  560.66   6.57              Nb93     = NB93     2.50000
    B10      = B10      4.15800E-5   B11      = B11      1.68420E-4
    Zr90     = ZR90     5.01150E+1   Zr91     = ZR91     1.09200E+1
    Zr92     = ZR92     1.66725E+1   Zr94     = ZR94     1.70625E+1
  MIX  3  345.66   0.0014            He4      = HE4      1.00000E+2
  MIX  4  345.66   6.44              Fe56     = FE56     1.60000E-1
    Ni58     = NI58     6.00000E-2   Cr52     = CR52     1.10000E-1
    B10      = B10      6.13800E-5   B11      = B11      2.48620E-4
    Zr90     = ZR90     5.12509E+1   Zr91     = ZR91     1.11675E+1
    Zr92     = ZR92     1.70504E+1   Zr94     = ZR94     1.74493E+1
  MIX  5  345.66   1.082885          O16      = O16      7.98895E-1
    D2D2O    = DD2O     2.01016E-1   H1H2O    = H1H2O    8.96000E-5
  MIX  6  941.29  10.4375010         O16      = O16      1.18473E+1
    Xe135    = XE135    0.0
    U235     = U235     6.27118E-1 1 
    U238     = U238     8.75256E+1 1 
    U236     = U236     0.0        1
    Pu239    = PU239    0.0        1 
  MIX  7  COMB 6 1.0
  MIX  8  COMB 6 1.0
  MIX  9  COMB 6 1.0
  MIX 10   560.66   6.44             Fe56     = FE56     1.60000E-1
    Ni58     = NI58     6.00000E-2   Cr52     = CR52     1.10000E-1
    B10      = B10      6.13800E-5   B11      = B11      2.48620E-4
    Zr90     = ZR90     5.12509E+1   Zr91     = ZR91     1.11675E+1
    Zr92     = ZR92     1.70504E+1   Zr94     = ZR94     1.74493E+1
  MIX 11  COMB 10 1.0
  MIX 12  COMB 10 1.0
  MIX 13  COMB 10 1.0
  MIX 14 COMB  1 1.0
  MIX 15 COMB  1 1.0
  MIX 16 COMB  1 1.0
  MIX 17 COMB  1 1.0
  ;
END: ;  
QUIT "LIST" .