version 1.2, 2017/06/17 11:06:34
|
version 1.6, 2023/08/07 08:39:08
|
Line 18
|
Line 18
|
* Definition: |
* Definition: |
* =========== |
* =========== |
* |
* |
* SUBROUTINE DSYCONVF_ROOK( UPLO, WAY, N, A, LDA, IPIV, E, INFO ) |
* SUBROUTINE DSYCONVF_ROOK( UPLO, WAY, N, A, LDA, E, IPIV, INFO ) |
* |
* |
* .. Scalar Arguments .. |
* .. Scalar Arguments .. |
* CHARACTER UPLO, WAY |
* CHARACTER UPLO, WAY |
Line 44
|
Line 44
|
*> If parameter WAY = 'R': |
*> If parameter WAY = 'R': |
*> DSYCONVF_ROOK performs the conversion in reverse direction, i.e. |
*> DSYCONVF_ROOK performs the conversion in reverse direction, i.e. |
*> converts the factorization output format used in DSYTRF_RK |
*> converts the factorization output format used in DSYTRF_RK |
*> (or DSYTRF_BK) provided on entry in parametes A and E into |
*> (or DSYTRF_BK) provided on entry in parameters A and E into |
*> the factorization output format used in DSYTRF_ROOK that is stored |
*> the factorization output format used in DSYTRF_ROOK that is stored |
*> on exit in parameter A. IPIV format for DSYTRF_ROOK and |
*> on exit in parameter A. IPIV format for DSYTRF_ROOK and |
*> DSYTRF_RK (or DSYTRF_BK) is the same and is not converted. |
*> DSYTRF_RK (or DSYTRF_BK) is the same and is not converted. |
Line 180
|
Line 180
|
*> \author Univ. of Colorado Denver |
*> \author Univ. of Colorado Denver |
*> \author NAG Ltd. |
*> \author NAG Ltd. |
* |
* |
*> \date December 2016 |
|
* |
|
*> \ingroup doubleSYcomputational |
*> \ingroup doubleSYcomputational |
* |
* |
*> \par Contributors: |
*> \par Contributors: |
Line 189
|
Line 187
|
*> |
*> |
*> \verbatim |
*> \verbatim |
*> |
*> |
*> December 2016, Igor Kozachenko, |
*> November 2017, Igor Kozachenko, |
*> Computer Science Division, |
*> Computer Science Division, |
*> University of California, Berkeley |
*> University of California, Berkeley |
*> |
*> |
Line 197
|
Line 195
|
* ===================================================================== |
* ===================================================================== |
SUBROUTINE DSYCONVF_ROOK( UPLO, WAY, N, A, LDA, E, IPIV, INFO ) |
SUBROUTINE DSYCONVF_ROOK( UPLO, WAY, N, A, LDA, E, IPIV, INFO ) |
* |
* |
* -- LAPACK computational routine (version 3.7.0) -- |
* -- LAPACK computational 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..-- |
* December 2016 |
|
* |
* |
* .. Scalar Arguments .. |
* .. Scalar Arguments .. |
CHARACTER UPLO, WAY |
CHARACTER UPLO, WAY |
Line 282
|
Line 279
|
* |
* |
* Convert PERMUTATIONS |
* Convert PERMUTATIONS |
* |
* |
* Apply permutaions to submatrices of upper part of A |
* Apply permutations to submatrices of upper part of A |
* in factorization order where i decreases from N to 1 |
* in factorization order where i decreases from N to 1 |
* |
* |
I = N |
I = N |
Line 333
|
Line 330
|
* |
* |
* Revert PERMUTATIONS |
* Revert PERMUTATIONS |
* |
* |
* Apply permutaions to submatrices of upper part of A |
* Apply permutations to submatrices of upper part of A |
* in reverse factorization order where i increases from 1 to N |
* in reverse factorization order where i increases from 1 to N |
* |
* |
I = 1 |
I = 1 |
Line 423
|
Line 420
|
* |
* |
* Convert PERMUTATIONS |
* Convert PERMUTATIONS |
* |
* |
* Apply permutaions to submatrices of lower part of A |
* Apply permutations to submatrices of lower part of A |
* in factorization order where i increases from 1 to N |
* in factorization order where i increases from 1 to N |
* |
* |
I = 1 |
I = 1 |
Line 474
|
Line 471
|
* |
* |
* Revert PERMUTATIONS |
* Revert PERMUTATIONS |
* |
* |
* Apply permutaions to submatrices of lower part of A |
* Apply permutations to submatrices of lower part of A |
* in reverse factorization order where i decreases from N to 1 |
* in reverse factorization order where i decreases from N to 1 |
* |
* |
I = N |
I = N |