264 SUBROUTINE dstegr( JOBZ, RANGE, N, D, E, VL, VU, IL, IU,
265 $ abstol, m, w, z, ldz, isuppz, work, lwork, iwork,
274 CHARACTER JOBZ, RANGE
275 INTEGER IL, INFO, IU, LDZ, LIWORK, LWORK, M, N
276 DOUBLE PRECISION ABSTOL, VL, VU
279 INTEGER ISUPPZ( * ), IWORK( * )
280 DOUBLE PRECISION D( * ), E( * ), W( * ), WORK( * )
281 DOUBLE PRECISION Z( ldz, * )
296 CALL dstemr( jobz, range, n, d, e, vl, vu, il, iu,
297 $ m, w, z, ldz, n, isuppz, tryrac, work, lwork,
298 $ iwork, liwork, info )
subroutine dstegr(JOBZ, RANGE, N, D, E, VL, VU, IL, IU, ABSTOL, M, W, Z, LDZ, ISUPPZ, WORK, LWORK, IWORK, LIWORK, INFO)
DSTEGR
subroutine dstemr(JOBZ, RANGE, N, D, E, VL, VU, IL, IU, M, W, Z, LDZ, NZC, ISUPPZ, TRYRAC, WORK, LWORK, IWORK, LIWORK, INFO)
DSTEMR