xvector7.h

Go to the documentation of this file.

#pragma once

#include "xvector6.h"
#include <gsl/gsl_cblas.h>

namespace nmx::gsl::vec {

template<typename T>
struct IVBlas {
    inline friend double dot(const T &v1, const T &v2) {
        double result;
        gsl_blas_ddot(v1.gsl(), v2.gsl(), &result);
        return result;
    }

    inline friend double nrm2(const T &v) { //
        return gsl_blas_dnrm2(v.gsl());
    }

    inline friend T normalize(const T &v) {
        //berechne Norm des Vektors
        const double magn = nrm2(v);
        Check::error_if(nmx_msg, magn == 0.0);
        //Kopie eines Vektors
        T vout(v);
        //Kopie des Vektors wird normiert
        vout /= magn;
        return vout;
    }

    inline friend double asum(const T &v) { //
        return gsl_blas_dasum(v.gsl());
    }
};

} // namespace nmx::gsl::vec