264 SUBROUTINE cstegr( 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
279 INTEGER ISUPPZ( * ), IWORK( * )
280 REAL D( * ), E( * ), W( * ), WORK( * )
296 CALL cstemr( jobz, range, n, d, e, vl, vu, il, iu,
297 $ m, w, z, ldz, n, isuppz, tryrac, work, lwork,
298 $ iwork, liwork, info )
subroutine cstegr(JOBZ, RANGE, N, D, E, VL, VU, IL, IU, ABSTOL, M, W, Z, LDZ, ISUPPZ, WORK, LWORK, IWORK, LIWORK, INFO)
CSTEGR
subroutine cstemr(JOBZ, RANGE, N, D, E, VL, VU, IL, IU, M, W, Z, LDZ, NZC, ISUPPZ, TRYRAC, WORK, LWORK, IWORK, LIWORK, INFO)
CSTEMR