LA_SYEVR / LA_HEEVR

SUBROUTINE LA_SYEVR / LA_HEEVR( A, W, JOBZ=jobz, & 


UPLO=uplo, VL=vl, VU=vu, IL=il, IU=iu, M=m, & 


ISUPPZ= isuppz, ABSTOL=abstol, INFO=info ) 

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


REAL(wp), INTENT(OUT) :: W(:) 


CHARACTER(LEN=1), INTENT(IN), OPTIONAL :: JOBZ, UPLO 


REAL(wp), INTENT(IN), OPTIONAL :: VL, VU 


INTEGER, INTENT(IN), OPTIONAL :: IL, IU 


INTEGER, INTENT(OUT), OPTIONAL :: M 


INTEGER, INTENT(OUT), OPTIONAL :: ISUPPZ(:) 


REAL(wp), INTENT(IN), OPTIONAL :: ABSTOL 


INTEGER, INTENT(OUT), OPTIONAL :: INFO 


where 

type ::= REAL $\mid$ COMPLEX 

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