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/slansf.f | |
parent | 8b5dd5433b205f27821b10d5389f55bcd4a1e87a (diff) | |
download | lapack-16973f0c15a4327f8a78b9652f178246895778c1.tar.gz lapack-16973f0c15a4327f8a78b9652f178246895778c1.tar.bz2 lapack-16973f0c15a4327f8a78b9652f178246895778c1.zip |
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/slansf.f')
-rw-r--r-- | SRC/slansf.f | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/SRC/slansf.f b/SRC/slansf.f index 8ec70f3c..d960ef22 100644 --- a/SRC/slansf.f +++ b/SRC/slansf.f @@ -725,7 +725,7 @@ ELSE * A is xpose IF( ILU.EQ.0 ) THEN -* A' is upper +* A**T is upper DO J = 1, K - 2 CALL SLASSQ( J, A( 0+( K+J )*LDA ), 1, SCALE, S ) * U at A(0,k) @@ -746,7 +746,7 @@ CALL SLASSQ( K, A( 0+( K-1 )*LDA ), LDA+1, SCALE, S ) * tri L at A(0,k-1) ELSE -* A' is lower +* A**T is lower DO J = 1, K - 1 CALL SLASSQ( J, A( 0+J*LDA ), 1, SCALE, S ) * U at A(0,0) @@ -807,7 +807,7 @@ ELSE * A is xpose IF( ILU.EQ.0 ) THEN -* A' is upper +* A**T is upper DO J = 1, K - 1 CALL SLASSQ( J, A( 0+( K+1+J )*LDA ), 1, SCALE, S ) * U at A(0,k+1) @@ -828,7 +828,7 @@ CALL SLASSQ( K, A( 0+K*LDA ), LDA+1, SCALE, S ) * tri L at A(0,k) ELSE -* A' is lower +* A**T is lower DO J = 1, K - 1 CALL SLASSQ( J, A( 0+( J+1 )*LDA ), 1, SCALE, S ) * U at A(0,1) |