=couple
% All unit numbers are give in the ORIGEN Data Resoures chapter
% Unit 21 = END7DEC
% Each block contains one or more arrays followed by 't'
% Unit numbers are written with only a "number"
% Block 1 = Titles, Unit numbers and case controls
% 0$$ and 1$$ below belongs to Block1
% a3=JD, Unit number of origen reaction resource (80),
% a4=ND, Input ORIGEN binary file (21)
% a6=MD, Unit number output ORIGEN library file (33)
%
********************************************************************************
* cross sections from 238-group JEFF-3.1/A (unit 80) *
* collapsed using pwr fuel spectrum *
0$$ a3 74 a4 21 a6 33 e
1$$ a14 1 a18 252 e t
9**
3.1525E-05 8.3597E-05 1.4740E-04 1.7630E-04 5.4766E-04 9.7021E-03
2.7468E-02 9.5828E-02 2.6843E-01 1.4730E-01 7.3400E-01 5.4884E-01
1.6204E-01 6.9092E-01 6.1186E-01 2.0753E-01 9.1868E-02 7.4367E-02
1.4195E-01 1.2150E-01 2.4007E-01 1.9634E-01 2.1505E-01 5.6029E-02
7.5633E-02 4.5249E-02 1.5134E-01 2.9142E-01 2.9291E-01 3.7304E-02
2.9624E-01 1.1673E-01 1.0070E-01 2.2345E-01 1.2447E-01 1.0557E-01
6.5585E-02 7.8661E-02 3.5196E-01 3.6737E-01 4.7374E-01 3.8046E-01
1.8310E-01 2.8898E-01 1.6246E-01 3.3643E-02 8.2745E-02 2.4071E-02
1.7154E-01 1.1961E-01 3.2347E-02 8.4367E-02 3.0866E-01 1.3131E-01
2.6350E-01 1.7961E-01 2.0346E-01 1.0664E-01 1.8185E-01 2.6273E-01
2.4915E-02 1.3303E-01 8.6700E-02 7.2824E-02 2.2994E-02 1.1839E-01
8.7029E-02 1.7970E-02 1.5502E-01 1.0885E-01 1.8767E-01 1.0376E-02
1.1134E-01 3.2956E-01 3.3995E-02 9.5719E-02 7.1399E-02 2.5031E-03
4.2052E-02 1.5228E-02 2.2995E-01 1.3273E-02 1.3515E-02 3.3859E-02
3.4211E-02 5.5852E-02 4.9036E-02 9.4138E-03 2.7298E-02 2.8193E-02
3.3527E-02 1.0281E-02 3.3214E-02 1.7369E-02 5.1380E-02 1.3614E-02
1.4168E-02 1.4606E-02 9.6655E-03 1.4030E-02 2.0326E-02 1.2590E-02
1.8554E-02 1.6982E-02 1.7778E-02 6.1553E-03 1.2982E-02 7.4895E-03
8.8957E-03 1.1435E-02 1.1477E-02 6.9187E-03 2.2432E-02 7.8742E-03
2.0149E-02 4.3478E-02 4.7941E-02 5.1822E-02 2.3877E-02 8.9530E-03
2.1381E-02 1.2224E-02 3.8842E-02 2.8281E-02 2.7097E-02 1.9252E-02
2.0951E-02 3.0660E-02 3.7085E-02 1.5260E-02 6.4829E-02 4.4455E-02
5.0560E-02 5.2112E-02 6.9493E-03 4.4716E-03 4.7571E-04 7.9955E-03
1.3543E-02 3.3722E-02 2.7006E-02 2.0779E-02 7.1341E-02 2.9921E-02
2.6940E-02 4.4967E-02 1.3751E-02 7.0729E-03 4.5784E-03 1.5270E-02
1.5819E-02 1.5780E-02 1.6305E-02 1.7488E-02 1.6186E-02 1.4810E-02
1.7409E-02 1.8246E-02 2.5423E-02 1.3212E-02 1.8263E-02 2.1549E-02
2.2529E-02 2.3717E-02 2.4882E-02 1.4290E-02 1.4672E-02 1.4985E-02
1.5159E-02 1.5379E-02 7.7446E-03 7.7478E-03 7.6773E-03 7.4247E-03
2.8015E-03 2.6426E-03 2.4316E-03 2.1719E-03 1.8837E-03 1.6016E-03
1.3625E-03 1.1889E-03 1.0943E-03 1.0776E-03 1.1404E-03 1.2872E-03
1.5172E-03 1.8164E-03 2.1559E-03 6.7858E-03 8.2451E-03 9.1156E-03
9.7165E-03 2.0923E-02 2.2692E-02 2.4469E-02 2.6392E-02 2.8522E-02
1.5162E-02 1.5843E-02 3.3944E-02 3.7243E-02 4.1119E-02 4.5901E-02
2.4865E-02 2.6304E-02 2.7596E-02 3.0678E-02 3.4956E-02 4.9090E-02
6.8504E-02 9.4054E-02 1.2663E-01 1.6712E-01 2.1550E-01 2.7457E-01
1.3004E-01 1.3925E-01 1.4689E-01 1.5226E-01 1.5315E-01 1.4871E-01
1.3634E-01 5.7846E-02 1.3741E-01 1.2579E-02 8.9174E-03 2.5301E-03
1.3004E-01 1.3925E-01 1.4689E-01 1.5226E-01 1.5315E-01 1.4871E-01
1.3634E-01 5.7846E-02 1.3741E-01 1.2579E-02 8.9174E-03 2.5301E-03
1.8929E-03 7.1402E-04 5.5535E-04 4.0332E-04 1.7220E-04 8.6956E-05
7.8990E-05 5.0103E-05 3.7590E-05 1.4610E-06 3.7590E-05 1.4610E-06 e t
done
end
=shell
cp ft33f001 "${OUTDIR}/customspectrum.f33"
end