Effects of process-generated hydrogen on RPV walls

FF(18) = RA(43) - RA(44)

FF(19) = RA(45) - RA(46)

FF(20) = 1.

C ff(4)=ff(1)+FF(5)+FF(7)+FF(10) + FF(16) + FF(18) +2.*FF(19) ff(4) = ff(1)+FF(5)+FF(7)+ FF(10) - FF(12) > + FF(16) + ff(17)+ FF(18) +2.*FF(19)

94 FORMAT ( 20E 12.4) RETURN END

SUBROUTINE PROPERTY

IMPLICIT REAL *8(A-H,O-Z) COMMON /BLK01/ TC,TK,R,F,FF,AV,PH,H2 COMMON /BLK03/ WK,DW,WKM COMMON /BLK23/ CK(50),D0(25),D(25),E(25),V(25) COMMON /Q/ Q(10),TLI,TB

COMMON /RAD/ GAMn,GAMg,GAMa,Factor DIMENSION GN(11),GRA(11),Galpha(11)

AV = 6.023e23

C C* CALCULATE Kwater WK c WK=10.**(-(4466.2/TK-5.941+0.016638*TK))

WK = 10.**(-14.9378 +0.0424044*TC -2.10252e-4*TC**2 > + 6.22026e-7*TC**3 - 8.73826e-10*TC**4)

C* WRITE(*,*) 'Kwater =',WK C* CALCULATE DENSITY OF WATER

DW=1.03166-0.00108*TC+4.20897E-6*TC*TC-1.41203E-8*TC*TC*TC WKM = WK*(DW**2)

C* C*

UNIT=g/cc

C* RATE CONSTANT UNIT: FOR THE 1ST ORDER, IT IS Sec^-1 C*

FOR THE 2ND ORDER, IT IS LITER/Mol/Sec

X1=((1./TK)-(1./298.15))/1.98717

Q(1)=10.**(1573.21/TK+28.6059+0.012078*TK-13.2258*LOG10(TK)) Q(2)=10.**(2756.1/TK-18.966+5.835*LOG10(TK)) Q(3)=10.**(3339.5/TK-8.084+1.497*LOG10(TK)) Q(4)=10.**(12820/TK-134.56+42.105*LOG10(TK)) Q(5)=10.**(14099/TK-118.115+36.237*LOG10(TK)) Q(6) = 1./(10**(-0.7532 - 0.0048*Tc + 6.746e-6*Tc**2)) cc Q(6)=1.99 Q(7)=2.12 C