updating comment on zlarf1f.f

jprhyne · jprhyne · commit 15ec3327ec85 · 2024-06-04T03:21:36.000-04:00
diff --git a/SRC/zlarf1f.f b/SRC/zlarf1f.f
@@ -219,7 +219,7 @@ SUBROUTINE ZLARF1F( SIDE, M, N, V, INCV, TAU, C, LDC, WORK )
 *
 *           C(1:lastv,1:lastc) := C(...) - tau * v(1:lastv,1) * w(1:lastc,1)**H
 *
-            ! C(1, 1:lastc)   := C(...) - tau * v(1,1) * w(1:lastc,1)**T
+            ! C(1, 1:lastc)   := C(...) - tau * v(1,1) * w(1:lastc,1)**H
             !                  = C(...) - tau * Conj(w(1:lastc,1))
                DO I = 1, LASTC
                   C(1,I) = C(1,I) - TAU * DCONJG(WORK(I))

Original file line number	Diff line number	Diff line change
`@@ -219,7 +219,7 @@ SUBROUTINE ZLARF1F( SIDE, M, N, V, INCV, TAU, C, LDC, WORK )`
`219`	`219`	`*`
`220`	`220`	`* C(1:lastv,1:lastc) := C(...) - tau * v(1:lastv,1) * w(1:lastc,1)**H`
`221`	`221`	`*`
`222`		`- ! C(1, 1:lastc) := C(...) - tau * v(1,1) * w(1:lastc,1)**T`
	`222`	`+ ! C(1, 1:lastc) := C(...) - tau * v(1,1) * w(1:lastc,1)**H`
`223`	`223`	`! = C(...) - tau * Conj(w(1:lastc,1))`
`224`	`224`	`DO I = 1, LASTC`
`225`	`225`	`C(1,I) = C(1,I) - TAU * DCONJG(WORK(I))`