diff options
| author | julie <julielangou@users.noreply.github.com> | 2011-04-07 13:53:54 +0000 |
|---|---|---|
| committer | julie <julielangou@users.noreply.github.com> | 2011-04-07 13:53:54 +0000 |
| commit | 16973f0c15a4327f8a78b9652f178246895778c1 (patch) | |
| tree | 1d022faeffac8e1524f4f73517483f4cd828038d /SRC/clanhf.f | |
| parent | 8b5dd5433b205f27821b10d5389f55bcd4a1e87a (diff) | |
Second and hopefully last pass to homgenize notation for transpose (**T) and conjugate transpose (**H)
Corresponds to bug0024
Please take a look and let me know if you find some old notation of transpose.
I am going to close bug0024.
Julie
Diffstat (limited to 'SRC/clanhf.f')
| -rw-r--r-- | SRC/clanhf.f | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/SRC/clanhf.f b/SRC/clanhf.f index fb89fd5a..621a3028 100644 --- a/SRC/clanhf.f +++ b/SRC/clanhf.f @@ -1026,7 +1026,7 @@ ELSE * A is xpose & A is k by n IF( ILU.EQ.0 ) THEN -* A' is upper +* A**H is upper DO J = 1, K - 2 CALL CLASSQ( J, A( 0+( K+J )*LDA ), 1, SCALE, S ) * U at A(0,k) @@ -1080,7 +1080,7 @@ L = L + LDA + 1 END DO ELSE -* A' is lower +* A**H is lower DO J = 1, K - 1 CALL CLASSQ( J, A( 0+J*LDA ), 1, SCALE, S ) * U at A(0,0) @@ -1215,7 +1215,7 @@ ELSE * A is xpose IF( ILU.EQ.0 ) THEN -* A' is upper +* A**H is upper DO J = 1, K - 1 CALL CLASSQ( J, A( 0+( K+1+J )*LDA ), 1, SCALE, S ) * U at A(0,k+1) @@ -1281,7 +1281,7 @@ END IF END IF ELSE -* A' is lower +* A**H is lower DO J = 1, K - 1 CALL CLASSQ( J, A( 0+( J+1 )*LDA ), 1, SCALE, S ) * U at A(0,1) |