Return to dsyevd_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 385 | Line 385 |
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 DSTEDC( 'I', N, W, WORK( INDE ), WORK( INDWRK ), N, | CALL DSTEDC( 'I', N, W, WORK( INDE ), WORK( INDWRK ), N, |