LUSolver.h

Go to the documentation of this file.

/* Copyright 2017 Kristofer Björnson
 *
 * Licensed under the Apache License, Version 2.0 (the "License");
 * you may not use this file except in compliance with the License.
 * You may obtain a copy of the License at
 *
 *     http://www.apache.org/licenses/LICENSE-2.0
 *
 * Unless required by applicable law or agreed to in writing, software
 * distributed under the License is distributed on an "AS IS" BASIS,
 * WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
 * See the License for the specific language governing permissions and
 * limitations under the License.
 */
 
#ifndef COM_DAFER45_TBTK_LU_SOLVER
#define COM_DAFER45_TBTK_LU_SOLVER
 
#include "TBTK/Communicator.h"
#include "TBTK/Matrix.h"
#include "TBTK/SparseMatrix.h"
 
#include <complex>
 
#include "slu_zdefs.h"
 
namespace TBTK{
 
class LUSolver : public Communicator{
public:
    enum class DataType {None, Double, ComplexDouble};
 
    LUSolver();
 
    ~LUSolver();
 
    void setMatrix(const SparseMatrix<double> &sparseMatrix);
 
    void setMatrix(const SparseMatrix<std::complex<double>> &sparseMatrix);
 
    DataType getMatrixDataType() const;
 
    void solve(Matrix<double> &b);
 
    void solve(Matrix<std::complex<double>> &b);
private:
    SuperMatrix *L;
 
    SuperMatrix *U;
 
    int *rowPermutations;
 
    int *columnPermutations;
 
    SuperLUStat_t *statistics;
 
    DataType matrixDataType;
 
    void allocatePermutationMatrices(
        unsigned int numRows,
        unsigned int numColumns
    );
 
    void initStatistics();
 
    void allocateLUMatrices();
 
    void initOptionsAndPermutationMatrices(
        superlu_options_t &options,
        SuperMatrix &matrix
    );
 
    void performLUFactorization(SuperMatrix &matrix);
 
    void checkSolveAssert(unsigned int numRows);
 
    void checkXgstrfErrors(
        int info,
        std::string functionName,
        int numColumns
    );
 
    void checkXgstrsErrors(int info, std::string functionName);
};
 
inline LUSolver::DataType LUSolver::getMatrixDataType() const{
    return matrixDataType;
}
 
};  //End of namespace TBTK
 
#endif