diff options
author | julie <julielangou@users.noreply.github.com> | 2011-01-27 14:25:04 +0000 |
---|---|---|
committer | julie <julielangou@users.noreply.github.com> | 2011-01-27 14:25:04 +0000 |
commit | b472675224a899727e448e8185a3776d40f12077 (patch) | |
tree | e5e02fc51e78abb24877beb0efc1b9105b231ad0 /SRC/chetrs2.f | |
parent | 8e844f51fe7acc5ed08d2b7fbac3aa890cb04236 (diff) |
Same for hetrs2 routines
Diffstat (limited to 'SRC/chetrs2.f')
-rw-r--r-- | SRC/chetrs2.f | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/SRC/chetrs2.f b/SRC/chetrs2.f index 52c99601..72a9559f 100644 --- a/SRC/chetrs2.f +++ b/SRC/chetrs2.f @@ -142,7 +142,7 @@ * * Compute (U \P' * B) -> B [ (U \P' * B) ] * - CALL CTRSM('L','U','N','U',N,NRHS,ONE,A,N,B,N) + CALL CTRSM('L','U','N','U',N,NRHS,ONE,A,LDA,B,LDB) * * Compute D \ B -> B [ D \ (U \P' * B) ] * @@ -171,7 +171,7 @@ * * Compute (U' \ B) -> B [ U' \ (D \ (U \P' * B) ) ] * - CALL CTRSM('L','U','C','U',N,NRHS,ONE,A,N,B,N) + CALL CTRSM('L','U','C','U',N,NRHS,ONE,A,LDA,B,LDB) * * P * B [ P * (U' \ (D \ (U \P' * B) )) ] * @@ -220,7 +220,7 @@ * * Compute (L \P' * B) -> B [ (L \P' * B) ] * - CALL CTRSM('L','L','N','U',N,NRHS,ONE,A,N,B,N) + CALL CTRSM('L','L','N','U',N,NRHS,ONE,A,LDA,B,LDB) * * Compute D \ B -> B [ D \ (L \P' * B) ] * @@ -247,7 +247,7 @@ * * Compute (L' \ B) -> B [ L' \ (D \ (L \P' * B) ) ] * - CALL CTRSM('L','L','C','U',N,NRHS,ONE,A,N,B,N) + CALL CTRSM('L','L','C','U',N,NRHS,ONE,A,LDA,B,LDB) * * P * B [ P * (L' \ (D \ (L \P' * B) )) ] * |