SUBROUTINE LA_GEEV( A, w, VL=vl, VR=vr, INFO=info )
type(wp), INTENT(INOUT) :: A(:,:)
type(wp), INTENT(OUT) :: w(:)
type(wp), INTENT(OUT), OPTIONAL :: VL(:,:), VR(:,:)
INTEGER, INTENT(OUT), OPTIONAL :: INFO
where
type ::= REAL COMPLEX
wp ::= KIND(1.0) KIND(1.0D0)
w ::= WR, WI W
w(:) ::= WR(:), WI(:) W(:)