1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
|
/*
ARPACK++ v1.0 8/1/1997
c++ interface to ARPACK code.
MODULE CMatrixF.h
Class template for the symmetric tridiagonal matrix with 4.0 on
the main diagonal, and 1.0 on the off-diagonals.
ARPACK Authors
Richard Lehoucq
Danny Sorensen
Chao Yang
Dept. of Computational & Applied Mathematics
Rice University
Houston, Texas
*/
#ifndef CMATRIXF_H
#define CMATRIXF_H
#include "arcomp.h"
#include "matprod.h"
#include "blas1c.h"
#include "lapackc.h"
template<class T>
class ComplexMatrixF: public MatrixWithProduct<arcomplex<T> > {
public:
void MultMv(arcomplex<T> *v, arcomplex<T> *w);
// Matrix vector multiplication w <- M*v.
ComplexMatrixF(int nx): MatrixWithProduct<arcomplex<T> >(nx) { }
// Constructor
}; // ComplexMatrixF.
template<class T>
void ComplexMatrixF<T>::MultMv(arcomplex<T> *v, arcomplex<T> *w)
{
int j;
arcomplex<T> h;
const arcomplex<T> one(1.0, 0.0);
const arcomplex<T> four(4.0, 0.0);
w[0] = four*v[0] + one*v[1];
for (j=1; j<this->ncols()-1; j++) {
w[j] = one*v[j-1] + four*v[j] + one*v[j+1];
}
w[this->ncols()-1] = one*v[this->ncols()-2] + four*v[this->ncols()-1];
h = one/arcomplex<T>((this->ncols()+1),0.0);
scal(this->ncols(), h, w, 1);
} // MultMv.
#endif // CMATRIXF_H
|
