LA_STEVR

SUBROUTINE LA_STEVR ( D, E, W, Z= z, VL= vl, VU= vu, & 


IL= il, IU= iu, M= m, ISUPPZ= isuppz, & 


ABSTOL= abstol, INFO= info ) 


REAL(wp), INTENT(INOUT) :: D(:), E(:) 


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


REAL(wp), INTENT(OUT), OPTIONAL :: Z(:,:) 


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


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


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


INTEGER, INTENT(OUT), OPTIONAL :: M 


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


INTEGER, INTENT(OUT), OPTIONAL :: INFO 


where 

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