SUBROUTINE LA_SYEV / LA_HEEV / LA_SYEVD / LA_HEEVD( A,W, &
JOBZ=jobz, UPLO=uplo, INFO=info )
type(wp), INTENT(INOUT) :: A(:,:)
REAL(wp), INTENT(OUT) :: W(:)
CHARACTER(LEN=1), INTENT(IN), OPTIONAL :: JOBZ, UPLO
INTEGER, INTENT(OUT), OPTIONAL :: INFO
where
type ::= REAL COMPLEX
wp ::= KIND(1.0) KIND(1.0D0)