Effects of process-generated hydrogen on RPV walls

IF (x .gt. tfig) step = step*1.5 IF (x .gt. tfig) tfig = tfig +step

6 CONTINUE WRITE (4,94) X,(Y(LP(k1)),K1=1,6) WRITE (3,94) X,(Y(k1),K1=1,19) 111 RETURN END

SUBROUTINE XPSYS(Y,FF) IMPLICIT REAL *8(A-H,O-Z)

COMMON /BLK01/ TC,TK,R,F,FFF,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 DIMENSION RA(100)

DIMENSION Y(20),FF(20)

RA(1)=CK(1)*Y(1) RA(2)=CK(2)*Y(1)*Y(4) RA(3)=CK(3)*Y(1)*Y(3) RA(4)=CK(4)*Y(1)*Y(9) RA(5)=CK(5)*Y(2)*Y(2) RA(6)=CK(6)*Y(1)*Y(11) RA(7)=CK(7)*Y(1)*Y(6) RA(8)=CK(8)*Y(1)*Y(1) RA(9)=CK(9)*Y(3)*Y(3) RA(10)=CK(10)*Y(2)*Y(5) RA(11)=CK(11)*Y(1)*Y(2) RA(12)=CK(12)*Y(1)*Y(10) RA(13)=CK(13)*Y(2)*Y(3) RA(14)=CK(14)*Y(3)*Y(8) RA(15)=CK(15)*Y(2) RA(16)=CK(16)*Y(2)*Y(6) RA(17)=CK(17)*Y(2)*Y(11) RA(18)=CK(18)*Y(2)*Y(7) RA(19)=CK(19)*Y(1)*Y(7) RA(20)=CK(20)*Y(2)*Y(9) RA(21)=CK(21)*Y(3)*Y(9) RA(22)=CK(22)*Y(3)*Y(11) RA(23)=CK(23)*Y(5)*Y(9) RA(24)=CK(24)*Y(10) RA(25)=CK(25)*Y(4)*Y(7) RA(26)=CK(26)*Y(11) RA(27)=CK(27)*Y(7)*Y(11) RA(28)=CK(28)*Y(7)*Y(7) RA(29)=CK(29)*Y(11)*Y(11) RA(30)=CK(30)*Y(4)*Y(5) RA(31)=CK(31) RA(32)=CK(32)*Y(3)*Y(7)

RA(33)=CK(33)*Y(9) RA(34)=CK(34)*Y(9)

RA(35) = CK(35)*y(12)*y(5) RA(36) = CK(36)*y(13)