Effects of process-generated hydrogen on RPV walls

CK(46) = fact

c c c

DO I=1,46

WRITE (*,*) 'CK(I)=',CK(I)

ENDDO

C*

go to 323 GN(1)=0.93 GN(2)=0.50 GN(3)=1.09 GN(4)=0.93 GN(5)=0.00 GN(6)=0.00 GN(7)=0.00 GN(8)=0.88 GN(9)=0.99 GN(10)=0.0 GN(11)=0.04 GRA(1)=2.70 GRA(2)=0.61 GRA(3)=2.86 GRA(4)=2.70 GRA(5)=0.00 GRA(6)=0.00 GRA(7)=0.00 GRA(8)=0.43 GRA(9)=0.61 GRA(10)=0.0 GRA(11)=0.03 GN(1)=0.61 GN(2)=0.34 GN(3)= 2.02 GN(4)=0.0 GN(5)=0.00 GN(6)=0.00 GN(7)=0.00 GN(8)=1.26 GN(9)=0.65 GN(10)=0.0 GN(11)=0.05 GRA(1)= 2.66 GRA(2)= 0.55 GRA(3)= 2.67 GRA(4)= 2.76 GRA(5)=0.01 GRA(6)=0.00 GRA(7)=0.00 GRA(8)=0.45 GRA(9)=0.72 GRA(10)=0.0 GRA(11)=0.0 continue

323