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 |