255 SUBROUTINE sstegr( JOBZ, RANGE, N, D, E, VL, VU, IL, IU,
256 $ abstol, m, w, z, ldz, isuppz, work, lwork, iwork,
265 CHARACTER JOBZ, RANGE
266 INTEGER IL, INFO, IU, LDZ, LIWORK, LWORK, M, N
270 INTEGER ISUPPZ( * ), IWORK( * )
271 REAL D( * ), E( * ), W( * ), WORK( * )
287 CALL
sstemr( jobz, range, n, d, e, vl, vu, il, iu,
288 $ m, w, z, ldz, n, isuppz, tryrac, work, lwork,
289 $ iwork, liwork, info )
subroutine sstegr(JOBZ, RANGE, N, D, E, VL, VU, IL, IU, ABSTOL, M, W, Z, LDZ, ISUPPZ, WORK, LWORK, IWORK, LIWORK, INFO)
SSTEGR
subroutine sstemr(JOBZ, RANGE, N, D, E, VL, VU, IL, IU, M, W, Z, LDZ, NZC, ISUPPZ, TRYRAC, WORK, LWORK, IWORK, LIWORK, INFO)
SSTEMR