/dports/math/xlife++/xlifepp-sources-v2.0.1-2018-05-09/ext/LAPACKBLAS/SRC/ |
H A D | claqr3.f | 329 CALL CGEHRD( JW, 1, JW-1, T, LDT, WORK, WORK, -1, INFO ) 334 CALL CUNMHR( 'R', 'N', JW, JW, 1, JW-1, T, LDT, WORK, V, LDV, 340 CALL CLAQR4( .true., .true., JW, 1, JW, T, LDT, SH, 1, JW, V, 409 CALL CLACPY( 'U', JW, JW, H( KWTOP, KWTOP ), LDH, T, LDT ) 412 CALL CLASET( 'A', JW, JW, ZERO, ONE, V, LDV ) 413 NMIN = ILAENV( 12, 'CLAQR3', 'SV', JW, 1, JW, LWORK ) 424 NS = JW 501 CALL CGEHRD( JW, 1, NS, T, LDT, WORK, WORK( JW+1 ), 518 $ WORK( JW+1 ), LWORK-JW, INFO ) 539 CALL CGEMM( 'C', 'N', JW, KLN, JW, ONE, V, LDV, [all …]
|
H A D | zlaqr3.f | 330 CALL ZGEHRD( JW, 1, JW-1, T, LDT, WORK, WORK, -1, INFO ) 335 CALL ZUNMHR( 'R', 'N', JW, JW, 1, JW-1, T, LDT, WORK, V, LDV, 341 CALL ZLAQR4( .true., .true., JW, 1, JW, T, LDT, SH, 1, JW, V, 410 CALL ZLACPY( 'U', JW, JW, H( KWTOP, KWTOP ), LDH, T, LDT ) 413 CALL ZLASET( 'A', JW, JW, ZERO, ONE, V, LDV ) 414 NMIN = ILAENV( 12, 'ZLAQR3', 'SV', JW, 1, JW, LWORK ) 425 NS = JW 502 CALL ZGEHRD( JW, 1, NS, T, LDT, WORK, WORK( JW+1 ), 519 $ WORK( JW+1 ), LWORK-JW, INFO ) 540 CALL ZGEMM( 'C', 'N', JW, KLN, JW, ONE, V, LDV, [all …]
|
/dports/math/xlapack/lapack-3.10.0/SRC/ |
H A D | zlaqr3.f | 327 CALL ZGEHRD( JW, 1, JW-1, T, LDT, WORK, WORK, -1, INFO ) 332 CALL ZUNMHR( 'R', 'N', JW, JW, 1, JW-1, T, LDT, WORK, V, LDV, 338 CALL ZLAQR4( .true., .true., JW, 1, JW, T, LDT, SH, 1, JW, V, 407 CALL ZLACPY( 'U', JW, JW, H( KWTOP, KWTOP ), LDH, T, LDT ) 410 CALL ZLASET( 'A', JW, JW, ZERO, ONE, V, LDV ) 411 NMIN = ILAENV( 12, 'ZLAQR3', 'SV', JW, 1, JW, LWORK ) 422 NS = JW 499 CALL ZGEHRD( JW, 1, NS, T, LDT, WORK, WORK( JW+1 ), 516 $ WORK( JW+1 ), LWORK-JW, INFO ) 537 CALL ZGEMM( 'C', 'N', JW, KLN, JW, ONE, V, LDV, [all …]
|
H A D | claqr3.f | 326 CALL CGEHRD( JW, 1, JW-1, T, LDT, WORK, WORK, -1, INFO ) 331 CALL CUNMHR( 'R', 'N', JW, JW, 1, JW-1, T, LDT, WORK, V, LDV, 337 CALL CLAQR4( .true., .true., JW, 1, JW, T, LDT, SH, 1, JW, V, 406 CALL CLACPY( 'U', JW, JW, H( KWTOP, KWTOP ), LDH, T, LDT ) 409 CALL CLASET( 'A', JW, JW, ZERO, ONE, V, LDV ) 410 NMIN = ILAENV( 12, 'CLAQR3', 'SV', JW, 1, JW, LWORK ) 421 NS = JW 498 CALL CGEHRD( JW, 1, NS, T, LDT, WORK, WORK( JW+1 ), 515 $ WORK( JW+1 ), LWORK-JW, INFO ) 536 CALL CGEMM( 'C', 'N', JW, KLN, JW, ONE, V, LDV, [all …]
|
H A D | claqz2.f | 277 ILST = JW 321 CALL CLACPY( 'ALL', JW, JW, A( KWTOP, KWTOP ), LDA, WORK, JW ) 322 CALL CLACPY( 'ALL', JW, JW, B( KWTOP, KWTOP ), LDB, WORK( JW**2+ 326 CALL CLASET( 'FULL', JW, JW, CZERO, CONE, QC, LDQC ) 327 CALL CLASET( 'FULL', JW, JW, CZERO, CONE, ZC, LDZC ) 330 $ LDZC, WORK( 2*JW**2+1 ), LWORK-2*JW**2, RWORK, 337 CALL CLACPY( 'ALL', JW, JW, WORK, JW, A( KWTOP, KWTOP ), LDA ) 338 CALL CLACPY( 'ALL', JW, JW, WORK( JW**2+1 ), JW, B( KWTOP, 376 NS = JW-ND 432 CALL CLACPY( 'ALL', JW, ISTOPM-IHI, WORK, JW, A( KWTOP, [all …]
|
H A D | zlaqz2.f | 278 ILST = JW 322 CALL ZLACPY( 'ALL', JW, JW, A( KWTOP, KWTOP ), LDA, WORK, JW ) 323 CALL ZLACPY( 'ALL', JW, JW, B( KWTOP, KWTOP ), LDB, WORK( JW**2+ 327 CALL ZLASET( 'FULL', JW, JW, CZERO, CONE, QC, LDQC ) 328 CALL ZLASET( 'FULL', JW, JW, CZERO, CONE, ZC, LDZC ) 331 $ LDZC, WORK( 2*JW**2+1 ), LWORK-2*JW**2, RWORK, 338 CALL ZLACPY( 'ALL', JW, JW, WORK, JW, A( KWTOP, KWTOP ), LDA ) 339 CALL ZLACPY( 'ALL', JW, JW, WORK( JW**2+1 ), JW, B( KWTOP, 377 NS = JW-ND 433 CALL ZLACPY( 'ALL', JW, ISTOPM-IHI, WORK, JW, A( KWTOP, [all …]
|
/dports/math/blas/lapack-3.10.0/SRC/ |
H A D | zlaqr3.f | 327 CALL ZGEHRD( JW, 1, JW-1, T, LDT, WORK, WORK, -1, INFO ) 332 CALL ZUNMHR( 'R', 'N', JW, JW, 1, JW-1, T, LDT, WORK, V, LDV, 338 CALL ZLAQR4( .true., .true., JW, 1, JW, T, LDT, SH, 1, JW, V, 407 CALL ZLACPY( 'U', JW, JW, H( KWTOP, KWTOP ), LDH, T, LDT ) 410 CALL ZLASET( 'A', JW, JW, ZERO, ONE, V, LDV ) 411 NMIN = ILAENV( 12, 'ZLAQR3', 'SV', JW, 1, JW, LWORK ) 422 NS = JW 499 CALL ZGEHRD( JW, 1, NS, T, LDT, WORK, WORK( JW+1 ), 516 $ WORK( JW+1 ), LWORK-JW, INFO ) 537 CALL ZGEMM( 'C', 'N', JW, KLN, JW, ONE, V, LDV, [all …]
|
H A D | claqr3.f | 326 CALL CGEHRD( JW, 1, JW-1, T, LDT, WORK, WORK, -1, INFO ) 331 CALL CUNMHR( 'R', 'N', JW, JW, 1, JW-1, T, LDT, WORK, V, LDV, 337 CALL CLAQR4( .true., .true., JW, 1, JW, T, LDT, SH, 1, JW, V, 406 CALL CLACPY( 'U', JW, JW, H( KWTOP, KWTOP ), LDH, T, LDT ) 409 CALL CLASET( 'A', JW, JW, ZERO, ONE, V, LDV ) 410 NMIN = ILAENV( 12, 'CLAQR3', 'SV', JW, 1, JW, LWORK ) 421 NS = JW 498 CALL CGEHRD( JW, 1, NS, T, LDT, WORK, WORK( JW+1 ), 515 $ WORK( JW+1 ), LWORK-JW, INFO ) 536 CALL CGEMM( 'C', 'N', JW, KLN, JW, ONE, V, LDV, [all …]
|
H A D | zlaqz2.f | 278 ILST = JW 322 CALL ZLACPY( 'ALL', JW, JW, A( KWTOP, KWTOP ), LDA, WORK, JW ) 323 CALL ZLACPY( 'ALL', JW, JW, B( KWTOP, KWTOP ), LDB, WORK( JW**2+ 327 CALL ZLASET( 'FULL', JW, JW, CZERO, CONE, QC, LDQC ) 328 CALL ZLASET( 'FULL', JW, JW, CZERO, CONE, ZC, LDZC ) 331 $ LDZC, WORK( 2*JW**2+1 ), LWORK-2*JW**2, RWORK, 338 CALL ZLACPY( 'ALL', JW, JW, WORK, JW, A( KWTOP, KWTOP ), LDA ) 339 CALL ZLACPY( 'ALL', JW, JW, WORK( JW**2+1 ), JW, B( KWTOP, 377 NS = JW-ND 433 CALL ZLACPY( 'ALL', JW, ISTOPM-IHI, WORK, JW, A( KWTOP, [all …]
|
H A D | claqz2.f | 277 ILST = JW 321 CALL CLACPY( 'ALL', JW, JW, A( KWTOP, KWTOP ), LDA, WORK, JW ) 322 CALL CLACPY( 'ALL', JW, JW, B( KWTOP, KWTOP ), LDB, WORK( JW**2+ 326 CALL CLASET( 'FULL', JW, JW, CZERO, CONE, QC, LDQC ) 327 CALL CLASET( 'FULL', JW, JW, CZERO, CONE, ZC, LDZC ) 330 $ LDZC, WORK( 2*JW**2+1 ), LWORK-2*JW**2, RWORK, 337 CALL CLACPY( 'ALL', JW, JW, WORK, JW, A( KWTOP, KWTOP ), LDA ) 338 CALL CLACPY( 'ALL', JW, JW, WORK( JW**2+1 ), JW, B( KWTOP, 376 NS = JW-ND 432 CALL CLACPY( 'ALL', JW, ISTOPM-IHI, WORK, JW, A( KWTOP, [all …]
|
/dports/math/lapacke/lapack-3.10.0/SRC/ |
H A D | claqr3.f | 326 CALL CGEHRD( JW, 1, JW-1, T, LDT, WORK, WORK, -1, INFO ) 331 CALL CUNMHR( 'R', 'N', JW, JW, 1, JW-1, T, LDT, WORK, V, LDV, 337 CALL CLAQR4( .true., .true., JW, 1, JW, T, LDT, SH, 1, JW, V, 406 CALL CLACPY( 'U', JW, JW, H( KWTOP, KWTOP ), LDH, T, LDT ) 409 CALL CLASET( 'A', JW, JW, ZERO, ONE, V, LDV ) 410 NMIN = ILAENV( 12, 'CLAQR3', 'SV', JW, 1, JW, LWORK ) 421 NS = JW 498 CALL CGEHRD( JW, 1, NS, T, LDT, WORK, WORK( JW+1 ), 515 $ WORK( JW+1 ), LWORK-JW, INFO ) 536 CALL CGEMM( 'C', 'N', JW, KLN, JW, ONE, V, LDV, [all …]
|
H A D | zlaqr3.f | 327 CALL ZGEHRD( JW, 1, JW-1, T, LDT, WORK, WORK, -1, INFO ) 332 CALL ZUNMHR( 'R', 'N', JW, JW, 1, JW-1, T, LDT, WORK, V, LDV, 338 CALL ZLAQR4( .true., .true., JW, 1, JW, T, LDT, SH, 1, JW, V, 407 CALL ZLACPY( 'U', JW, JW, H( KWTOP, KWTOP ), LDH, T, LDT ) 410 CALL ZLASET( 'A', JW, JW, ZERO, ONE, V, LDV ) 411 NMIN = ILAENV( 12, 'ZLAQR3', 'SV', JW, 1, JW, LWORK ) 422 NS = JW 499 CALL ZGEHRD( JW, 1, NS, T, LDT, WORK, WORK( JW+1 ), 516 $ WORK( JW+1 ), LWORK-JW, INFO ) 537 CALL ZGEMM( 'C', 'N', JW, KLN, JW, ONE, V, LDV, [all …]
|
H A D | claqz2.f | 277 ILST = JW 321 CALL CLACPY( 'ALL', JW, JW, A( KWTOP, KWTOP ), LDA, WORK, JW ) 322 CALL CLACPY( 'ALL', JW, JW, B( KWTOP, KWTOP ), LDB, WORK( JW**2+ 326 CALL CLASET( 'FULL', JW, JW, CZERO, CONE, QC, LDQC ) 327 CALL CLASET( 'FULL', JW, JW, CZERO, CONE, ZC, LDZC ) 330 $ LDZC, WORK( 2*JW**2+1 ), LWORK-2*JW**2, RWORK, 337 CALL CLACPY( 'ALL', JW, JW, WORK, JW, A( KWTOP, KWTOP ), LDA ) 338 CALL CLACPY( 'ALL', JW, JW, WORK( JW**2+1 ), JW, B( KWTOP, 376 NS = JW-ND 432 CALL CLACPY( 'ALL', JW, ISTOPM-IHI, WORK, JW, A( KWTOP, [all …]
|
H A D | zlaqz2.f | 278 ILST = JW 322 CALL ZLACPY( 'ALL', JW, JW, A( KWTOP, KWTOP ), LDA, WORK, JW ) 323 CALL ZLACPY( 'ALL', JW, JW, B( KWTOP, KWTOP ), LDB, WORK( JW**2+ 327 CALL ZLASET( 'FULL', JW, JW, CZERO, CONE, QC, LDQC ) 328 CALL ZLASET( 'FULL', JW, JW, CZERO, CONE, ZC, LDZC ) 331 $ LDZC, WORK( 2*JW**2+1 ), LWORK-2*JW**2, RWORK, 338 CALL ZLACPY( 'ALL', JW, JW, WORK, JW, A( KWTOP, KWTOP ), LDA ) 339 CALL ZLACPY( 'ALL', JW, JW, WORK( JW**2+1 ), JW, B( KWTOP, 377 NS = JW-ND 433 CALL ZLACPY( 'ALL', JW, ISTOPM-IHI, WORK, JW, A( KWTOP, [all …]
|
/dports/math/lapack/lapack-3.10.0/SRC/ |
H A D | zlaqr3.f | 327 CALL ZGEHRD( JW, 1, JW-1, T, LDT, WORK, WORK, -1, INFO ) 332 CALL ZUNMHR( 'R', 'N', JW, JW, 1, JW-1, T, LDT, WORK, V, LDV, 338 CALL ZLAQR4( .true., .true., JW, 1, JW, T, LDT, SH, 1, JW, V, 407 CALL ZLACPY( 'U', JW, JW, H( KWTOP, KWTOP ), LDH, T, LDT ) 410 CALL ZLASET( 'A', JW, JW, ZERO, ONE, V, LDV ) 411 NMIN = ILAENV( 12, 'ZLAQR3', 'SV', JW, 1, JW, LWORK ) 422 NS = JW 499 CALL ZGEHRD( JW, 1, NS, T, LDT, WORK, WORK( JW+1 ), 516 $ WORK( JW+1 ), LWORK-JW, INFO ) 537 CALL ZGEMM( 'C', 'N', JW, KLN, JW, ONE, V, LDV, [all …]
|
H A D | claqr3.f | 326 CALL CGEHRD( JW, 1, JW-1, T, LDT, WORK, WORK, -1, INFO ) 331 CALL CUNMHR( 'R', 'N', JW, JW, 1, JW-1, T, LDT, WORK, V, LDV, 337 CALL CLAQR4( .true., .true., JW, 1, JW, T, LDT, SH, 1, JW, V, 406 CALL CLACPY( 'U', JW, JW, H( KWTOP, KWTOP ), LDH, T, LDT ) 409 CALL CLASET( 'A', JW, JW, ZERO, ONE, V, LDV ) 410 NMIN = ILAENV( 12, 'CLAQR3', 'SV', JW, 1, JW, LWORK ) 421 NS = JW 498 CALL CGEHRD( JW, 1, NS, T, LDT, WORK, WORK( JW+1 ), 515 $ WORK( JW+1 ), LWORK-JW, INFO ) 536 CALL CGEMM( 'C', 'N', JW, KLN, JW, ONE, V, LDV, [all …]
|
H A D | claqz2.f | 277 ILST = JW 321 CALL CLACPY( 'ALL', JW, JW, A( KWTOP, KWTOP ), LDA, WORK, JW ) 322 CALL CLACPY( 'ALL', JW, JW, B( KWTOP, KWTOP ), LDB, WORK( JW**2+ 326 CALL CLASET( 'FULL', JW, JW, CZERO, CONE, QC, LDQC ) 327 CALL CLASET( 'FULL', JW, JW, CZERO, CONE, ZC, LDZC ) 330 $ LDZC, WORK( 2*JW**2+1 ), LWORK-2*JW**2, RWORK, 337 CALL CLACPY( 'ALL', JW, JW, WORK, JW, A( KWTOP, KWTOP ), LDA ) 338 CALL CLACPY( 'ALL', JW, JW, WORK( JW**2+1 ), JW, B( KWTOP, 376 NS = JW-ND 432 CALL CLACPY( 'ALL', JW, ISTOPM-IHI, WORK, JW, A( KWTOP, [all …]
|
H A D | zlaqz2.f | 278 ILST = JW 322 CALL ZLACPY( 'ALL', JW, JW, A( KWTOP, KWTOP ), LDA, WORK, JW ) 323 CALL ZLACPY( 'ALL', JW, JW, B( KWTOP, KWTOP ), LDB, WORK( JW**2+ 327 CALL ZLASET( 'FULL', JW, JW, CZERO, CONE, QC, LDQC ) 328 CALL ZLASET( 'FULL', JW, JW, CZERO, CONE, ZC, LDZC ) 331 $ LDZC, WORK( 2*JW**2+1 ), LWORK-2*JW**2, RWORK, 338 CALL ZLACPY( 'ALL', JW, JW, WORK, JW, A( KWTOP, KWTOP ), LDA ) 339 CALL ZLACPY( 'ALL', JW, JW, WORK( JW**2+1 ), JW, B( KWTOP, 377 NS = JW-ND 433 CALL ZLACPY( 'ALL', JW, ISTOPM-IHI, WORK, JW, A( KWTOP, [all …]
|
/dports/science/nwchem/nwchem-7b21660b82ebd85ef659f6fba7e1e73433b0bd0a/src/lapack/double/ |
H A D | zlaqr3.f | 330 CALL ZGEHRD( JW, 1, JW-1, T, LDT, WORK, WORK, -1, INFO ) 335 CALL ZUNMHR( 'R', 'N', JW, JW, 1, JW-1, T, LDT, WORK, V, LDV, 341 CALL ZLAQR4( .true., .true., JW, 1, JW, T, LDT, SH, 1, JW, V, 410 CALL ZLACPY( 'U', JW, JW, H( KWTOP, KWTOP ), LDH, T, LDT ) 413 CALL ZLASET( 'A', JW, JW, ZERO, ONE, V, LDV ) 414 NMIN = ILAENV( 12, 'ZLAQR3', 'SV', JW, 1, JW, LWORK ) 425 NS = JW 502 CALL ZGEHRD( JW, 1, NS, T, LDT, WORK, WORK( JW+1 ), 519 $ WORK( JW+1 ), LWORK-JW, INFO ) 540 CALL ZGEMM( 'C', 'N', JW, KLN, JW, ONE, V, LDV, [all …]
|
/dports/science/nwchem-data/nwchem-7.0.2-release/src/lapack/double/ |
H A D | zlaqr3.f | 330 CALL ZGEHRD( JW, 1, JW-1, T, LDT, WORK, WORK, -1, INFO ) 335 CALL ZUNMHR( 'R', 'N', JW, JW, 1, JW-1, T, LDT, WORK, V, LDV, 341 CALL ZLAQR4( .true., .true., JW, 1, JW, T, LDT, SH, 1, JW, V, 410 CALL ZLACPY( 'U', JW, JW, H( KWTOP, KWTOP ), LDH, T, LDT ) 413 CALL ZLASET( 'A', JW, JW, ZERO, ONE, V, LDV ) 414 NMIN = ILAENV( 12, 'ZLAQR3', 'SV', JW, 1, JW, LWORK ) 425 NS = JW 502 CALL ZGEHRD( JW, 1, NS, T, LDT, WORK, WORK( JW+1 ), 519 $ WORK( JW+1 ), LWORK-JW, INFO ) 540 CALL ZGEMM( 'C', 'N', JW, KLN, JW, ONE, V, LDV, [all …]
|
/dports/math/openblas/OpenBLAS-0.3.18/lapack-netlib/SRC/ |
H A D | claqr3.f | 329 CALL CGEHRD( JW, 1, JW-1, T, LDT, WORK, WORK, -1, INFO ) 334 CALL CUNMHR( 'R', 'N', JW, JW, 1, JW-1, T, LDT, WORK, V, LDV, 340 CALL CLAQR4( .true., .true., JW, 1, JW, T, LDT, SH, 1, JW, V, 409 CALL CLACPY( 'U', JW, JW, H( KWTOP, KWTOP ), LDH, T, LDT ) 412 CALL CLASET( 'A', JW, JW, ZERO, ONE, V, LDV ) 413 NMIN = ILAENV( 12, 'CLAQR3', 'SV', JW, 1, JW, LWORK ) 424 NS = JW 501 CALL CGEHRD( JW, 1, NS, T, LDT, WORK, WORK( JW+1 ), 518 $ WORK( JW+1 ), LWORK-JW, INFO ) 539 CALL CGEMM( 'C', 'N', JW, KLN, JW, ONE, V, LDV, [all …]
|
H A D | zlaqr3.f | 330 CALL ZGEHRD( JW, 1, JW-1, T, LDT, WORK, WORK, -1, INFO ) 335 CALL ZUNMHR( 'R', 'N', JW, JW, 1, JW-1, T, LDT, WORK, V, LDV, 341 CALL ZLAQR4( .true., .true., JW, 1, JW, T, LDT, SH, 1, JW, V, 410 CALL ZLACPY( 'U', JW, JW, H( KWTOP, KWTOP ), LDH, T, LDT ) 413 CALL ZLASET( 'A', JW, JW, ZERO, ONE, V, LDV ) 414 NMIN = ILAENV( 12, 'ZLAQR3', 'SV', JW, 1, JW, LWORK ) 425 NS = JW 502 CALL ZGEHRD( JW, 1, NS, T, LDT, WORK, WORK( JW+1 ), 519 $ WORK( JW+1 ), LWORK-JW, INFO ) 540 CALL ZGEMM( 'C', 'N', JW, KLN, JW, ONE, V, LDV, [all …]
|
/dports/science/elk/elk-7.2.42/src/LAPACK/ |
H A D | zlaqr3.f | 330 CALL ZGEHRD( JW, 1, JW-1, T, LDT, WORK, WORK, -1, INFO ) 335 CALL ZUNMHR( 'R', 'N', JW, JW, 1, JW-1, T, LDT, WORK, V, LDV, 341 CALL ZLAQR4( .true., .true., JW, 1, JW, T, LDT, SH, 1, JW, V, 410 CALL ZLACPY( 'U', JW, JW, H( KWTOP, KWTOP ), LDH, T, LDT ) 413 CALL ZLASET( 'A', JW, JW, ZERO, ONE, V, LDV ) 414 NMIN = ILAENV( 12, 'ZLAQR3', 'SV', JW, 1, JW, LWORK ) 425 NS = JW 502 CALL ZGEHRD( JW, 1, NS, T, LDT, WORK, WORK( JW+1 ), 519 $ WORK( JW+1 ), LWORK-JW, INFO ) 540 CALL ZGEMM( 'C', 'N', JW, KLN, JW, ONE, V, LDV, [all …]
|
/dports/math/cblas/lapack-3.10.0/SRC/ |
H A D | claqr3.f | 326 CALL CGEHRD( JW, 1, JW-1, T, LDT, WORK, WORK, -1, INFO ) 331 CALL CUNMHR( 'R', 'N', JW, JW, 1, JW-1, T, LDT, WORK, V, LDV, 337 CALL CLAQR4( .true., .true., JW, 1, JW, T, LDT, SH, 1, JW, V, 406 CALL CLACPY( 'U', JW, JW, H( KWTOP, KWTOP ), LDH, T, LDT ) 409 CALL CLASET( 'A', JW, JW, ZERO, ONE, V, LDV ) 410 NMIN = ILAENV( 12, 'CLAQR3', 'SV', JW, 1, JW, LWORK ) 421 NS = JW 498 CALL CGEHRD( JW, 1, NS, T, LDT, WORK, WORK( JW+1 ), 515 $ WORK( JW+1 ), LWORK-JW, INFO ) 536 CALL CGEMM( 'C', 'N', JW, KLN, JW, ONE, V, LDV, [all …]
|
H A D | zlaqr3.f | 327 CALL ZGEHRD( JW, 1, JW-1, T, LDT, WORK, WORK, -1, INFO ) 332 CALL ZUNMHR( 'R', 'N', JW, JW, 1, JW-1, T, LDT, WORK, V, LDV, 338 CALL ZLAQR4( .true., .true., JW, 1, JW, T, LDT, SH, 1, JW, V, 407 CALL ZLACPY( 'U', JW, JW, H( KWTOP, KWTOP ), LDH, T, LDT ) 410 CALL ZLASET( 'A', JW, JW, ZERO, ONE, V, LDV ) 411 NMIN = ILAENV( 12, 'ZLAQR3', 'SV', JW, 1, JW, LWORK ) 422 NS = JW 499 CALL ZGEHRD( JW, 1, NS, T, LDT, WORK, WORK( JW+1 ), 516 $ WORK( JW+1 ), LWORK-JW, INFO ) 537 CALL ZGEMM( 'C', 'N', JW, KLN, JW, ONE, V, LDV, [all …]
|