[BACK]Return to dsyevd_2stage.f CVS log [TXT] [DIR] Up to [local] / rpl / lapack / lapack

Diff for /rpl/lapack/lapack/dsyevd_2stage.f between versions 1.1 and 1.6

version 1.1, 2017/06/17 11:02:51 version 1.6, 2023/08/07 08:39:08
Line 180 Line 180
 *> \author Univ. of Colorado Denver  *> \author Univ. of Colorado Denver
 *> \author NAG Ltd.  *> \author NAG Ltd.
 *  *
 *> \date December 2016  
 *  
 *> \ingroup doubleSYeigen  *> \ingroup doubleSYeigen
 *  *
 *> \par Contributors:  *> \par Contributors:
Line 229 Line 227
 *  *
       IMPLICIT NONE        IMPLICIT NONE
 *  *
 *  -- LAPACK driver routine (version 3.7.0) --  *  -- LAPACK driver routine --
 *  -- LAPACK is a software package provided by Univ. of Tennessee,    --  *  -- LAPACK is a software package provided by Univ. of Tennessee,    --
 *  -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--  *  -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
 *     December 2016  
 *  *
 *     .. Scalar Arguments ..  *     .. Scalar Arguments ..
       CHARACTER          JOBZ, UPLO        CHARACTER          JOBZ, UPLO
Line 260 Line 257
 *     ..  *     ..
 *     .. External Functions ..  *     .. External Functions ..
       LOGICAL            LSAME        LOGICAL            LSAME
       INTEGER            ILAENV        INTEGER            ILAENV2STAGE
       DOUBLE PRECISION   DLAMCH, DLANSY        DOUBLE PRECISION   DLAMCH, DLANSY
       EXTERNAL           LSAME, DLAMCH, DLANSY, ILAENV        EXTERNAL           LSAME, DLAMCH, DLANSY, ILAENV2STAGE
 *     ..  *     ..
 *     .. External Subroutines ..  *     .. External Subroutines ..
       EXTERNAL           DLACPY, DLASCL, DORMTR, DSCAL, DSTEDC, DSTERF,        EXTERNAL           DLACPY, DLASCL, DORMTR, DSCAL, DSTEDC, DSTERF,
Line 295 Line 292
             LIWMIN = 1              LIWMIN = 1
             LWMIN = 1              LWMIN = 1
          ELSE           ELSE
             KD    = ILAENV( 17, 'DSYTRD_2STAGE', JOBZ, N, -1, -1, -1 )              KD    = ILAENV2STAGE( 1, 'DSYTRD_2STAGE', JOBZ,
             IB    = ILAENV( 18, 'DSYTRD_2STAGE', JOBZ, N, KD, -1, -1 )       $                            N, -1, -1, -1 )
             LHTRD = ILAENV( 19, 'DSYTRD_2STAGE', JOBZ, N, KD, IB, -1 )              IB    = ILAENV2STAGE( 2, 'DSYTRD_2STAGE', JOBZ,
             LWTRD = ILAENV( 20, 'DSYTRD_2STAGE', JOBZ, N, KD, IB, -1 )       $                            N, KD, -1, -1 )
               LHTRD = ILAENV2STAGE( 3, 'DSYTRD_2STAGE', JOBZ,
        $                            N, KD, IB, -1 )
               LWTRD = ILAENV2STAGE( 4, 'DSYTRD_2STAGE', JOBZ,
        $                            N, KD, IB, -1 )
             IF( WANTZ ) THEN              IF( WANTZ ) THEN
                LIWMIN = 3 + 5*N                 LIWMIN = 3 + 5*N
                LWMIN = 1 + 6*N + 2*N**2                 LWMIN = 1 + 6*N + 2*N**2
Line 381 Line 382
       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,
Removed from v.1.1  
changed lines
  Added in v.1.6

CVSweb interface <joel.bertrand@systella.fr>