255 SUBROUTINE dstegr( 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
267 DOUBLE PRECISION ABSTOL, VL, VU
270 INTEGER ISUPPZ( * ), IWORK( * )
271 DOUBLE PRECISION D( * ), E( * ), W( * ), WORK( * )
272 DOUBLE PRECISION Z( ldz, * )
287 CALL dstemr( jobz, range, n, d, e, vl, vu, il, iu,
288 $ m, w, z, ldz, n, isuppz, tryrac, work, lwork,
289 $ iwork, liwork, info )
subroutine dstemr(JOBZ, RANGE, N, D, E, VL, VU, IL, IU, M, W, Z, LDZ, NZC, ISUPPZ, TRYRAC, WORK, LWORK, IWORK, LIWORK, INFO)
DSTEMR
subroutine dstegr(JOBZ, RANGE, N, D, E, VL, VU, IL, IU, ABSTOL, M, W, Z, LDZ, ISUPPZ, WORK, LWORK, IWORK, LIWORK, INFO)
DSTEGR