Effects of process-generated hydrogen on RPV walls

CK(1)=1.6E1*EXP(-3000.*X1) CK(2)=2.4E7*EXP(-3000.*X1)*1000. CK(3)=3.0E7*EXP(-3000.*X1)*1000. CK(4)=1.3E7*EXP(-3000.*X1)*1000. CK(5)=1.0E7*EXP(-3000.*X1)*1000. CK(6)=2.0E7*EXP(-3000.*X1)*1000. CK(7)=1.9E7*EXP(-3000.*X1)*1000. CK(8)=2.9E3*EXP(-3000.*X1)*1000. CK(9)=4.5E6*EXP(-3000.*X1)*1000. CK(10)=2.0E7*EXP(-4500.*X1)*1000. CK(11)=2.4E6*EXP(-3000.*X1)*1000. CK(12)=3.4E5*EXP(-3000.*X1)*1000. CK(13)=2.0E7*EXP(-3000.*X1)*1000. CK(14)=1.5E4*EXP(-4500.*X1)*1000. CK(15)=25.*EXP(-4500.*X1) CK(16)=1.9E7*EXP(-3000.*X1)*1000. CK(17)=2.0E7*EXP(-3000.*X1)*1000. CK(18)=2.0E7*EXP(-3000.*X1)*1000. CK(19)=1.0E6*EXP(-4500.*X1)*1000. CK(20)=3.4E4*EXP(-4500.*X1)*1000. CK(21)=3.1E3*EXP(-4500.*X1)*1000. CK(22)=1.2E7*EXP(-3000.*X1)*1000. CK(23)=1.8E-4*EXP(-4500.*X1)*1000. CK(24)=5.7E5*EXP(-4500.*X1) CK(25)=5.0E7*EXP(-3000.*X1)*1000. CK(26)=3.3E6*EXP(-3000.*X1)

CK(27)=1.5E4*EXP(-4500.*X1)*1000. CK(28)=9.9*EXP(-4500.*X1)*1000. CK(29)=2.7E3*EXP(-4500.*X1)*1000. CK(30)=1.4E8*EXP(-3000.*X1)*1000. CK(31)=CK(30)*WKM CK(32)=1.2E7*EXP(-3000.*X1) CK(33)=2.3E7*EXP(-25400./(1.98717*TK))*1000. CK(34)=3.8E-3*EXP(-4500.*X1)*1000.

333 format (i4,20E23.4)

fact = 1.e6 CK(35) = fact*Q(6) CK(36) = fact

CK(37) = fact*Q(7) CK(38) = fact

CK(39) = fact*Q(1) CK(40) = fact

CK(41) = fact*Q(2) CK(42) = fact

CK(43) = fact*Q(3) CK(44) = fact

CK(45) = fact*Q(4)