Commit: dbc6d52c4017fa9a06f2e5a16dec29710294530a - MolDS (git)

Commit MetaInfo

• Revisión: dbc6d52c4017fa9a06f2e5a16dec29710294530a (tree)
• Tiempo: 2012-12-29 14:25:10
• Autor: Katsuhiko Nishimra <ktns.87@gmai...>
• Commiter: Katsuhiko Nishimra

Log Message

Remove Blas/Lapack_GNU.cpp. #30409

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

Cambiar Resumen

• delete: src/wrappers/Blas_GNU.cpp
• delete: src/wrappers/Lapack_GNU.cpp

Diferencia incremental

--- a/src/wrappers/Blas_GNU.cpp
+++ /dev/null
@@ -1,296 +0,0 @@
-//************************************************************************//
-// Copyright (C) 2011-2012 Mikiya Fujii                                   // 
-// Copyright (C) 2012-2012 Katsuhiko Nishimra                             // 
-//                                                                        // 
-// This file is part of MolDS.                                            // 
-//                                                                        // 
-// MolDS is free software: you can redistribute it and/or modify          // 
-// it under the terms of the GNU General Public License as published by   // 
-// the Free Software Foundation, either version 3 of the License, or      // 
-// (at your option) any later version.                                    // 
-//                                                                        // 
-// MolDS is distributed in the hope that it will be useful,               // 
-// but WITHOUT ANY WARRANTY; without even the implied warranty of         // 
-// MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the          // 
-// GNU General Public License for more details.                           // 
-//                                                                        // 
-// You should have received a copy of the GNU General Public License      // 
-// along with MolDS.  If not, see <http://www.gnu.org/licenses/>.         // 
-//************************************************************************//
-#include<stdio.h>
-#include<stdlib.h>
-#include<iostream>
-#include<sstream>
-#include<math.h>
-#include<string>
-#include<stdexcept>
-#include<boost/format.hpp>
-#include"cblas.h"
-#include"../base/PrintController.h"
-#include"../base/MolDSException.h"
-#include"../base/Uncopyable.h"
-#include"Blas.h"
-using namespace std;
-using namespace MolDS_base;
-
-namespace MolDS_wrappers{
-Blas* Blas::blas = NULL;
-
-Blas::Blas(){
-}
-
-Blas::~Blas(){
-}
-
-Blas* Blas::GetInstance(){
-   if(blas == NULL){
-      blas = new Blas();
-      //this->OutputLog("Blas created.\n\n");
-   }
-   return blas;
-}
-
-void Blas::DeleteInstance(){
-   if(blas != NULL){
-      delete blas;
-      //this->OutputLog("Blas deleted\n\n");
-   }
-   blas = NULL;
-}
-
-// vectorY = vectorX
-//    vectorX: n-vector
-//    vectorY: n-vector
-void Blas::Dcopy(molds_blas_int n,
-                 double const* vectorX,
-                 double *      vectorY)const{
-   molds_blas_int incrementX=1;
-   molds_blas_int incrementY=1;
-   this->Dcopy(n, vectorX, incrementX, vectorY, incrementY);
-}
-
-// vectorY = vectorX
-//    vectorX: n-vector
-//    vectorY: n-vector
-void Blas::Dcopy(molds_blas_int n,
-                 double const* vectorX, molds_blas_int incrementX,
-                 double*       vectorY, molds_blas_int incrementY) const{
-   double* x = const_cast<double*>(&vectorX[0]);
-   cblas_dcopy(n, x, incrementX, vectorY, incrementY);
-}
-
-// vectorY = alpha*vectorX + vectorY
-//    vectorX: n-vector
-//    vectorY: n-vector
-void Blas::Daxpy(molds_blas_int n, double alpha,
-           double const* vectorX,
-           double*       vectorY) const{
-   molds_blas_int incrementX=1;
-   molds_blas_int incrementY=1;
-   this->Daxpy(n, alpha, vectorX, incrementX, vectorY, incrementY);
-}
-
-// vectorY = alpha*vectorX + vectorY
-//    vectorX: n-vector
-//    vectorY: n-vector
-void Blas::Daxpy(molds_blas_int n, double alpha,
-           double const* vectorX, molds_blas_int incrementX,
-           double*       vectorY, molds_blas_int incrementY) const{
-   double* x = const_cast<double*>(&vectorX[0]);
-   cblas_daxpy(n, alpha, x, incrementX, vectorY, incrementY);
-}
-
-// returns vectorX^T*vectorY
-//    vectorX: n-vector
-//    vectorY: n-vector
-double Blas::Ddot(molds_blas_int n,
-            double const* vectorX,
-            double const* vectorY) const{
-   molds_blas_int incrementX=1;
-   molds_blas_int incrementY=1;
-   return this->Ddot(n, vectorX, incrementX, vectorY, incrementY);
-}
-
-// returns vectorX^T*vectorY
-//    vectorX: n-vector
-//    vectorY: n-vector
-double Blas::Ddot(molds_blas_int n,
-            double const* vectorX, molds_blas_int incrementX,
-            double const* vectorY, molds_blas_int incrementY)const{
-   double* x=const_cast<double*>(vectorX),
-         * y=const_cast<double*>(vectorY);
-   return cblas_ddot(n, x, incrementX, y, incrementY);
-}
-
-// vectorY = matrixA*vectorX
-//    matrixA: m*n-matrix (matrixA[m][n] in row-major (C/C++ style))
-//    vectorX: n-vector
-//    vectorY: m-vector
-void Blas::Dgemv(molds_blas_int m, molds_blas_int n,
-                 double const* const* matrixA,
-                 double const* vectorX,
-                 double*       vectorY) const{
-   bool isColumnMajorMatrixA = false; // because, in general, C/C++ style is row-major.
-   molds_blas_int incrementX=1;
-   molds_blas_int incrementY=1;
-   double alpha  =1.0; 
-   double beta   =0.0; 
-   this->Dgemv(isColumnMajorMatrixA, m, n, alpha, matrixA, vectorX, incrementX, beta, vectorY, incrementY);
-}
-
-// vectorY = alpha*matrixA*vectorX + beta*vectorY
-//    matrixA: m*n-matrix 
-//    vectorX: n-vector
-//    vectorY: m-vector
-void Blas::Dgemv(bool isColumnMajorMatrixA,
-                 molds_blas_int m, molds_blas_int n,
-                 double alpha,
-                 double const* const* matrixA,
-                 double const* vectorX,
-                 molds_blas_int incrementX,
-                 double beta,
-                 double* vectorY,
-                 molds_blas_int incrementY) const{
-   double* a = const_cast<double*>(&matrixA[0][0]);
-   double* x = const_cast<double*>(&vectorX[0]);
-   CBLAS_TRANSPOSE transA;
-   if(isColumnMajorMatrixA){
-      transA = CblasNoTrans;
-   }
-   else{
-      transA = CblasTrans;
-      swap(m,n);
-   }
-   molds_blas_int lda = m;
-   cblas_dgemv(CblasColMajor, transA, m, n, alpha, a, lda, x, incrementX, beta, vectorY, incrementY);
-
-}
-
-// vectorY = matrixA*vectorX
-//    matrixA: n*n-matrix,symmetric (Use the upper triangular part)
-//    vectorX: n-vector
-//    vectorY: n-vector
-void Blas::Dsymv(molds_blas_int n,
-           double const* const* matrixA,
-           double const* vectorX,
-           double*       vectorY) const{
-   bool isColumnMajorMatrixA = false; // because, in general, C/C++ style is row-major.
-   molds_blas_int incrementX=1, incrementY=1;
-   double alpha=1.0, beta=0.0;
-   this->Dsymv(n, alpha, matrixA, vectorX, incrementX, beta, vectorY, incrementY);
-}
-
-// vectorY = alpha*matrixA*vectorX + beta*vectorY
-//    matrixA: n*n-matrix,symmetric (Use the upper triangular part)
-//    vectorX: n-vector
-//    vectorY: n-vector
-void Blas::Dsymv(molds_blas_int n, double alpha,
-           double const* const* matrixA,
-           double const* vectorX, molds_blas_int incrementX,
-           double beta,
-           double*       vectorY, molds_blas_int incrementY) const{
-   double* a = const_cast<double*>(&matrixA[0][0]);
-   double* x = const_cast<double*>(&vectorX[0]);
-   CBLAS_UPLO uploA=CblasUpper;
-   molds_blas_int lda = n;
-   cblas_dsymv(CblasRowMajor, uploA, n, alpha, a, lda, x, incrementX, beta, vectorY, incrementY);
-}
-
-// matrixA = alpha*vectorX*vectorX^T + matrixA
-//    matrixA: n*n-matrix,symmetric (Use the upper triangular part, and copy it to the lower part.)
-//    vectorX: n-matrix
-void Blas::Dsyr(molds_blas_int n, double alpha,
-          double const* vectorX,
-          double ** matrixA)const{
-   molds_blas_int incrementX=1;
-   this->Dsyr(n, alpha, vectorX, incrementX, matrixA);
-}
-
-void Blas::Dsyr(molds_blas_int n, double alpha,
-          double const* vectorX, molds_blas_int incrementX,
-          double ** matrixA)const{
-   double* a = &matrixA[0][0];
-   double* x = const_cast<double*>(&vectorX[0]);
-   CBLAS_UPLO uploA=CblasUpper;
-   molds_blas_int lda = n;
-   cblas_dsyr(CblasRowMajor, uploA, n, alpha, x, incrementX, a, lda);
-#pragma omp parallel for schedule(auto)
-   for(molds_blas_int i=0;i<n;i++){
-      for(molds_blas_int j=i+1;j<n;j++){
-         matrixA[j][i] = matrixA[i][j];
-      }
-   }
-}
-
-// matrixC = matrixA*matrixB
-//    matrixA: m*k-matrix (matrixA[m][k] in row-major (C/C++ style))
-//    matrixB: k*n-matrix (matrixB[k][n] in row-major (C/C++ style))
-//    matrixC: m*n-matrix (matrixC[m][n] in row-major (C/C++ style))
-void Blas::Dgemm(molds_blas_int m, molds_blas_int n, molds_blas_int k, 
-                 double const* const* matrixA, 
-                 double const* const* matrixB, 
-                 double**             matrixC) const{
-   bool isColumnMajorMatrixA = false; // because, in general, C/C++ style is row-major.
-   bool isColumnMajorMatrixB = false; // because, in general, C/C++ style is row-major.
-   double alpha=1.0;
-   double beta =0.0;
-   this->Dgemm(isColumnMajorMatrixA, isColumnMajorMatrixB, m, n, k, alpha, matrixA, matrixB, beta, matrixC);
-}
-
-// matrixC = alpha*matrixA*matrixB + beta*matrixC
-//    matrixA: m*k-matrix 
-//    matrixB: k*n-matrix 
-//    matrixC: m*n-matrix (matrixC[m][n] in row-major (C/C++ style))
-void Blas::Dgemm(bool isColumnMajorMatrixA, 
-                 bool isColumnMajorMatrixB, 
-                 molds_blas_int m, molds_blas_int n, molds_blas_int k,  
-                 double alpha,
-                 double const* const* matrixA,
-                 double const* const* matrixB,
-                 double beta,
-                 double** matrixC) const{
-   double* a = const_cast<double*>(&matrixA[0][0]);
-   double* b = const_cast<double*>(&matrixB[0][0]);
-   double*       c = &matrixC[0][0];
-
-   molds_blas_int lda;
-   CBLAS_TRANSPOSE transA;
-   if(isColumnMajorMatrixA){
-      transA = CblasNoTrans;
-      lda = m;
-   }
-   else{
-      transA = CblasTrans;
-      lda = k;
-   }
-
-   molds_blas_int ldb;
-   CBLAS_TRANSPOSE transB;
-   if(isColumnMajorMatrixB){
-      transB = CblasNoTrans;
-      ldb = k;
-   }
-   else{
-      transB = CblasTrans;
-      ldb = n;
-   }
-
-   double* tmpC;
-   tmpC = (double*)malloc( sizeof(double)*m*n);
-   for(molds_blas_int i=0; i<m; i++){
-      for(molds_blas_int j=0; j<n; j++){
-         tmpC[i+j*m] = matrixC[i][j];
-      }
-   }
-   molds_blas_int ldc = m;
-   //call blas
-   cblas_dgemm(CblasColMajor, transA, transB, m, n, k, alpha, a, lda, b, ldb, beta, tmpC, ldc);
-   for(molds_blas_int i=0; i<m; i++){
-      for(molds_blas_int j=0; j<n; j++){
-         matrixC[i][j] = tmpC[i+j*m];
-      }
-   }
-   free(tmpC);
-}
-
-}

