Skip to content

Commit

Permalink
Fix docs stprfb
Browse files Browse the repository at this point in the history 
Use transpose rather than conjugate transpose to
be consistent with other real routines
  • Loading branch information
@angsch
angsch committed May 2, 2022
1 parent ea86668 commit 9523efe
Show file tree
Hide file tree
Showing 4 changed files with 46 additions and 46 deletions.
2 changes: 1 addition & 1 deletion SRC/ctprfb.f
View file
Original file line number Diff line number Diff line change
@@ -1,4 +1,4 @@
*> \brief \b CTPRFB applies a real or complex "triangular-pentagonal" blocked reflector to a real or complex matrix, which is composed of two blocks.
*> \brief \b CTPRFB applies a complex "triangular-pentagonal" block reflector to a complex matrix, which is composed of two blocks.
*
* =========== DOCUMENTATION ===========
*
Expand Down
2 changes: 1 addition & 1 deletion SRC/dtprfb.f
View file
Original file line number Diff line number Diff line change
@@ -1,4 +1,4 @@
*> \brief \b DTPRFB applies a real or complex "triangular-pentagonal" blocked reflector to a real or complex matrix, which is composed of two blocks.
*> \brief \b DTPRFB applies a real "triangular-pentagonal" block reflector to a real matrix, which is composed of two blocks.
*
* =========== DOCUMENTATION ===========
*
Expand Down
86 changes: 43 additions & 43 deletions SRC/stprfb.f
View file
Original file line number Diff line number Diff line change
@@ -1,4 +1,4 @@
*> \brief \b STPRFB applies a real or complex "triangular-pentagonal" blocked reflector to a real or complex matrix, which is composed of two blocks.
*> \brief \b STPRFB applies a real "triangular-pentagonal" block reflector to a real matrix, which is composed of two blocks.
*
* =========== DOCUMENTATION ===========
*
Expand Down Expand Up @@ -37,7 +37,7 @@
*> \verbatim
*>
*> STPRFB applies a real "triangular-pentagonal" block reflector H or its
*> conjugate transpose H^H to a real matrix C, which is composed of two
*> transpose H**T to a real matrix C, which is composed of two
*> blocks A and B, either from the left or right.
*>
*> \endverbatim
Expand All @@ -48,15 +48,15 @@
*> \param[in] SIDE
*> \verbatim
*> SIDE is CHARACTER*1
*> = 'L': apply H or H^H from the Left
*> = 'R': apply H or H^H from the Right
*> = 'L': apply H or H**T from the Left
*> = 'R': apply H or H**T from the Right
*> \endverbatim
*>
*> \param[in] TRANS
*> \verbatim
*> TRANS is CHARACTER*1
*> = 'N': apply H (No transpose)
*> = 'C': apply H^H (Conjugate transpose)
*> = 'T': apply H**T (Transpose)
*> \endverbatim
*>
*> \param[in] DIRECT
Expand Down Expand Up @@ -145,7 +145,7 @@
*> (LDA,N) if SIDE = 'L' or (LDA,K) if SIDE = 'R'
*> On entry, the K-by-N or M-by-K matrix A.
*> On exit, A is overwritten by the corresponding block of
*> H*C or H^H*C or C*H or C*H^H. See Further Details.
*> H*C or H**T*C or C*H or C*H**T. See Further Details.
*> \endverbatim
*>
*> \param[in] LDA
Expand All @@ -161,7 +161,7 @@
*> B is REAL array, dimension (LDB,N)
*> On entry, the M-by-N matrix B.
*> On exit, B is overwritten by the corresponding block of
*> H*C or H^H*C or C*H or C*H^H. See Further Details.
*> H*C or H**T*C or C*H or C*H**T. See Further Details.
*> \endverbatim
*>
*> \param[in] LDB
Expand Down Expand Up @@ -327,13 +327,13 @@ SUBROUTINE STPRFB( SIDE, TRANS, DIRECT, STOREV, M, N, K, L,
* Let W = [ I ] (K-by-K)
* [ V ] (M-by-K)
*
* Form H C or H^H C where C = [ A ] (K-by-N)
* [ B ] (M-by-N)
* Form H C or H**T C where C = [ A ] (K-by-N)
* [ B ] (M-by-N)
*
* H = I - W T W^H or H^H = I - W T^H W^H
* H = I - W T W**T or H**T = I - W T**T W**T
*
* A = A - T (A + V^H B) or A = A - T^H (A + V^H B)
* B = B - V T (A + V^H B) or B = B - V T^H (A + V^H B)
* A = A - T (A + V**T B) or A = A - T**T (A + V**T B)
* B = B - V T (A + V**T B) or B = B - V T**T (A + V**T B)
*
* ---------------------------------------------------------------------------
*
Expand Down Expand Up @@ -388,12 +388,12 @@ SUBROUTINE STPRFB( SIDE, TRANS, DIRECT, STOREV, M, N, K, L,
* Let W = [ I ] (K-by-K)
* [ V ] (N-by-K)
*
* Form C H or C H^H where C = [ A B ] (A is M-by-K, B is M-by-N)
* Form C H or C H**T where C = [ A B ] (A is M-by-K, B is M-by-N)
*
* H = I - W T W^H or H^H = I - W T^H W^H
* H = I - W T W**T or H**T = I - W T**T W**T
*
* A = A - (A + B V) T or A = A - (A + B V) T^H
* B = B - (A + B V) T V^H or B = B - (A + B V) T^H V^H
* A = A - (A + B V) T or A = A - (A + B V) T**T
* B = B - (A + B V) T V**T or B = B - (A + B V) T**T V**T
*
* ---------------------------------------------------------------------------
*
Expand Down Expand Up @@ -448,13 +448,13 @@ SUBROUTINE STPRFB( SIDE, TRANS, DIRECT, STOREV, M, N, K, L,
* Let W = [ V ] (M-by-K)
* [ I ] (K-by-K)
*
* Form H C or H^H C where C = [ B ] (M-by-N)
* [ A ] (K-by-N)
* Form H C or H**T C where C = [ B ] (M-by-N)
* [ A ] (K-by-N)
*
* H = I - W T W^H or H^H = I - W T^H W^H
* H = I - W T W**T or H**T = I - W T**T W**T
*
* A = A - T (A + V^H B) or A = A - T^H (A + V^H B)
* B = B - V T (A + V^H B) or B = B - V T^H (A + V^H B)
* A = A - T (A + V**T B) or A = A - T**T (A + V**T B)
* B = B - V T (A + V**T B) or B = B - V T**T (A + V**T B)
*
* ---------------------------------------------------------------------------
*
Expand Down Expand Up @@ -510,12 +510,12 @@ SUBROUTINE STPRFB( SIDE, TRANS, DIRECT, STOREV, M, N, K, L,
* Let W = [ V ] (N-by-K)
* [ I ] (K-by-K)
*
* Form C H or C H^H where C = [ B A ] (B is M-by-N, A is M-by-K)
* Form C H or C H**T where C = [ B A ] (B is M-by-N, A is M-by-K)
*
* H = I - W T W^H or H^H = I - W T^H W^H
* H = I - W T W**T or H**T = I - W T**T W**T
*
* A = A - (A + B V) T or A = A - (A + B V) T^H
* B = B - (A + B V) T V^H or B = B - (A + B V) T^H V^H
* A = A - (A + B V) T or A = A - (A + B V) T**T
* B = B - (A + B V) T V**T or B = B - (A + B V) T**T V**T
*
* ---------------------------------------------------------------------------
*
Expand Down Expand Up @@ -569,13 +569,13 @@ SUBROUTINE STPRFB( SIDE, TRANS, DIRECT, STOREV, M, N, K, L,
*
* Let W = [ I V ] ( I is K-by-K, V is K-by-M )
*
* Form H C or H^H C where C = [ A ] (K-by-N)
* [ B ] (M-by-N)
* Form H C or H**T C where C = [ A ] (K-by-N)
* [ B ] (M-by-N)
*
* H = I - W^H T W or H^H = I - W^H T^H W
* H = I - W**T T W or H**T = I - W**T T**T W
*
* A = A - T (A + V B) or A = A - T^H (A + V B)
* B = B - V^H T (A + V B) or B = B - V^H T^H (A + V B)
* A = A - T (A + V B) or A = A - T**T (A + V B)
* B = B - V**T T (A + V B) or B = B - V**T T**T (A + V B)
*
* ---------------------------------------------------------------------------
*
Expand Down Expand Up @@ -629,12 +629,12 @@ SUBROUTINE STPRFB( SIDE, TRANS, DIRECT, STOREV, M, N, K, L,
*
* Let W = [ I V ] ( I is K-by-K, V is K-by-N )
*
* Form C H or C H^H where C = [ A B ] (A is M-by-K, B is M-by-N)
* Form C H or C H**T where C = [ A B ] (A is M-by-K, B is M-by-N)
*
* H = I - W^H T W or H^H = I - W^H T^H W
* H = I - W**T T W or H**T = I - W**T T**T W
*
* A = A - (A + B V^H) T or A = A - (A + B V^H) T^H
* B = B - (A + B V^H) T V or B = B - (A + B V^H) T^H V
* A = A - (A + B V**T) T or A = A - (A + B V**T) T**T
* B = B - (A + B V**T) T V or B = B - (A + B V**T) T**T V
*
* ---------------------------------------------------------------------------
*
Expand Down Expand Up @@ -688,13 +688,13 @@ SUBROUTINE STPRFB( SIDE, TRANS, DIRECT, STOREV, M, N, K, L,
*
* Let W = [ V I ] ( I is K-by-K, V is K-by-M )
*
* Form H C or H^H C where C = [ B ] (M-by-N)
* [ A ] (K-by-N)
* Form H C or H**T C where C = [ B ] (M-by-N)
* [ A ] (K-by-N)
*
* H = I - W^H T W or H^H = I - W^H T^H W
* H = I - W**T T W or H**T = I - W**T T**T W
*
* A = A - T (A + V B) or A = A - T^H (A + V B)
* B = B - V^H T (A + V B) or B = B - V^H T^H (A + V B)
* A = A - T (A + V B) or A = A - T**T (A + V B)
* B = B - V**T T (A + V B) or B = B - V**T T**T (A + V B)
*
* ---------------------------------------------------------------------------
*
Expand Down Expand Up @@ -748,12 +748,12 @@ SUBROUTINE STPRFB( SIDE, TRANS, DIRECT, STOREV, M, N, K, L,
*
* Let W = [ V I ] ( I is K-by-K, V is K-by-N )
*
* Form C H or C H^H where C = [ B A ] (A is M-by-K, B is M-by-N)
* Form C H or C H**T where C = [ B A ] (A is M-by-K, B is M-by-N)
*
* H = I - W^H T W or H^H = I - W^H T^H W
* H = I - W**T T W or H**T = I - W**T T**T W
*
* A = A - (A + B V^H) T or A = A - (A + B V^H) T^H
* B = B - (A + B V^H) T V or B = B - (A + B V^H) T^H V
* A = A - (A + B V**T) T or A = A - (A + B V**T) T**T
* B = B - (A + B V**T) T V or B = B - (A + B V**T) T**T V
*
* ---------------------------------------------------------------------------
*
Expand Down
2 changes: 1 addition & 1 deletion SRC/ztprfb.f
View file
Original file line number Diff line number Diff line change
@@ -1,4 +1,4 @@
*> \brief \b ZTPRFB applies a real or complex "triangular-pentagonal" blocked reflector to a real or complex matrix, which is composed of two blocks.
*> \brief \b ZTPRFB applies a complex "triangular-pentagonal" block reflector to a complex matrix, which is composed of two blocks.
*
* =========== DOCUMENTATION ===========
*
Expand Down

0 comments on commit 9523efe

Please sign in to comment.