Skip to content

Commit 9523efe

Browse files
angschangsch
committed
Fix docs stprfb
Use transpose rather than conjugate transpose to be consistent with other real routines
1 parent ea86668 commit 9523efe

File tree

4 files changed

+46
-46
lines changed

4 files changed

+46
-46
lines changed

‎SRC/ctprfb.f

Lines changed: 1 addition & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -1,4 +1,4 @@
1-
*> \brief \b CTPRFB applies a real or complex "triangular-pentagonal" blocked reflector to a real or complex matrix, which is composed of two blocks.
1+
*> \brief \b CTPRFB applies a complex "triangular-pentagonal" block reflector to a complex matrix, which is composed of two blocks.
22
*
33
* =========== DOCUMENTATION ===========
44
*

‎SRC/dtprfb.f

Lines changed: 1 addition & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -1,4 +1,4 @@
1-
*> \brief \b DTPRFB applies a real or complex "triangular-pentagonal" blocked reflector to a real or complex matrix, which is composed of two blocks.
1+
*> \brief \b DTPRFB applies a real "triangular-pentagonal" block reflector to a real matrix, which is composed of two blocks.
22
*
33
* =========== DOCUMENTATION ===========
44
*

‎SRC/stprfb.f

Lines changed: 43 additions & 43 deletions
Original file line numberDiff line numberDiff line change
@@ -1,4 +1,4 @@
1-
*> \brief \b STPRFB applies a real or complex "triangular-pentagonal" blocked reflector to a real or complex matrix, which is composed of two blocks.
1+
*> \brief \b STPRFB applies a real "triangular-pentagonal" block reflector to a real matrix, which is composed of two blocks.
22
*
33
* =========== DOCUMENTATION ===========
44
*
@@ -37,7 +37,7 @@
3737
*> \verbatim
3838
*>
3939
*> STPRFB applies a real "triangular-pentagonal" block reflector H or its
40-
*> conjugate transpose H^H to a real matrix C, which is composed of two
40+
*> transpose H**T to a real matrix C, which is composed of two
4141
*> blocks A and B, either from the left or right.
4242
*>
4343
*> \endverbatim
@@ -48,15 +48,15 @@
4848
*> \param[in] SIDE
4949
*> \verbatim
5050
*> SIDE is CHARACTER*1
51-
*> = 'L': apply H or H^H from the Left
52-
*> = 'R': apply H or H^H from the Right
51+
*> = 'L': apply H or H**T from the Left
52+
*> = 'R': apply H or H**T from the Right
5353
*> \endverbatim
5454
*>
5555
*> \param[in] TRANS
5656
*> \verbatim
5757
*> TRANS is CHARACTER*1
5858
*> = 'N': apply H (No transpose)
59-
*> = 'C': apply H^H (Conjugate transpose)
59+
*> = 'T': apply H**T (Transpose)
6060
*> \endverbatim
6161
*>
6262
*> \param[in] DIRECT
@@ -145,7 +145,7 @@
145145
*> (LDA,N) if SIDE = 'L' or (LDA,K) if SIDE = 'R'
146146
*> On entry, the K-by-N or M-by-K matrix A.
147147
*> On exit, A is overwritten by the corresponding block of
148-
*> H*C or H^H*C or C*H or C*H^H. See Further Details.
148+
*> H*C or H**T*C or C*H or C*H**T. See Further Details.
149149
*> \endverbatim
150150
*>
151151
*> \param[in] LDA
@@ -161,7 +161,7 @@
161161
*> B is REAL array, dimension (LDB,N)
162162
*> On entry, the M-by-N matrix B.
163163
*> On exit, B is overwritten by the corresponding block of
164-
*> H*C or H^H*C or C*H or C*H^H. See Further Details.
164+
*> H*C or H**T*C or C*H or C*H**T. See Further Details.
165165
*> \endverbatim
166166
*>
167167
*> \param[in] LDB
@@ -327,13 +327,13 @@ SUBROUTINE STPRFB( SIDE, TRANS, DIRECT, STOREV, M, N, K, L,
327327
* Let W = [ I ] (K-by-K)
328328
* [ V ] (M-by-K)
329329
*
330-
* Form H C or H^H C where C = [ A ] (K-by-N)
331-
* [ B ] (M-by-N)
330+
* Form H C or H**T C where C = [ A ] (K-by-N)
331+
* [ B ] (M-by-N)
332332
*
333-
* H = I - W T W^H or H^H = I - W T^H W^H
333+
* H = I - W T W**T or H**T = I - W T**T W**T
334334
*
335-
* A = A - T (A + V^H B) or A = A - T^H (A + V^H B)
336-
* B = B - V T (A + V^H B) or B = B - V T^H (A + V^H B)
335+
* A = A - T (A + V**T B) or A = A - T**T (A + V**T B)
336+
* B = B - V T (A + V**T B) or B = B - V T**T (A + V**T B)
337337
*
338338
* ---------------------------------------------------------------------------
339339
*
@@ -388,12 +388,12 @@ SUBROUTINE STPRFB( SIDE, TRANS, DIRECT, STOREV, M, N, K, L,
388388
* Let W = [ I ] (K-by-K)
389389
* [ V ] (N-by-K)
390390
*
391-
* Form C H or C H^H where C = [ A B ] (A is M-by-K, B is M-by-N)
391+
* Form C H or C H**T where C = [ A B ] (A is M-by-K, B is M-by-N)
392392
*
393-
* H = I - W T W^H or H^H = I - W T^H W^H
393+
* H = I - W T W**T or H**T = I - W T**T W**T
394394
*
395-
* A = A - (A + B V) T or A = A - (A + B V) T^H
396-
* B = B - (A + B V) T V^H or B = B - (A + B V) T^H V^H
395+
* A = A - (A + B V) T or A = A - (A + B V) T**T
396+
* B = B - (A + B V) T V**T or B = B - (A + B V) T**T V**T
397397
*
398398
* ---------------------------------------------------------------------------
399399
*
@@ -448,13 +448,13 @@ SUBROUTINE STPRFB( SIDE, TRANS, DIRECT, STOREV, M, N, K, L,
448448
* Let W = [ V ] (M-by-K)
449449
* [ I ] (K-by-K)
450450
*
451-
* Form H C or H^H C where C = [ B ] (M-by-N)
452-
* [ A ] (K-by-N)
451+
* Form H C or H**T C where C = [ B ] (M-by-N)
452+
* [ A ] (K-by-N)
453453
*
454-
* H = I - W T W^H or H^H = I - W T^H W^H
454+
* H = I - W T W**T or H**T = I - W T**T W**T
455455
*
456-
* A = A - T (A + V^H B) or A = A - T^H (A + V^H B)
457-
* B = B - V T (A + V^H B) or B = B - V T^H (A + V^H B)
456+
* A = A - T (A + V**T B) or A = A - T**T (A + V**T B)
457+
* B = B - V T (A + V**T B) or B = B - V T**T (A + V**T B)
458458
*
459459
* ---------------------------------------------------------------------------
460460
*
@@ -510,12 +510,12 @@ SUBROUTINE STPRFB( SIDE, TRANS, DIRECT, STOREV, M, N, K, L,
510510
* Let W = [ V ] (N-by-K)
511511
* [ I ] (K-by-K)
512512
*
513-
* Form C H or C H^H where C = [ B A ] (B is M-by-N, A is M-by-K)
513+
* Form C H or C H**T where C = [ B A ] (B is M-by-N, A is M-by-K)
514514
*
515-
* H = I - W T W^H or H^H = I - W T^H W^H
515+
* H = I - W T W**T or H**T = I - W T**T W**T
516516
*
517-
* A = A - (A + B V) T or A = A - (A + B V) T^H
518-
* B = B - (A + B V) T V^H or B = B - (A + B V) T^H V^H
517+
* A = A - (A + B V) T or A = A - (A + B V) T**T
518+
* B = B - (A + B V) T V**T or B = B - (A + B V) T**T V**T
519519
*
520520
* ---------------------------------------------------------------------------
521521
*
@@ -569,13 +569,13 @@ SUBROUTINE STPRFB( SIDE, TRANS, DIRECT, STOREV, M, N, K, L,
569569
*
570570
* Let W = [ I V ] ( I is K-by-K, V is K-by-M )
571571
*
572-
* Form H C or H^H C where C = [ A ] (K-by-N)
573-
* [ B ] (M-by-N)
572+
* Form H C or H**T C where C = [ A ] (K-by-N)
573+
* [ B ] (M-by-N)
574574
*
575-
* H = I - W^H T W or H^H = I - W^H T^H W
575+
* H = I - W**T T W or H**T = I - W**T T**T W
576576
*
577-
* A = A - T (A + V B) or A = A - T^H (A + V B)
578-
* B = B - V^H T (A + V B) or B = B - V^H T^H (A + V B)
577+
* A = A - T (A + V B) or A = A - T**T (A + V B)
578+
* B = B - V**T T (A + V B) or B = B - V**T T**T (A + V B)
579579
*
580580
* ---------------------------------------------------------------------------
581581
*
@@ -629,12 +629,12 @@ SUBROUTINE STPRFB( SIDE, TRANS, DIRECT, STOREV, M, N, K, L,
629629
*
630630
* Let W = [ I V ] ( I is K-by-K, V is K-by-N )
631631
*
632-
* Form C H or C H^H where C = [ A B ] (A is M-by-K, B is M-by-N)
632+
* Form C H or C H**T where C = [ A B ] (A is M-by-K, B is M-by-N)
633633
*
634-
* H = I - W^H T W or H^H = I - W^H T^H W
634+
* H = I - W**T T W or H**T = I - W**T T**T W
635635
*
636-
* A = A - (A + B V^H) T or A = A - (A + B V^H) T^H
637-
* B = B - (A + B V^H) T V or B = B - (A + B V^H) T^H V
636+
* A = A - (A + B V**T) T or A = A - (A + B V**T) T**T
637+
* B = B - (A + B V**T) T V or B = B - (A + B V**T) T**T V
638638
*
639639
* ---------------------------------------------------------------------------
640640
*
@@ -688,13 +688,13 @@ SUBROUTINE STPRFB( SIDE, TRANS, DIRECT, STOREV, M, N, K, L,
688688
*
689689
* Let W = [ V I ] ( I is K-by-K, V is K-by-M )
690690
*
691-
* Form H C or H^H C where C = [ B ] (M-by-N)
692-
* [ A ] (K-by-N)
691+
* Form H C or H**T C where C = [ B ] (M-by-N)
692+
* [ A ] (K-by-N)
693693
*
694-
* H = I - W^H T W or H^H = I - W^H T^H W
694+
* H = I - W**T T W or H**T = I - W**T T**T W
695695
*
696-
* A = A - T (A + V B) or A = A - T^H (A + V B)
697-
* B = B - V^H T (A + V B) or B = B - V^H T^H (A + V B)
696+
* A = A - T (A + V B) or A = A - T**T (A + V B)
697+
* B = B - V**T T (A + V B) or B = B - V**T T**T (A + V B)
698698
*
699699
* ---------------------------------------------------------------------------
700700
*
@@ -748,12 +748,12 @@ SUBROUTINE STPRFB( SIDE, TRANS, DIRECT, STOREV, M, N, K, L,
748748
*
749749
* Let W = [ V I ] ( I is K-by-K, V is K-by-N )
750750
*
751-
* Form C H or C H^H where C = [ B A ] (A is M-by-K, B is M-by-N)
751+
* Form C H or C H**T where C = [ B A ] (A is M-by-K, B is M-by-N)
752752
*
753-
* H = I - W^H T W or H^H = I - W^H T^H W
753+
* H = I - W**T T W or H**T = I - W**T T**T W
754754
*
755-
* A = A - (A + B V^H) T or A = A - (A + B V^H) T^H
756-
* B = B - (A + B V^H) T V or B = B - (A + B V^H) T^H V
755+
* A = A - (A + B V**T) T or A = A - (A + B V**T) T**T
756+
* B = B - (A + B V**T) T V or B = B - (A + B V**T) T**T V
757757
*
758758
* ---------------------------------------------------------------------------
759759
*

‎SRC/ztprfb.f

Lines changed: 1 addition & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -1,4 +1,4 @@
1-
*> \brief \b ZTPRFB applies a real or complex "triangular-pentagonal" blocked reflector to a real or complex matrix, which is composed of two blocks.
1+
*> \brief \b ZTPRFB applies a complex "triangular-pentagonal" block reflector to a complex matrix, which is composed of two blocks.
22
*
33
* =========== DOCUMENTATION ===========
44
*

0 commit comments

Comments
 (0)