SUBROUTINE LA_STEV / LA_STEVD( D, E, Z=z, INFO=info ) REAL(wp), INTENT(INOUT) :: D(:), E(:) REAL(wp), INTENT(OUT), OPTIONAL :: Z(:,:) INTEGER, INTENT(OUT), OPTIONAL :: INFO where wp ::= KIND(1.0) KIND(1.0D0)