utilities.cc

Go to the documentation of this file.

// ------------------------------------------------------------------------
//
// SPDX-License-Identifier: LGPL-2.1-or-later
// Copyright (C) 2020 - 2023 by the deal.II authors
//
// This file is part of the deal.II library.
//
// Part of the source code is dual licensed under Apache-2.0 WITH
// LLVM-exception OR LGPL-2.1-or-later. Detailed license information
// governing the source code and code contributions can be found in
// LICENSE.md and CONTRIBUTING.md at the top level directory of deal.II.
//
// ------------------------------------------------------------------------
 
#include <deal.II/base/config.h>
 
#include <deal.II/lac/lapack_templates.h>
#include <deal.II/lac/utilities.h>
 
#include <complex>
 
DEAL_II_NAMESPACE_OPEN
 
namespace internal
{
  namespace UtilitiesImplementation
  {
    // see the corresponding note in the header
    template <typename Number>
    void
    call_stev(const char            jobz,
              const types::blas_int n,
              Number               *d,
              Number               *e,
              Number               *z,
              const types::blas_int ldz,
              Number               *work,
              types::blas_int      *info)
    {
      stev(&jobz, &n, d, e, z, &ldz, work, info);
    }
 
 
    template void
    call_stev(const char,
              const types::blas_int,
              float *,
              float *,
              float *,
              const types::blas_int,
              float *,
              types::blas_int *);
 
    template void
    call_stev(const char,
              const types::blas_int,
              double *,
              double *,
              double *,
              const types::blas_int,
              double *,
              types::blas_int *);
 
    template void
    call_stev(const char,
              const types::blas_int,
              std::complex<float> *,
              std::complex<float> *,
              std::complex<float> *,
              const types::blas_int,
              std::complex<float> *,
              types::blas_int *);
 
    template void
    call_stev(const char,
              const types::blas_int,
              std::complex<double> *,
              std::complex<double> *,
              std::complex<double> *,
              const types::blas_int,
              std::complex<double> *,
              types::blas_int *);
  } // namespace UtilitiesImplementation
} // namespace internal
 
 
 
DEAL_II_NAMESPACE_CLOSE