255 SUBROUTINE zstegr( 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 COMPLEX*16 z( ldz, * )
287 CALL
zstemr( jobz, range, n, d, e, vl, vu, il, iu,
288 $ m, w, z, ldz, n, isuppz, tryrac, work, lwork,
289 $ iwork, liwork, info )
subroutine zstemr(JOBZ, RANGE, N, D, E, VL, VU, IL, IU, M, W, Z, LDZ, NZC, ISUPPZ, TRYRAC, WORK, LWORK, IWORK, LIWORK, INFO)
ZSTEMR
subroutine zstegr(JOBZ, RANGE, N, D, E, VL, VU, IL, IU, ABSTOL, M, W, Z, LDZ, ISUPPZ, WORK, LWORK, IWORK, LIWORK, INFO)
ZSTEGR