subroutine shzero(nn,kj,x,y,d,ws)
c
integer nn,kj
real x(*),y(*),d(*),ws(*)
c
c this routine preconditions the cg - iteration
c by multipying with an approximation to the
c inverse of the capacitance matrix.
c
c x is input vector. x is not changed.
c y is output vector. ie y=h0*x .
c d is a diagonal matrix of dimension nn needed to define h0.
c kj and ws are dummy parameters in this version of shzero.
c
c local.
c
integer i
c
do 10 i=1,nn
y(i)=d(i)*x(i)
10 continue
return
end