Diff for /rpl/lapack/lapack/dppsvx.f between versions 1.10 and 1.11

version 1.10, 2011/11/21 22:19:38 version 1.11, 2012/07/31 11:06:37
Line 147 Line 147
 *>  *>
 *> \param[in,out] AFP  *> \param[in,out] AFP
 *> \verbatim  *> \verbatim
 *>          AFP is or output) DOUBLE PRECISION array, dimension  *>          AFP is DOUBLE PRECISION array, dimension
 *>                            (N*(N+1)/2)  *>                            (N*(N+1)/2)
 *>          If FACT = 'F', then AFP is an input argument and on entry  *>          If FACT = 'F', then AFP is an input argument and on entry
 *>          contains the triangular factor U or L from the Cholesky  *>          contains the triangular factor U or L from the Cholesky
Line 169 Line 169
 *>  *>
 *> \param[in,out] EQUED  *> \param[in,out] EQUED
 *> \verbatim  *> \verbatim
 *>          EQUED is or output) CHARACTER*1  *>          EQUED is CHARACTER*1
 *>          Specifies the form of equilibration that was done.  *>          Specifies the form of equilibration that was done.
 *>          = 'N':  No equilibration (always true if FACT = 'N').  *>          = 'N':  No equilibration (always true if FACT = 'N').
 *>          = 'Y':  Equilibration was done, i.e., A has been replaced by  *>          = 'Y':  Equilibration was done, i.e., A has been replaced by
Line 180 Line 180
 *>  *>
 *> \param[in,out] S  *> \param[in,out] S
 *> \verbatim  *> \verbatim
 *>          S is or output) DOUBLE PRECISION array, dimension (N)  *>          S is DOUBLE PRECISION array, dimension (N)
 *>          The scale factors for A; not accessed if EQUED = 'N'.  S is  *>          The scale factors for A; not accessed if EQUED = 'N'.  S is
 *>          an input argument if FACT = 'F'; otherwise, S is an output  *>          an input argument if FACT = 'F'; otherwise, S is an output
 *>          argument.  If FACT = 'F' and EQUED = 'Y', each element of S  *>          argument.  If FACT = 'F' and EQUED = 'Y', each element of S
Line 284 Line 284
 *> \author Univ. of Colorado Denver   *> \author Univ. of Colorado Denver 
 *> \author NAG Ltd.   *> \author NAG Ltd. 
 *  *
 *> \date November 2011  *> \date April 2012
 *  *
 *> \ingroup doubleOTHERsolve  *> \ingroup doubleOTHERsolve
 *  *
Line 312 Line 312
       SUBROUTINE DPPSVX( FACT, UPLO, N, NRHS, AP, AFP, EQUED, S, B, LDB,        SUBROUTINE DPPSVX( FACT, UPLO, N, NRHS, AP, AFP, EQUED, S, B, LDB,
      $                   X, LDX, RCOND, FERR, BERR, WORK, IWORK, INFO )       $                   X, LDX, RCOND, FERR, BERR, WORK, IWORK, INFO )
 *  *
 *  -- LAPACK driver routine (version 3.4.0) --  *  -- LAPACK driver routine (version 3.4.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 2011  *     April 2012
 *  *
 *     .. Scalar Arguments ..  *     .. Scalar Arguments ..
       CHARACTER          EQUED, FACT, UPLO        CHARACTER          EQUED, FACT, UPLO

Removed from v.1.10  
changed lines
  Added in v.1.11


CVSweb interface <joel.bertrand@systella.fr>