opm-core/attic/test_lapack.cpp

/*
  Copyright 2012 SINTEF ICT, Applied Mathematics.

  This file is part of the Open Porous Media project (OPM).

  OPM 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.

  OPM 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 OPM.  If not, see <http://www.gnu.org/licenses/>.
*/

#include "config.h"
#include <opm/core/linalg/blas_lapack.h>
#include <iostream>
#include <vector>

namespace {
    struct BandMatrixCoeff
    {
        BandMatrixCoeff(MAT_SIZE_T N, MAT_SIZE_T ku, MAT_SIZE_T kl)
            : ku_(ku), kl_(kl), nrow_(2 * kl + ku + 1), N_(N)
        {
        }


        // compute the position where to store the coefficient of a matrix A_{i,j} (i,j=0,...,N-1)
        // in a array which is sent to the band matrix solver of LAPACK.

        int operator ()(MAT_SIZE_T i, MAT_SIZE_T j) {
            return kl_ + ku_ + i - j + j*nrow_;
        }

        const MAT_SIZE_T ku_;
        const MAT_SIZE_T kl_;
        const MAT_SIZE_T nrow_;
        const MAT_SIZE_T N_;
    };
} //end anonymous namespace

int main()
{
    const MAT_SIZE_T N = 5;
    const MAT_SIZE_T nrhs = 1;
    double DU[N-1] = { 2.1,  -1.0,   1.9,   8.0 };
    double D[N]    = { 3.0,   2.3,  -5.0,  -0.9,   7.1 };
    double DL[N-1] = { 3.4,   3.6,   7.0,  -6.0 };
    double B[N] = { 2.7,  -0.5,   2.6,   0.6,   2.7 };
    // double B[N]    = { 2.7,  -0.5,   2.6,   0.6,   2.7 };
    MAT_SIZE_T info = 0;
    dgtsv_(&N, &nrhs, DL, D, DU, B, &N, &info);
    if (info == 0) {
        for (int i = 0; i < N; ++i) {
            std::cout << B[i] << ' ';
        }
        std::cout << std::endl;
    } else {
        std::cerr << "Something went wrong in dgtsv_()\n";
    }
    std::cout << std::endl;

    //test of dgbsv_
    MAT_SIZE_T ldb = N;
    MAT_SIZE_T lda = N;
    std::vector<MAT_SIZE_T> ipiv(N, 0);
    std::vector<double> AA(N*N, 0.);
    std::vector<double> BB(N, 0.);
    for (MAT_SIZE_T i = 0; i < N; ++i) {
        AA[i + i*N] = 10.;
        if (i > 0) {
            AA[i + (i - 1)*N] = i;
            AA[i - 1 + i*N] = N - i;
        }
        BB[i] = i;
    }

    for (MAT_SIZE_T i = 0; i < N; ++i) {
        for (MAT_SIZE_T j = 0; j < N; ++j) {
            std::cout << " " << AA[i + j*N];
        }
        std::cout << " " << std::endl;
    }
    std::cout << std::endl;

    MAT_SIZE_T kl = 1;
    MAT_SIZE_T ku = 1;
    MAT_SIZE_T nrowAB = 2*kl + ku + 1;
    MAT_SIZE_T ldab = nrowAB;
    std::vector<double> AB(nrowAB*N, 0.);
    BandMatrixCoeff bmc(N, ku, kl);

    // Rewrite AA matrix in band format AB
    for (MAT_SIZE_T i = 0; i < N; ++i) {
        for (MAT_SIZE_T j = -1; j < 2; ++j) {
            if (i + j > -1 && i + j < N)
                AB[bmc(i, i + j)] = AA[i + N*(i + j)];
        }
    }

    for (MAT_SIZE_T i = 0; i < nrowAB; ++i) {
        for (MAT_SIZE_T j = 0; j < N; ++j) {
            std::cout << " " << AB[i + j*nrowAB];
        }
        std::cout << " " << std::endl;
    }
    std::cout << std::endl;


    dgesv_(&N ,&nrhs, &AA[0], &lda, &ipiv[0], &BB[0], &ldb, &info);

    if (info == 0) {
	for (MAT_SIZE_T i = 0; i < N; ++i) {
	    std::cout << BB[i] << ' ';
	}
	std::cout << std::endl;
    } else {
	std::cerr << "Something went wrong in debsv_()\n";
    }

    for (MAT_SIZE_T i = 0; i < N; ++i) {
        BB[i] = i;
    }

    dgbsv_(&N, &kl, &ku, &nrhs, &AB[0], &ldab, &ipiv[0], &BB[0], &ldb, &info);

    if (info == 0) {
        for (MAT_SIZE_T i = 0; i < N; ++i) {
            std::cout << BB[i] << ' ';
        }
        std::cout << std::endl;
    } else {
        std::cerr << "Something went wrong in debsv_()\n";
    }


}