Diff for /rpl/lapack/lapack/zhbevd.f between versions 1.16 and 1.17

version 1.16, 2018/05/29 07:18:18 version 1.17, 2023/08/07 08:39:22
Line 207 Line 207
 *> \author Univ. of Colorado Denver  *> \author Univ. of Colorado Denver
 *> \author NAG Ltd.  *> \author NAG Ltd.
 *  *
 *> \date December 2016  
 *  
 *> \ingroup complex16OTHEReigen  *> \ingroup complex16OTHEReigen
 *  *
 *  =====================================================================  *  =====================================================================
       SUBROUTINE ZHBEVD( JOBZ, UPLO, N, KD, AB, LDAB, W, Z, LDZ, WORK,        SUBROUTINE ZHBEVD( JOBZ, UPLO, N, KD, AB, LDAB, W, Z, LDZ, WORK,
      $                   LWORK, RWORK, LRWORK, IWORK, LIWORK, INFO )       $                   LWORK, RWORK, LRWORK, IWORK, LIWORK, INFO )
 *  *
 *  -- 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 323 Line 320
      $   RETURN       $   RETURN
 *  *
       IF( N.EQ.1 ) THEN        IF( N.EQ.1 ) THEN
          W( 1 ) = AB( 1, 1 )           W( 1 ) = DBLE( AB( 1, 1 ) )
          IF( WANTZ )           IF( WANTZ )
      $      Z( 1, 1 ) = CONE       $      Z( 1, 1 ) = CONE
          RETURN           RETURN

Removed from v.1.16  
changed lines
  Added in v.1.17


CVSweb interface <joel.bertrand@systella.fr>