Commit: 0a218bcdc44f6daf20a42563ed0039951ecff340 - MolDS (git)

Commit MetaInfo

• Revision: 0a218bcdc44f6daf20a42563ed0039951ecff340 (tree)
• Time: 2012-11-26 16:55:14
• Author: Katsuhiko Nishimra <ktns.87@gmai...>
• Commiter: Katsuhiko Nishimra

Log Message

Fix dsymv wrapper function. #29876

git-svn-id: https://svn.sourceforge.jp/svnroot/molds/trunk@1129 1136aad2-a195-0410-b898-f5ea1d11b9d8

Change Summary

• modified: src/wrappers/Blas.cpp

Incremental Difference

--- a/src/wrappers/Blas.cpp
+++ b/src/wrappers/Blas.cpp
@@ -183,7 +183,7 @@ void Blas::Dsymv(int n, double alpha,
            double beta,
            double*       vectorY, int incrementY) const{
    double const* a = &matrixA[0][0];
-   char uploA='U';
+   char uploA='L';
    int lda = n;
    dsymv(&uploA, &n, &alpha, a, &lda, vectorX, &incrementX, &beta, vectorY, &incrementY);
 }