fixed whitespace inconsistencies in subroutine definitions

jprhyne · jprhyne · commit 318a43d20bc3 · 2025-03-07T17:51:50.000-07:00
diff --git a/SRC/zunglq.f b/SRC/zunglq.f
@@ -121,7 +121,7 @@
 *> \ingroup unglq
 *
 *  =====================================================================
-      SUBROUTINE ZUNGLQ(M, N, K, A, LDA, TAU, WORK, LWORK, INFO)
+      SUBROUTINE ZUNGLQ( M, N, K, A, LDA, TAU, WORK, LWORK, INFO )
 *
 *  -- LAPACK computational routine --
 *  -- LAPACK is a software package provided by Univ. of Tennessee,    --
diff --git a/SRC/zungql.f b/SRC/zungql.f
@@ -120,7 +120,7 @@
 *> \ingroup ungql
 *
 *  =====================================================================
-      SUBROUTINE ZUNGQL(M, N, K, A, LDA, TAU, WORK, LWORK, INFO)
+      SUBROUTINE ZUNGQL( M, N, K, A, LDA, TAU, WORK, LWORK, INFO )
 *
 *  -- LAPACK computational routine --
 *  -- LAPACK is a software package provided by Univ. of Tennessee,    --
diff --git a/SRC/zungqr.f b/SRC/zungqr.f
@@ -120,7 +120,7 @@
 *> \ingroup ungqr
 *
 *  =====================================================================
-      SUBROUTINE ZUNGQR(M, N, K, A, LDA, TAU, WORK, LWORK, INFO)
+      SUBROUTINE ZUNGQR( M, N, K, A, LDA, TAU, WORK, LWORK, INFO )
 *
 *  -- LAPACK computational routine --
 *  -- LAPACK is a software package provided by Univ. of Tennessee,    --
diff --git a/SRC/zungrq.f b/SRC/zungrq.f
@@ -122,7 +122,7 @@
 *> \ingroup ungrq
 *
 *  =====================================================================
-      SUBROUTINE ZUNGRQ(M, N, K, A, LDA, TAU, WORK, LWORK, INFO)
+      SUBROUTINE ZUNGRQ( M, N, K, A, LDA, TAU, WORK, LWORK, INFO )
 *
 *  -- LAPACK computational routine --
 *  -- LAPACK is a software package provided by Univ. of Tennessee,    --

Original file line number	Diff line number	Diff line change
`@@ -121,7 +121,7 @@`
`121`	`121`	`*> \ingroup unglq`
`122`	`122`	`*`
`123`	`123`	`* =====================================================================`
`124`		`- SUBROUTINE ZUNGLQ(M, N, K, A, LDA, TAU, WORK, LWORK, INFO)`
	`124`	`+ SUBROUTINE ZUNGLQ( M, N, K, A, LDA, TAU, WORK, LWORK, INFO )`
`125`	`125`	`*`
`126`	`126`	`* -- LAPACK computational routine --`
`127`	`127`	`* -- LAPACK is a software package provided by Univ. of Tennessee, --`
Original file line number	Diff line number	Diff line change
`@@ -120,7 +120,7 @@`
`120`	`120`	`*> \ingroup ungql`
`121`	`121`	`*`
`122`	`122`	`* =====================================================================`
`123`		`- SUBROUTINE ZUNGQL(M, N, K, A, LDA, TAU, WORK, LWORK, INFO)`
	`123`	`+ SUBROUTINE ZUNGQL( M, N, K, A, LDA, TAU, WORK, LWORK, INFO )`
`124`	`124`	`*`
`125`	`125`	`* -- LAPACK computational routine --`
`126`	`126`	`* -- LAPACK is a software package provided by Univ. of Tennessee, --`
Original file line number	Diff line number	Diff line change
`@@ -122,7 +122,7 @@`
`122`	`122`	`*> \ingroup ungrq`
`123`	`123`	`*`
`124`	`124`	`* =====================================================================`
`125`		`- SUBROUTINE ZUNGRQ(M, N, K, A, LDA, TAU, WORK, LWORK, INFO)`
	`125`	`+ SUBROUTINE ZUNGRQ( M, N, K, A, LDA, TAU, WORK, LWORK, INFO )`
`126`	`126`	`*`
`127`	`127`	`* -- LAPACK computational routine --`
`128`	`128`	`* -- LAPACK is a software package provided by Univ. of Tennessee, --`