Reference documentation for deal.II version GIT e8f57130d0 2023-09-28 07:00:03+00:00
\(\newcommand{\dealvcentcolon}{\mathrel{\mathop{:}}}\) \(\newcommand{\dealcoloneq}{\dealvcentcolon\mathrel{\mkern-1.2mu}=}\) \(\newcommand{\jump}[1]{\left[\!\left[ #1 \right]\!\right]}\) \(\newcommand{\average}[1]{\left\{\!\left\{ #1 \right\}\!\right\}}\)
utilities.cc
Go to the documentation of this file.
1 // ---------------------------------------------------------------------
2 //
3 // Copyright (C) 2020 - 2020 by the deal.II authors
4 //
5 // This file is part of the deal.II library.
6 //
7 // The deal.II library is free software; you can use it, redistribute
8 // it, and/or modify it under the terms of the GNU Lesser General
9 // Public License as published by the Free Software Foundation; either
10 // version 2.1 of the License, or (at your option) any later version.
11 // The full text of the license can be found in the file LICENSE.md at
12 // the top level directory of deal.II.
13 //
14 // ---------------------------------------------------------------------
15 
16 #include <deal.II/base/config.h>
17 
19 #include <deal.II/lac/utilities.h>
20 
21 #include <complex>
22 
24 
25 namespace internal
26 {
27  namespace UtilitiesImplementation
28  {
29  // see the corresponding note in the header
30  template <typename Number>
31  void
32  call_stev(const char jobz,
33  const types::blas_int n,
34  Number *d,
35  Number *e,
36  Number *z,
37  const types::blas_int ldz,
38  Number *work,
39  types::blas_int *info)
40  {
41  stev(&jobz, &n, d, e, z, &ldz, work, info);
42  }
43 
44 
45  template void
46  call_stev(const char,
47  const types::blas_int,
48  float *,
49  float *,
50  float *,
51  const types::blas_int,
52  float *,
53  types::blas_int *);
54 
55  template void
56  call_stev(const char,
57  const types::blas_int,
58  double *,
59  double *,
60  double *,
61  const types::blas_int,
62  double *,
63  types::blas_int *);
64 
65  template void
66  call_stev(const char,
67  const types::blas_int,
68  std::complex<float> *,
69  std::complex<float> *,
70  std::complex<float> *,
71  const types::blas_int,
72  std::complex<float> *,
73  types::blas_int *);
74 
75  template void
76  call_stev(const char,
77  const types::blas_int,
78  std::complex<double> *,
79  std::complex<double> *,
80  std::complex<double> *,
81  const types::blas_int,
82  std::complex<double> *,
83  types::blas_int *);
84  } // namespace UtilitiesImplementation
85 } // namespace internal
86 
87 
88 
#define DEAL_II_NAMESPACE_OPEN
Definition: config.h:477
#define DEAL_II_NAMESPACE_CLOSE
Definition: config.h:478
void stev(const char *, const ::types::blas_int *, number1 *, number2 *, number3 *, const ::types::blas_int *, number4 *, ::types::blas_int *)
SymmetricTensor< 2, dim, Number > d(const Tensor< 2, dim, Number > &F, const Tensor< 2, dim, Number > &dF_dt)
SymmetricTensor< 2, dim, Number > e(const Tensor< 2, dim, Number > &F)
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)
Definition: utilities.cc:32
int blas_int