82 {.0317223, .1717071, .3361991, .3039695, .1269459, .0266793, .0026322, .0001449},
83 {.0237898, .1555525, .3216515, .3150433, .1444732, .0356013, .0034339, .0004546},
84 {.0183989, .1384891, .3062123, .3217566, .1628673, .0455972, .0055694, .0011093},
85 {.0141460, .1194839, .2883075, .3266568, .1836014, .0569113, .0089426, .0019504},
86 {.0115208, .1032624, .2716849, .3283426, .2021206, .0674456, .0128924, .0027307},
87 {.0078498, .0802010, .2456595, .3308175, .2291646, .0836912, .0187016, .0039148},
88 {.0046272, .0563321, .2132296, .3290407, .2599806, .1045974, .0265604, .0056322},
89 {.0024659, .0360957, .1788634, .3210507, .2892537, .1282576, .0360887, .0079244},
90 {.0012702, .0216090, .1472227, .3083032, .3123950, .1522540, .0462449, .0107009},
91 {.0007288, .0134879, .1231200, .2949390, .3258251, .1731879, .0551737, .0135376},
92 {.0004373, .0080115, .1002329, .2779283, .3342611, .1966100, .0650090, .0175099}
113 if(nubar >= U235nubar[0] && nubar <= U235nubar[10]) {
118 while (nubar > U235nubar[engind]){ engind++;}
120 fraction = (nubar-U235nubar[engind-1])/(U235nubar[engind]-U235nubar[engind-1]);
125 cum = U235nu[engind][0];
126 while (r > cum && nu < 7){
129 cum += U235nu[engind][nu];