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

Diff for /rpl/lapack/lapack/dsyev_2stage.f between versions 1.4 and 1.6

version 1.4, 2018/05/29 07:18:08 version 1.6, 2023/08/07 08:39:08
Line 9 Line 9
 *  *
 *> \htmlonly  *> \htmlonly
 *> Download DSYEV_2STAGE + dependencies  *> Download DSYEV_2STAGE + dependencies
 *> <a href="http://www.netlib.org/cgi-bin/netlibfiles.tgz?format=tgz&filename=/lapack/lapack_routine/dsyevd_2stage.f">  *> <a href="http://www.netlib.org/cgi-bin/netlibfiles.tgz?format=tgz&filename=/lapack/lapack_routine/dsyev_2stage.f">
 *> [TGZ]</a>  *> [TGZ]</a>
 *> <a href="http://www.netlib.org/cgi-bin/netlibfiles.zip?format=zip&filename=/lapack/lapack_routine/dsyevd_2stage.f">  *> <a href="http://www.netlib.org/cgi-bin/netlibfiles.zip?format=zip&filename=/lapack/lapack_routine/dsyev_2stage.f">
 *> [ZIP]</a>  *> [ZIP]</a>
 *> <a href="http://www.netlib.org/cgi-bin/netlibfiles.txt?format=txt&filename=/lapack/lapack_routine/dsyevd_2stage.f">  *> <a href="http://www.netlib.org/cgi-bin/netlibfiles.txt?format=txt&filename=/lapack/lapack_routine/dsyev_2stage.f">
 *> [TXT]</a>  *> [TXT]</a>
 *> \endhtmlonly  *> \endhtmlonly
 *  *
Line 143 Line 143
 *> \author Univ. of Colorado Denver  *> \author Univ. of Colorado Denver
 *> \author NAG Ltd.  *> \author NAG Ltd.
 *  *
 *> \date November 2017  
 *  
 *> \ingroup doubleSYeigen  *> \ingroup doubleSYeigen
 *  *
 *> \par Further Details:  *> \par Further Details:
Line 185 Line 183
 *  *
       IMPLICIT NONE        IMPLICIT NONE
 *  *
 *  -- LAPACK driver routine (version 3.8.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..--
 *     November 2017  
 *  *
 *     .. Scalar Arguments ..  *     .. Scalar Arguments ..
       CHARACTER          JOBZ, UPLO        CHARACTER          JOBZ, UPLO
Line 317 Line 314
       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 ),
Removed from v.1.4  
changed lines
  Added in v.1.6

CVSweb interface <joel.bertrand@systella.fr>