fix intent in xlaqz1

chrwarm · Feb 14, 2021 · 9e18f6b · 9e18f6b
1 parent e29a36b
commit 9e18f6b
Show file tree

Hide file tree

Showing 2 changed files with 12 additions and 10 deletions.
diff --git a/SRC/dlaqz1.f b/SRC/dlaqz1.f
@@ -24,9 +24,9 @@
 *
 *      Arguments
 *      INTEGER, INTENT( IN ) :: LDA, LDB
-*      DOUBLE PRECISION, INTENT( IN ) :: A( LDA, * ), B( LDB, * )
-*      DOUBLE PRECISION, INTENT( OUT ) :: SR1, SR2, SI, BETA1, BETA2,
-*     $    V( * )
+*      DOUBLE PRECISION, INTENT( IN ) :: A( LDA, * ), B( LDB, * ), SR1,
+*     $                  SR2, SI, BETA1, BETA2
+*      DOUBLE PRECISION, INTENT( OUT ) :: V( * )
 *       ..
 *
 *
@@ -128,9 +128,9 @@ SUBROUTINE DLAQZ1( A, LDA, B, LDB, SR1, SR2, SI, BETA1, BETA2,
 *
 *     Arguments
       INTEGER, INTENT( IN ) :: LDA, LDB
-      DOUBLE PRECISION, INTENT( IN ) :: A( LDA, * ), B( LDB, * )
-      DOUBLE PRECISION, INTENT( OUT ) :: SR1, SR2, SI, BETA1, BETA2,
-     $                  V( * )
+      DOUBLE PRECISION, INTENT( IN ) :: A( LDA, * ), B( LDB, * ), SR1,
+     $                  SR2, SI, BETA1, BETA2
+      DOUBLE PRECISION, INTENT( OUT ) :: V( * )
 *
 *     Parameters
       DOUBLE PRECISION :: ZERO, ONE, HALF

diff --git a/SRC/slaqz1.f b/SRC/slaqz1.f
@@ -24,8 +24,9 @@
 *
 *      Arguments
 *      INTEGER, INTENT( IN ) :: LDA, LDB
-*      REAL, INTENT( IN ) :: A( LDA, * ), B( LDB, * )
-*      REAL, INTENT( OUT ) :: SR1, SR2, SI, BETA1, BETA2, V( * )
+*      REAL, INTENT( IN ) :: A( LDA, * ), B( LDB, * ), SR1, SR2, SI,
+*     $   BETA1, BETA2
+*      REAL, INTENT( OUT ) :: V( * )
 *       ..
 *
 *
@@ -127,8 +128,9 @@ SUBROUTINE SLAQZ1( A, LDA, B, LDB, SR1, SR2, SI, BETA1, BETA2,
 *
 *     Arguments
       INTEGER, INTENT( IN ) :: LDA, LDB
-      REAL, INTENT( IN ) :: A( LDA, * ), B( LDB, * )
-      REAL, INTENT( OUT ) :: SR1, SR2, SI, BETA1, BETA2, V( * )
+      REAL, INTENT( IN ) :: A( LDA, * ), B( LDB, * ), SR1, SR2, SI,
+     $   BETA1, BETA2
+      REAL, INTENT( OUT ) :: V( * )
 *
 *     Parameters
       REAL :: ZERO, ONE, HALF