Add extra space for extended API

hjjvandam · hjjvandam · commit 76361efae089 · 2024-11-28T12:38:40.000+01:00
diff --git a/SRC/DEPRECATED/clatzm.f b/SRC/DEPRECATED/clatzm.f
@@ -148,7 +148,8 @@
 *> \ingroup latzm
 *
 *  =====================================================================
-      SUBROUTINE CLATZM( SIDE, M, N, V, INCV, TAU, C1, C2, LDC, WORK )
+      SUBROUTINE CLATZM( SIDE, M, N, V, INCV, TAU, C1, C2, LDC,
+     $                   WORK )
 *
 *  -- LAPACK computational routine --
 *  -- LAPACK is a software package provided by Univ. of Tennessee,    --
@@ -206,8 +207,8 @@ SUBROUTINE CLATZM( SIDE, M, N, V, INCV, TAU, C1, C2, LDC, WORK )
 *        w := C1 + C2 * v
 *
          CALL CCOPY( M, C1, 1, WORK, 1 )
-         CALL CGEMV( 'No transpose', M, N-1, ONE, C2, LDC, V, INCV, ONE,
-     $               WORK, 1 )
+         CALL CGEMV( 'No transpose', M, N-1, ONE, C2, LDC, V, INCV,
+     $               ONE, WORK, 1 )
 *
 *        [ C1, C2 ] := [ C1, C2 ] - tau* w * [ 1 , v**H]
 *

Original file line number	Diff line number	Diff line change
`@@ -148,7 +148,8 @@`
`148`	`148`	`*> \ingroup latzm`
`149`	`149`	`*`
`150`	`150`	`* =====================================================================`
`151`		`- SUBROUTINE CLATZM( SIDE, M, N, V, INCV, TAU, C1, C2, LDC, WORK )`
	`151`	`+ SUBROUTINE CLATZM( SIDE, M, N, V, INCV, TAU, C1, C2, LDC,`
	`152`	`+ $ WORK )`
`152`	`153`	`*`
`153`	`154`	`* -- LAPACK computational routine --`
`154`	`155`	`* -- LAPACK is a software package provided by Univ. of Tennessee, --`
`@@ -206,8 +207,8 @@ SUBROUTINE CLATZM( SIDE, M, N, V, INCV, TAU, C1, C2, LDC, WORK )`
`206`	`207`	`* w := C1 + C2 * v`
`207`	`208`	`*`
`208`	`209`	`CALL CCOPY( M, C1, 1, WORK, 1 )`
`209`		`- CALL CGEMV( 'No transpose', M, N-1, ONE, C2, LDC, V, INCV, ONE,`
`210`		`- $ WORK, 1 )`
	`210`	`+ CALL CGEMV( 'No transpose', M, N-1, ONE, C2, LDC, V, INCV,`
	`211`	`+ $ ONE, WORK, 1 )`
`211`	`212`	`*`
`212`	`213`	`* [ C1, C2 ] := [ C1, C2 ] - tau* w * [ 1 , v**H]`
`213`	`214`	`*`