lu-lapack.h

Go to the documentation of this file.

//  * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *  //
//                                                                                   //
//                       / /   / /    __    \ \  / /                                 //
//                      / /__ / /   / _ \    \ \/ /                                  //
//                     /  ___  /   | |/_/    / /\ \                                  //
//                    / /   / /    \_\      / /  \ \                                 //
//                                                                                   //
//                                                                                   //
//  Copyright (c) 2016, Jakub Benda, Charles University in Prague                    //
//                                                                                   //
// MIT License:                                                                      //
//                                                                                   //
//  Permission is hereby granted, free of charge, to any person obtaining a          //
// copy of this software and associated documentation files (the "Software"),        //
// to deal in the Software without restriction, including without limitation         //
// the rights to use, copy, modify, merge, publish, distribute, sublicense,          //
// and/or sell copies of the Software, and to permit persons to whom the             //
// Software is furnished to do so, subject to the following conditions:              //
//                                                                                   //
//  The above copyright notice and this permission notice shall be included          //
// in all copies or substantial portions of the Software.                            //
//                                                                                   //
//  THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS          //
// OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,       //
// FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE       //
// AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY, //
// WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, OUT OF         //
// OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.  //
//                                                                                   //
//  * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *  //

#ifndef HEX_LU_LAPACK_H
#define HEX_LU_LAPACK_H

// --------------------------------------------------------------------------------- //

#include "hex-csrmatrix.h"

// --------------------------------------------------------------------------------- //

#include "luft.h"

// --------------------------------------------------------------------------------- //

class LUft_LAPACK : public LUft
{
    public:
        
        // run-time selection mechanism
        factorizerRunTimeSelectionDefinitions(LUft_LAPACK, "lapack")
        
        
        LUft_LAPACK ();
        
        virtual ~LUft_LAPACK();
        
        // Disable bitwise copy
        LUft_LAPACK const & operator= (LUft_LAPACK const &) = delete;
        
        virtual void factorize (CsrMatrix<LU_int_t,Complex> const & matrix, LUftData data);
        
        virtual bool valid () const { return size() != 0; }
        
        virtual std::size_t size () const;
        
        virtual void solve (const cArrayView b, cArrayView x, int eqs) const;
        
        virtual void save (std::string name) const;
        
        virtual void load (std::string name, bool throw_on_io_failure = true);
        
        virtual void drop ();
    
    private:
        
        NumberArray<LU_int_t> R_;
        
        cArray LU_;
        
        NumberArray<blas::Int> ipiv_;
        
        blas::Int n_;
        
        blas::Int k_;
};

// --------------------------------------------------------------------------------- //

#endif // HEX_LU_LAPACK_H