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

Diff for /rpl/lapack/lapack/zhecon_3.f between versions 1.2 and 1.3

version 1.2, 2017/06/17 11:06:47 version 1.3, 2018/05/29 06:55:23
Line 95 Line 95
 *>          On entry, contains the superdiagonal (or subdiagonal)  *>          On entry, contains the superdiagonal (or subdiagonal)
 *>          elements of the Hermitian block diagonal matrix D  *>          elements of the Hermitian block diagonal matrix D
 *>          with 1-by-1 or 2-by-2 diagonal blocks, where  *>          with 1-by-1 or 2-by-2 diagonal blocks, where
 *>          If UPLO = 'U': E(i) = D(i-1,i),i=2:N, E(1) not refernced;  *>          If UPLO = 'U': E(i) = D(i-1,i),i=2:N, E(1) not referenced;
 *>          If UPLO = 'L': E(i) = D(i+1,i),i=1:N-1, E(N) not referenced.  *>          If UPLO = 'L': E(i) = D(i+1,i),i=1:N-1, E(N) not referenced.
 *>  *>
 *>          NOTE: For 1-by-1 diagonal block D(k), where  *>          NOTE: For 1-by-1 diagonal block D(k), where
Line 149 Line 149
 *> \author Univ. of Colorado Denver  *> \author Univ. of Colorado Denver
 *> \author NAG Ltd.  *> \author NAG Ltd.
 *  *
 *> \date December 2016  *> \date June 2017
 *  *
 *> \ingroup complex16HEcomputational  *> \ingroup complex16HEcomputational
 *  *
Line 157 Line 157
 *  ==================  *  ==================
 *> \verbatim  *> \verbatim
 *>  *>
 *>  December 2016,  Igor Kozachenko,  *>  June 2017,  Igor Kozachenko,
 *>                  Computer Science Division,  *>                  Computer Science Division,
 *>                  University of California, Berkeley  *>                  University of California, Berkeley
 *>  *>
Line 171 Line 171
       SUBROUTINE ZHECON_3( UPLO, N, A, LDA, E, IPIV, ANORM, RCOND,        SUBROUTINE ZHECON_3( UPLO, N, A, LDA, E, IPIV, ANORM, RCOND,
      $                     WORK, INFO )       $                     WORK, INFO )
 *  *
 *  -- LAPACK computational routine (version 3.7.0) --  *  -- LAPACK computational routine (version 3.7.1) --
 *  -- 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  *     June 2017
 *  *
 *     .. Scalar Arguments ..  *     .. Scalar Arguments ..
       CHARACTER          UPLO        CHARACTER          UPLO
Line 189 Line 189
 *  =====================================================================  *  =====================================================================
 *  *
 *     .. Parameters ..  *     .. Parameters ..
       REAL               ONE, ZERO        DOUBLE PRECISION   ONE, ZERO
       PARAMETER          ( ONE = 1.0D+0, ZERO = 0.0D+0 )        PARAMETER          ( ONE = 1.0D+0, ZERO = 0.0D+0 )
 *     ..  *     ..
 *     .. Local Scalars ..  *     .. Local Scalars ..
Removed from v.1.2  
changed lines
  Added in v.1.3

CVSweb interface <joel.bertrand@systella.fr>