--- a/src/wrappers/Lapack_GNU.cpp
+++ /dev/null
@@ -1,365 +0,0 @@
-//************************************************************************//
-// Copyright (C) 2011-2012 Mikiya Fujii                                   // 
-//                                                                        // 
-// This file is part of MolDS.                                            // 
-//                                                                        // 
-// MolDS is free software: you can redistribute it and/or modify          // 
-// it under the terms of the GNU General Public License as published by   // 
-// the Free Software Foundation, either version 3 of the License, or      // 
-// (at your option) any later version.                                    // 
-//                                                                        // 
-// MolDS is distributed in the hope that it will be useful,               // 
-// but WITHOUT ANY WARRANTY; without even the implied warranty of         // 
-// MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the          // 
-// GNU General Public License for more details.                           // 
-//                                                                        // 
-// You should have received a copy of the GNU General Public License      // 
-// along with MolDS.  If not, see <http://www.gnu.org/licenses/>.         // 
-//************************************************************************//
-#include<stdio.h>
-#include<stdlib.h>
-#include<limits.h>
-#include<iostream>
-#include<sstream>
-#include<math.h>
-#include<string>
-#include<stdexcept>
-#include<boost/format.hpp>
-#if ( __WORDSIZE == 32 )
-#else
-#define HAVE_LAPACK_CONFIG_H
-#define LAPACK_ILP64
-#endif
-#include"lapacke.h"
-#include"../base/PrintController.h"
-#include"../base/MolDSException.h"
-#include"../base/Uncopyable.h"
-#include"Lapack.h"
-using namespace std;
-using namespace MolDS_base;
-
-namespace MolDS_wrappers{
-Lapack* Lapack::lapack = NULL;
-
-Lapack::Lapack(){
-   this->errorMessageDsyevdInfo = "Error in wrappers::Lapack::Dsyevd: info != 0: info = ";
-   this->errorMessageDsyevdSize = "Error in wrappers::Lapack::Dsyevd: size of matirx < 1\n";
-   this->errorMessageDsysvInfo = "Error in wrappers::Lapack::Dsysv: info != 0: info = ";
-   this->errorMessageDsysvSize = "Error in wrappers::Lapack::Dsysv: size of matirx < 1\n";
-   this->errorMessageDgetrsInfo = "Error in wrappers::Lapack::Dgetrs: info != 0: info = ";
-   this->errorMessageDgetrsSize = "Error in wrappers::Lapack::Dgetrs: size of matirx < 1\n";
-   this->errorMessageDgetrfInfo = "Error in wrappers::Lapack::Dgetrf: info != 0: info = ";
-}
-
-Lapack::~Lapack(){
-}
-
-Lapack* Lapack::GetInstance(){
-   if(lapack == NULL){
-      lapack = new Lapack();
-      //this->OutputLog("Lapack created.\n\n");
-   }
-   return lapack;
-}
-
-void Lapack::DeleteInstance(){
-   if(lapack != NULL){
-      delete lapack;
-      //this->OutputLog("Lapack deleted\n\n");
-   }
-   lapack = NULL;
-}
-
-
-/***
- *
- * return notice
- *    i-th eigen value is eigenValues[i].
- *    i-th eigen vector is (matirx[i][0], matirx[i][1], matirx[i][2], ....).
- *
- * ***/
-molds_lapack_int Lapack::Dsyevd(double** matrix, double* eigenValues, molds_lapack_int size, bool calcEigenVectors){
-   molds_lapack_int info = 0;
-   molds_lapack_int k = 0;
-   molds_lapack_int lwork;
-   molds_lapack_int liwork;
-   char job;
-   char uplo = 'U';
-   molds_lapack_int lda = size;
-   double* convertedMatrix;
-   double* tempEigenValues;
-   double* work;
-   molds_lapack_int* iwork;
-
-   // set job type
-   if(calcEigenVectors){
-      job = 'V';
-   }
-   else{
-      job = 'N';
-   }
-
-   // calc. lwork and liwork
-   if(size < 1 ){
-      stringstream ss;
-      ss << errorMessageDsyevdSize;
-      throw MolDSException(ss.str());
-   }
-   else if(size == 1){
-      lwork = 1;
-      liwork = 1;
-   }
-   else if(1 < size && job == 'N'){
-      lwork = 2*size + 1;
-      liwork = 2;
-   }
-   else{
-      // calc. k
-      double temp = log((double)size)/log(2.0);
-      if( (double)((molds_lapack_int)temp) < temp ){
-         k = (molds_lapack_int)temp + 1;
-      }
-      else{
-         k = (molds_lapack_int)temp;
-      }
-      lwork = 3*size*size + (5+2*k)*size + 1;
-      liwork = 5*size + 3;
-   }
-
-   // malloc
-   work = (double*)LAPACKE_malloc( sizeof(double)*lwork );
-   iwork = (molds_lapack_int*)LAPACKE_malloc( sizeof(molds_lapack_int)*liwork );
-   convertedMatrix = (double*)LAPACKE_malloc( sizeof(double)*size*size );
-   tempEigenValues = (double*)LAPACKE_malloc( sizeof(double)*size );
-
-   for(molds_lapack_int i = 0; i < size; i++){
-      for(molds_lapack_int j = i; j < size; j++){
-         convertedMatrix[i+j*size] = matrix[i][j];
-      }
-   }
-
-   // call Lapack
-   info = LAPACKE_dsyevd_work(LAPACK_COL_MAJOR, job, uplo, size, convertedMatrix, lda, tempEigenValues, work, lwork, iwork, liwork);
-
-   for(molds_lapack_int i = 0; i < size; i++){
-      for(molds_lapack_int j = 0; j < size; j++){
-         matrix[i][j] = convertedMatrix[j+i*size];  //i-th row is i-th eigen vector
-         //matrix[j][i] = convertedMatrix[j+i*size];  //i-th column is i-th eigen vector
-      }
-   }
-
-   for(molds_lapack_int i=0;i<size;i++){
-      double temp = 0.0;
-      for(molds_lapack_int j=0;j<size;j++){
-         temp += matrix[i][j];
-      }
-      if(temp<0){
-         for(molds_lapack_int j=0;j<size;j++){
-            matrix[i][j]*=-1.0;
-         }
-      }
-   }   
-
-   for(molds_lapack_int i = 0; i < size; i++){
-      eigenValues[i] = tempEigenValues[i];
-   }
-   //this->OutputLog(boost::format("size=%d lwork=%d liwork=%d k=%d info=%d\n") % size % lwork % liwork % k % info);
-
-   // free
-   LAPACKE_free(work);
-   LAPACKE_free(iwork);
-   LAPACKE_free(convertedMatrix);
-   LAPACKE_free(tempEigenValues);
-  
-   if(info != 0){
-      stringstream ss;
-      ss << errorMessageDsyevdInfo;
-      ss << info << endl;
-      throw MolDSException(ss.str());
-   }
-   return info;
-}
-
-/***
- *
- * Slove matrix*X=b, then we get X by this method.
- * The X is stored in b.
- *
- */
-molds_lapack_int Lapack::Dsysv(double const* const* matrix, double* b, molds_lapack_int size){
-   molds_lapack_int info = 0;
-   molds_lapack_int lwork;
-   char uplo = 'U';
-   molds_lapack_int lda = size;
-   molds_lapack_int ldb = size;
-   molds_lapack_int nrhs = 1;
-   double* convertedMatrix;
-   double* work;
-   double* tempB;
-   molds_lapack_int* ipiv;
-
-   if(size < 1 ){
-      stringstream ss;
-      ss << errorMessageDsysvSize;
-      throw MolDSException(ss.str());
-   }
-
-   // malloc
-   ipiv = (molds_lapack_int*)LAPACKE_malloc( sizeof(molds_lapack_int)*2*size );
-   convertedMatrix = (double*)LAPACKE_malloc( sizeof(double)*size*size );
-   tempB = (double*)LAPACKE_malloc( sizeof(double)*size );
-
-   for(molds_lapack_int i = 0; i < size; i++){
-      for(molds_lapack_int j = i; j < size; j++){
-         convertedMatrix[i+j*size] = matrix[i][j];
-      }
-   }
-   for(molds_lapack_int i = 0; i < size; i++){
-      tempB[i] = b[i];
-   }
-
-   // calc. lwork
-   double blockSize=0.0;
-#pragma omp critical
-   {
-      lwork = -1;
-      double tempWork[3]={0.0, 0.0, 0.0};
-      info = LAPACKE_dsysv_work(LAPACK_COL_MAJOR, uplo, size, nrhs, convertedMatrix, lda, ipiv, tempB, ldb, tempWork, lwork);
-      blockSize = tempWork[0]/size;
-   }
-   info = 0;
-   lwork = blockSize*size;
-   work = (double*)LAPACKE_malloc( sizeof(double)*lwork );
-
-   // call Lapack
-   info = LAPACKE_dsysv_work(LAPACK_COL_MAJOR, uplo, size, nrhs, convertedMatrix, lda, ipiv, tempB, ldb, work, lwork);
-   for(molds_lapack_int i = 0; i < size; i++){
-      b[i] = tempB[i];
-   }
-
-   // free
-   LAPACKE_free(convertedMatrix);
-   LAPACKE_free(ipiv);
-   LAPACKE_free(work);
-   LAPACKE_free(tempB);
-  
-   if(info != 0){
-      stringstream ss;
-      ss << errorMessageDsysvInfo;
-      ss << info << endl;
-      throw MolDSException(ss.str());
-   }
-   return info;
-}
-
-/***
- *
- * Slove matrix*X[i]=b[i] (i=0, 1, ... , nrhs-1), then we get X[i] by this method.
- * The X[i] is stored in b[i].
- * b[i][j] is j-th element of i-th solution, b[i].
- *
- */
-molds_lapack_int Lapack::Dgetrs(double const* const* matrix, double** b, molds_lapack_int size, molds_lapack_int nrhs) const{
-   molds_lapack_int info = 0;
-   char trans = 'N';
-   molds_lapack_int lda = size;
-   molds_lapack_int ldb = size;
-   double* convertedMatrix;
-   double* convertedB;
-   molds_lapack_int* ipiv;
-
-   if(size < 1 ){
-      stringstream ss;
-      ss << errorMessageDgetrsSize;
-      throw MolDSException(ss.str());
-   }
-
-   try{
-      // malloc
-      ipiv = (molds_lapack_int*)LAPACKE_malloc( sizeof(molds_lapack_int)*2*size);
-      convertedMatrix = (double*)LAPACKE_malloc( sizeof(double)*size*size);
-      convertedB = (double*)LAPACKE_malloc( sizeof(double)*nrhs*size);
-      for(molds_lapack_int i = 0; i < size; i++){
-         for(molds_lapack_int j = 0; j < size; j++){
-            convertedMatrix[i+j*size] = matrix[i][j];
-         }
-      }
-      for(molds_lapack_int i = 0; i < nrhs; i++){
-         for(molds_lapack_int j = 0; j < size; j++){
-            convertedB[j+i*size] = b[i][j];
-         }
-      }
-      this->Dgetrf(convertedMatrix, ipiv, size, size);
-      info = LAPACKE_dgetrs_work(LAPACK_COL_MAJOR, trans, size, nrhs, convertedMatrix, lda, ipiv, convertedB, ldb);
-      for(molds_lapack_int i = 0; i < nrhs; i++){
-         for(molds_lapack_int j = 0; j < size; j++){
-            b[i][j] = convertedB[j+i*size];
-         }
-      }
-   }
-   catch(MolDSException ex){
-      // free
-      LAPACKE_free(convertedMatrix);
-      LAPACKE_free(convertedB);
-      LAPACKE_free(ipiv);
-      throw ex;
-   }
-   // free
-   LAPACKE_free(convertedMatrix);
-   LAPACKE_free(convertedB);
-   LAPACKE_free(ipiv);
-  
-   if(info != 0){
-      stringstream ss;
-      ss << errorMessageDgetrsInfo;
-      ss << info << endl;
-      throw MolDSException(ss.str());
-   }
-   return info;
-}
-
-// Argument "matrix" is sizeM*sizeN matrix.
-// Argument "matrix" will be LU-decomposed.
-molds_lapack_int Lapack::Dgetrf(double** matrix, molds_lapack_int sizeM, molds_lapack_int sizeN) const{
-   molds_lapack_int* ipiv = (molds_lapack_int*)LAPACKE_malloc( sizeof(molds_lapack_int)*2*sizeM );
-   this->Dgetrf(matrix, ipiv, sizeM, sizeN);
-   LAPACKE_free(ipiv);
-   molds_lapack_int info = 0;
-   return info;
-}
-
-// Argument "matrix" is sizeM*sizeN matrix.
-// Argument "matrix" will be LU-decomposed.
-molds_lapack_int Lapack::Dgetrf(double** matrix, molds_lapack_int* ipiv, molds_lapack_int sizeM, molds_lapack_int sizeN) const{
-   double* convertedMatrix = (double*)LAPACKE_malloc( sizeof(double)*sizeM*sizeN );
-   for(molds_lapack_int i=0; i<sizeM; i++){
-      for(molds_lapack_int j=0; j<sizeN; j++){
-         convertedMatrix[i+j*sizeM] = matrix[i][j];
-      }
-   }
-   this->Dgetrf(convertedMatrix, ipiv, sizeM, sizeN);
-   for(molds_lapack_int i=0; i<sizeM; i++){
-      for(molds_lapack_int j=0; j<sizeN; j++){
-         matrix[i][j] = convertedMatrix[i+j*sizeM];
-      }
-   }
-   LAPACKE_free(convertedMatrix);
-   molds_lapack_int info = 0;
-   return info;
-}
-
-// Argument "matrix" means sizeM * sizeN matrix.
-// The each element of "matrix" should be stored in 1-dimensional vecotre with column major (Fortran type).
-molds_lapack_int Lapack::Dgetrf(double* matrix, molds_lapack_int* ipiv, molds_lapack_int sizeM, molds_lapack_int sizeN) const{
-   molds_lapack_int info = 0;
-   molds_lapack_int lda = sizeM;
-   info = LAPACKE_dgetrf_work(LAPACK_COL_MAJOR, sizeM, sizeN, matrix, lda, ipiv);
-   if(info != 0){
-      stringstream ss;
-      ss << errorMessageDgetrfInfo;
-      ss << info << endl;
-      throw MolDSException(ss.str());
-   }
-   return info;
-}
-}