Commit: 6fe9695e0b8370e5a8d02dd35ddc35eb0a8648d1 - MolDS (git)

Commit MetaInfo

• Révision: 6fe9695e0b8370e5a8d02dd35ddc35eb0a8648d1 (tree)
• l'heure: 2013-07-30 23:38:23
• Auteur: Mikiya Fujii <mikiya.fujii@gmai...>
• Commiter: Mikiya Fujii

Message de Log

bug in ldc parameter of wrappers::Blas::Dgemm is fixed. #31807

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

Change Summary

• modified: src/wrappers/Blas.cpp

Modification

--- a/src/wrappers/Blas.cpp
+++ b/src/wrappers/Blas.cpp
@@ -305,10 +305,9 @@ void Blas::Dgemm(bool isColumnMajorMatrixA,
 #else
    tmpC = (double*)malloc( sizeof(double)*m*n);
 #endif
-   molds_blas_int ldc;
+   molds_blas_int ldc = m;
    if(isColumnMajorMatrixC){
       this->Dcopy(m*n, &matrixC[0][0], tmpC);
-      ldc = m;
    }
    else{
       for(molds_blas_int i=0; i<m; i++){
@@ -316,7 +315,6 @@ void Blas::Dgemm(bool isColumnMajorMatrixA,
             tmpC[i+j*m] = matrixC[i][j];
          }
       }
-      ldc = n;
    }
 
    //call blas