diff options
author | julie <julielangou@users.noreply.github.com> | 2008-12-16 17:06:58 +0000 |
---|---|---|
committer | julie <julielangou@users.noreply.github.com> | 2008-12-16 17:06:58 +0000 |
commit | ff981f106bde4ce6a74aa4f4a572c943f5a395b2 (patch) | |
tree | a386cad907bcaefd6893535c31d67ec9468e693e /SRC/slag2d.f | |
parent | e58b61578b55644f6391f3333262b72c1dc88437 (diff) | |
download | lapack-ff981f106bde4ce6a74aa4f4a572c943f5a395b2.tar.gz lapack-ff981f106bde4ce6a74aa4f4a572c943f5a395b2.tar.bz2 lapack-ff981f106bde4ce6a74aa4f4a572c943f5a395b2.zip |
Diffstat (limited to 'SRC/slag2d.f')
-rw-r--r-- | SRC/slag2d.f | 41 |
1 files changed, 18 insertions, 23 deletions
diff --git a/SRC/slag2d.f b/SRC/slag2d.f index d8081651..b43699c2 100644 --- a/SRC/slag2d.f +++ b/SRC/slag2d.f @@ -1,21 +1,16 @@ - SUBROUTINE SLAG2D( M, N, SA, LDSA, A, LDA, INFO) + SUBROUTINE SLAG2D( M, N, SA, LDSA, A, LDA, INFO ) * -* -- LAPACK PROTOTYPE auxiliary routine (version 3.1.1) -- +* -- LAPACK PROTOTYPE auxiliary routine (version 3.1.2) -- * Univ. of Tennessee, Univ. of California Berkeley and NAG Ltd.. -* January 2007 +* August 2007 * * .. -* .. WARNING: PROTOTYPE .. -* This is an LAPACK PROTOTYPE routine which means that the -* interface of this routine is likely to be changed in the future -* based on community feedback. -* * .. Scalar Arguments .. - INTEGER INFO,LDA,LDSA,M,N + INTEGER INFO, LDA, LDSA, M, N * .. * .. Array Arguments .. - REAL SA(LDSA,*) - DOUBLE PRECISION A(LDA,*) + REAL SA( LDSA, * ) + DOUBLE PRECISION A( LDA, * ) * .. * * Purpose @@ -24,11 +19,11 @@ * SLAG2D converts a SINGLE PRECISION matrix, SA, to a DOUBLE * PRECISION matrix, A. * -* Note that while it is possible to overflow while converting +* Note that while it is possible to overflow while converting * from double to single, it is not possible to overflow when -* converting from single to double. +* converting from single to double. * -* This is a helper routine so there is no argument checking. +* This is an auxiliary routine so there is no argument checking. * * Arguments * ========= @@ -39,14 +34,14 @@ * N (input) INTEGER * The number of columns of the matrix A. N >= 0. * -* SA (output) REAL array, dimension (LDSA,N) -* On exit, the M-by-N coefficient matrix SA. +* SA (input) REAL array, dimension (LDSA,N) +* On entry, the M-by-N coefficient matrix SA. * * LDSA (input) INTEGER * The leading dimension of the array SA. LDSA >= max(1,M). * -* A (input) DOUBLE PRECISION array, dimension (LDA,N) -* On entry, the M-by-N coefficient matrix A. +* A (output) DOUBLE PRECISION array, dimension (LDA,N) +* On exit, the M-by-N coefficient matrix A. * * LDA (input) INTEGER * The leading dimension of the array A. LDA >= max(1,M). @@ -56,15 +51,15 @@ * ========= * * .. Local Scalars .. - INTEGER I,J + INTEGER I, J * .. * .. Executable Statements .. * INFO = 0 - DO 20 J = 1,N - DO 30 I = 1,M - A(I,J) = SA(I,J) - 30 CONTINUE + DO 20 J = 1, N + DO 10 I = 1, M + A( I, J ) = SA( I, J ) + 10 CONTINUE 20 CONTINUE RETURN * |