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 | |
parent | 8e844f51fe7acc5ed08d2b7fbac3aa890cb04236 (diff) | |
download | lapack-b472675224a899727e448e8185a3776d40f12077.tar.gz lapack-b472675224a899727e448e8185a3776d40f12077.tar.bz2 lapack-b472675224a899727e448e8185a3776d40f12077.zip |
Same for hetrs2 routines
-rw-r--r-- | SRC/chetrs2.f | 8 | ||||
-rw-r--r-- | SRC/zhetrs2.f | 8 |
2 files changed, 8 insertions, 8 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) )) ] * diff --git a/SRC/zhetrs2.f b/SRC/zhetrs2.f index 3695bca4..d57620d1 100644 --- a/SRC/zhetrs2.f +++ b/SRC/zhetrs2.f @@ -142,7 +142,7 @@ * * Compute (U \P' * B) -> B [ (U \P' * B) ] * - CALL ZTRSM('L','U','N','U',N,NRHS,ONE,A,N,B,N) + CALL ZTRSM('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 ZTRSM('L','U','C','U',N,NRHS,ONE,A,N,B,N) + CALL ZTRSM('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 ZTRSM('L','L','N','U',N,NRHS,ONE,A,N,B,N) + CALL ZTRSM('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 ZTRSM('L','L','C','U',N,NRHS,ONE,A,N,B,N) + CALL ZTRSM('L','L','C','U',N,NRHS,ONE,A,LDA,B,LDB) * * P * B [ P * (L' \ (D \ (L \P' * B) )) ] * |