Return to dsyev_2stage.f CVS log | Up to [local] / rpl / lapack / lapack |
version 1.4, 2018/05/29 07:18:08 | version 1.5, 2020/05/21 21:46:01 |
---|---|
Line 317 | Line 317 |
IF( .NOT.WANTZ ) THEN | IF( .NOT.WANTZ ) THEN |
CALL DSTERF( N, W, WORK( INDE ), INFO ) | CALL DSTERF( N, W, WORK( INDE ), INFO ) |
ELSE | ELSE |
* Not available in this release, and agrument checking should not | * Not available in this release, and argument checking should not |
* let it getting here | * let it getting here |
RETURN | RETURN |
CALL DORGTR( UPLO, N, A, LDA, WORK( INDTAU ), WORK( INDWRK ), | CALL DORGTR( UPLO, N, A, LDA, WORK( INDTAU ), WORK( INDWRK ), |