C++ (Cpp) LAPACK_DSBEVの例

コード例 #1

ファイル: sbev.hpp プロジェクト: CQMP/scripts

inline std::ptrdiff_t sbev( const char jobz, const UpLo, const fortran_int_t n,
        const fortran_int_t kd, double* ab, const fortran_int_t ldab,
        double* w, double* z, const fortran_int_t ldz, double* work ) {
    fortran_int_t info(0);
    LAPACK_DSBEV( &jobz, &lapack_option< UpLo >::value, &n, &kd, ab, &ldab, w,
            z, &ldz, work, &info );
    return info;
}

コード例 #2

ファイル: hbev.hpp プロジェクト: Rafcor/FreeCAD_sf_master

inline
void hbev (char const jobz, char const uplo, int const n, int const kd,
           double* ab, int const ldab, double* w, double* z, int const ldz,
           double* work, int& info)
{
    LAPACK_DSBEV (&jobz, &uplo, &n, &kd, ab, &ldab, w, z, &ldz,
                  work, &info);
}