LA_SPEV / LA_HPEV / LA_SPEVD / LA_HPEVD

SUBROUTINE LA_SPEV / LA_HPEV / LA_SPEVD /LA_HPEVD( AP, W, & 


UPLO=uplo, Z=z, INFO=info ) 

type(wp), INTENT(INOUT) :: AP(:) 


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 $\mid$ COMPLEX 

wp   ::= KIND(1.0) $\mid$ KIND(1.0D0)