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