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
 *