diff options
Diffstat (limited to 'Dragon/data/tjeff31gx_proc/TCWU05Lib.c2m')
| -rw-r--r-- | Dragon/data/tjeff31gx_proc/TCWU05Lib.c2m | 62 |
1 files changed, 62 insertions, 0 deletions
diff --git a/Dragon/data/tjeff31gx_proc/TCWU05Lib.c2m b/Dragon/data/tjeff31gx_proc/TCWU05Lib.c2m new file mode 100644 index 0000000..f9d9ee5 --- /dev/null +++ b/Dragon/data/tjeff31gx_proc/TCWU05Lib.c2m @@ -0,0 +1,62 @@ +*---- +* Procedure TCWU05Lib +* Create Library for test CASE TCWU05 +* Calling : +* LIBRARY := TCWU05Lib :: iedit ; +* with : +* LIBRARY = Linked list containing the result of LIB: for +* TCWU05 +* 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 and microscopic cross sections from file: +* JEFF3.1 XMAS LIBRARY FILE WLUP172 FROM WLUP +*---- +LIBRARY := LIB: :: + EDIT <<iedit>> + NMIX 17 CTRA WIMS + DEPL LIB: WIMSD4 FIL: WLUP172 + MIXS LIB: WIMSD4 FIL: WLUP172 + MIX 1 560.66 0.81212 O16 = '6016' 7.99449E-1 + D2D2O = '3002' 1.99768E-1 H1H2O = '3001' 7.83774E-4 + MIX 2 560.66 6.57 Nb93 = '93' 2.50000 + BNat = '1011' 2.10000E-4 + Zr91 = '91' 9.75000E+1 + MIX 3 345.66 0.0014 He4 = '4' 1.00000E+2 + MIX 4 345.66 6.44 Fe56 = '2056' 1.60000E-1 + Ni58 = '58' 6.00000E-2 Cr52 = '52' 1.10000E-1 + BNat = '1011' 3.10000E-4 + Zr91 = '91' 9.97100E+1 + MIX 5 345.66 1.082885 O16 = '6016' 7.98895E-1 + D2D2O = '3002' 2.01016E-1 H1H2O = '3001' 8.96000E-5 + MIX 6 941.29 10.4375010 O16 = '6016' 1.18473E+1 + Xe135 = '4135' 0.0 + U235 = '2235' 6.27118E-1 1 + U238 = '8238' 8.75256E+1 1 + U236 = '236' 0.0 1 + Pu239 = '6239' 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 = '2056' 1.60000E-1 + Ni58 = '58' 6.00000E-2 Cr52 = '52' 1.10000E-1 + BNat = '1011' 3.10000E-4 + Zr91 = '91' 9.97100E+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" . |