--- rpl/lapack/lapack/dsyconv.f 2016/08/27 15:34:39 1.10 +++ rpl/lapack/lapack/dsyconv.f 2017/06/17 10:54:03 1.11 @@ -2,24 +2,24 @@ * * =========== DOCUMENTATION =========== * -* Online html documentation available at -* http://www.netlib.org/lapack/explore-html/ +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ * *> \htmlonly -*> Download DSYCONV + dependencies -*> -*> [TGZ] -*> -*> [ZIP] -*> +*> Download DSYCONV + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> *> [TXT] -*> \endhtmlonly +*> \endhtmlonly * * Definition: * =========== * * SUBROUTINE DSYCONV( UPLO, WAY, N, A, LDA, IPIV, E, INFO ) -* +* * .. Scalar Arguments .. * CHARACTER UPLO, WAY * INTEGER INFO, LDA, N @@ -28,7 +28,7 @@ * INTEGER IPIV( * ) * DOUBLE PRECISION A( LDA, * ), E( * ) * .. -* +* * *> \par Purpose: * ============= @@ -36,7 +36,7 @@ *> \verbatim *> *> DSYCONV convert A given by TRF into L and D and vice-versa. -*> Get Non-diag elements of D (returned in workspace) and +*> Get Non-diag elements of D (returned in workspace) and *> apply or reverse permutation done in TRF. *> \endverbatim * @@ -55,7 +55,7 @@ *> \param[in] WAY *> \verbatim *> WAY is CHARACTER*1 -*> = 'C': Convert +*> = 'C': Convert *> = 'R': Revert *> \endverbatim *> @@ -102,22 +102,22 @@ * Authors: * ======== * -*> \author Univ. of Tennessee -*> \author Univ. of California Berkeley -*> \author Univ. of Colorado Denver -*> \author NAG Ltd. +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. * -*> \date November 2015 +*> \date December 2016 * *> \ingroup doubleSYcomputational * * ===================================================================== SUBROUTINE DSYCONV( UPLO, WAY, N, A, LDA, IPIV, E, INFO ) * -* -- LAPACK computational routine (version 3.6.0) -- +* -- LAPACK computational routine (version 3.7.0) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2015 +* December 2016 * * .. Scalar Arguments .. CHARACTER UPLO, WAY @@ -194,7 +194,7 @@ END DO * * Convert PERMUTATIONS -* +* I=N DO WHILE ( I .GE. 1 ) IF( IPIV(I) .GT. 0) THEN @@ -226,7 +226,7 @@ * * * Revert PERMUTATIONS -* +* I=1 DO WHILE ( I .LE. N ) IF( IPIV(I) .GT. 0 ) THEN