Commit: 662c05d299085a4c028cea7cf5859f08a5f7bd11 - MolDS (git)

Commit MetaInfo

• Revision: 662c05d299085a4c028cea7cf5859f08a5f7bd11 (tree)
• Time: 2012-11-26 16:11:00
• Author: Katsuhiko Nishimra <ktns.87@gmai...>
• Commiter: Katsuhiko Nishimra

Log Message

Fix dsyr wrapper function. #29799

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

Change Summary

• modified: src/wrappers/Blas.cpp

Incremental Difference

--- a/src/wrappers/Blas.cpp
+++ b/src/wrappers/Blas.cpp
@@ -202,7 +202,7 @@ void Blas::Dsyr(int n, double alpha,
           double const* vectorX, int incrementX,
           double ** matrixA)const{
    double* a = &matrixA[0][0];
-   char uploA='U';
+   char uploA='L';
    int lda = n;
    dsyr(&uploA, &n, &alpha, vectorX, &incrementX, a, &lda);
 #pragma omp parallel for schedule(auto)