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

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

version 1.16, 2020/05/21 21:46:05 version 1.17, 2023/08/07 08:39:24
Line 185 Line 185
 *>     If FACT = 'F', then AF is an input argument and on entry  *>     If FACT = 'F', then AF is an input argument and on entry
 *>     contains the block diagonal matrix D and the multipliers  *>     contains the block diagonal matrix D and the multipliers
 *>     used to obtain the factor U or L from the factorization A =  *>     used to obtain the factor U or L from the factorization A =
 *>     U*D*U**T or A = L*D*L**T as computed by DSYTRF.  *>     U*D*U**H or A = L*D*L**H as computed by ZHETRF.
 *>  *>
 *>     If FACT = 'N', then AF is an output argument and on exit  *>     If FACT = 'N', then AF is an output argument and on exit
 *>     returns the block diagonal matrix D and the multipliers  *>     returns the block diagonal matrix D and the multipliers
 *>     used to obtain the factor U or L from the factorization A =  *>     used to obtain the factor U or L from the factorization A =
 *>     U*D*U**T or A = L*D*L**T.  *>     U*D*U**H or A = L*D*L**H.
 *> \endverbatim  *> \endverbatim
 *>  *>
 *> \param[in] LDAF  *> \param[in] LDAF
Line 496 Line 496
 *> \author Univ. of Colorado Denver  *> \author Univ. of Colorado Denver
 *> \author NAG Ltd.  *> \author NAG Ltd.
 *  *
 *> \date April 2012  
 *  
 *> \ingroup complex16HEsolve  *> \ingroup complex16HEsolve
 *  *
 *  =====================================================================  *  =====================================================================
Line 506 Line 504
      $                    N_ERR_BNDS, ERR_BNDS_NORM, ERR_BNDS_COMP,       $                    N_ERR_BNDS, ERR_BNDS_NORM, ERR_BNDS_COMP,
      $                    NPARAMS, PARAMS, WORK, RWORK, INFO )       $                    NPARAMS, PARAMS, WORK, RWORK, 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..--
 *     April 2012  
 *  *
 *     .. Scalar Arguments ..  *     .. Scalar Arguments ..
       CHARACTER          EQUED, FACT, UPLO        CHARACTER          EQUED, FACT, UPLO
Line 646 Line 643
 *  *
       IF( NOFACT .OR. EQUIL ) THEN        IF( NOFACT .OR. EQUIL ) THEN
 *  *
 *        Compute the LDL^T or UDU^T factorization of A.  *        Compute the LDL^H or UDU^H factorization of A.
 *  *
          CALL ZLACPY( UPLO, N, N, A, LDA, AF, LDAF )           CALL ZLACPY( UPLO, N, N, A, LDA, AF, LDAF )
          CALL ZHETRF( UPLO, N, AF, LDAF, IPIV, WORK, 5*MAX(1,N), INFO )           CALL ZHETRF( UPLO, N, AF, LDAF, IPIV, WORK, 5*MAX(1,N), INFO )
Removed from v.1.16  
changed lines
  Added in v.1.17

CVSweb interface <joel.bertrand@systella.fr>