SUBROUTINE LA_SBEV / LA_HBEV / LA_SBEVD /
LA_HBEVD( AB, W, UPLO=uplo, Z=z, INFO=info )
type(wp), INTENT(INOUT) :: AB(:,:)
REAL(wp), INTENT(OUT) :: W(:)
CHARACTER(LEN=1), INTENT(IN), OPTIONAL :: UPLO
type(wp), INTENT(OUT), OPTIONAL :: Z(:,:)
INTEGER, INTENT(OUT), OPTIONAL :: INFO
where
type ::= REAL COMPLEX
wp ::= KIND(1.0) KIND(1.0D0)