Effects of process-generated hydrogen on RPV walls

First page Table of contents Previous page 133 Next page Last page

if (h .eq. 0.)h=EPS

x(j)=temp+h h=x(j)-temp

call funcv(n,x,f)

x(j)=temp

do 11 i=1,n df(i,j)=(f(i)-fvec(i))/h

11 12

continue

continue

return END

Made with FlippingBook Publishing Software