970626-2.f
[
plain text
]
SUBROUTINE
A(A,ALPHA,IA)
COMPLEX
A(IA,*), ALPHA(*) ALPHA(I)=A(I,I).ZERO)
END