SUBROUTINE A(A,ALPHA,IA)
      COMPLEX  A(IA,*), ALPHA(*)
      ALPHA(I)=A(I,I).ZERO)
      END