Diff for /rpl/lapack/lapack/zpotf2.f between versions 1.7 and 1.8

version 1.7, 2010/12/21 13:53:53 version 1.8, 2011/07/22 07:38:19
Line 1 Line 1
       SUBROUTINE ZPOTF2( UPLO, N, A, LDA, INFO )        SUBROUTINE ZPOTF2( UPLO, N, A, LDA, INFO )
 *  *
 *  -- LAPACK routine (version 3.2) --  *  -- LAPACK routine (version 3.3.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..--
 *     November 2006  *  -- April 2011                                                      --
 *  *
 *     .. Scalar Arguments ..  *     .. Scalar Arguments ..
       CHARACTER          UPLO        CHARACTER          UPLO
Line 20 Line 20
 *  positive definite matrix A.  *  positive definite matrix A.
 *  *
 *  The factorization has the form  *  The factorization has the form
 *     A = U' * U ,  if UPLO = 'U', or  *     A = U**H * U ,  if UPLO = 'U', or
 *     A = L  * L',  if UPLO = 'L',  *     A = L  * L**H,  if UPLO = 'L',
 *  where U is an upper triangular matrix and L is lower triangular.  *  where U is an upper triangular matrix and L is lower triangular.
 *  *
 *  This is the unblocked version of the algorithm, calling Level 2 BLAS.  *  This is the unblocked version of the algorithm, calling Level 2 BLAS.
Line 48 Line 48
 *          triangular part of A is not referenced.  *          triangular part of A is not referenced.
 *  *
 *          On exit, if INFO = 0, the factor U or L from the Cholesky  *          On exit, if INFO = 0, the factor U or L from the Cholesky
 *          factorization A = U'*U  or A = L*L'.  *          factorization A = U**H *U  or A = L*L**H.
 *  *
 *  LDA     (input) INTEGER  *  LDA     (input) INTEGER
 *          The leading dimension of the array A.  LDA >= max(1,N).  *          The leading dimension of the array A.  LDA >= max(1,N).
Line 109 Line 109
 *  *
       IF( UPPER ) THEN        IF( UPPER ) THEN
 *  *
 *        Compute the Cholesky factorization A = U'*U.  *        Compute the Cholesky factorization A = U**H *U.
 *  *
          DO 10 J = 1, N           DO 10 J = 1, N
 *  *
Line 136 Line 136
    10    CONTINUE     10    CONTINUE
       ELSE        ELSE
 *  *
 *        Compute the Cholesky factorization A = L*L'.  *        Compute the Cholesky factorization A = L*L**H.
 *  *
          DO 20 J = 1, N           DO 20 J = 1, N
 *  *

Removed from v.1.7  
changed lines
  Added in v.1.8


CVSweb interface <joel.bertrand@systella.fr>