diff options
-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) )) ] * |