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
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
|
/*
ARPACK++ v1.2 2/20/2000
c++ interface to ARPACK code.
MODULE debug.h.
Interface to ARPACK FORTRAN debugging facilities.
ARPACK Authors
Richard Lehoucq
Danny Sorensen
Chao Yang
Dept. of Computational & Applied Mathematics
Rice University
Houston, Texas
*/
#ifndef DEBUG_H
#define DEBUG_H
#include "arch.h"
#include "arpackf.h"
extern "C" arpack_debug F77NAME(debug);
inline void TraceOff()
/*
This function sets all ARPACK FORTRAN debug variables to zero.
*/
{
F77NAME(debug).logfil = 6;
F77NAME(debug).ndigit = 0;
F77NAME(debug).mgetv0 = 0;
F77NAME(debug).msaupd = 0;
F77NAME(debug).msaup2 = 0;
F77NAME(debug).msaitr = 0;
F77NAME(debug).mseigt = 0;
F77NAME(debug).msapps = 0;
F77NAME(debug).msgets = 0;
F77NAME(debug).mseupd = 0;
F77NAME(debug).mnaupd = 0;
F77NAME(debug).mnaup2 = 0;
F77NAME(debug).mnaitr = 0;
F77NAME(debug).mneigt = 0;
F77NAME(debug).mnapps = 0;
F77NAME(debug).mngets = 0;
F77NAME(debug).mneupd = 0;
F77NAME(debug).mcaupd = 0;
F77NAME(debug).mcaup2 = 0;
F77NAME(debug).mcaitr = 0;
F77NAME(debug).mceigt = 0;
F77NAME(debug).mcapps = 0;
F77NAME(debug).mcgets = 0;
F77NAME(debug).mceupd = 0;
} // TraceOff.
inline void sTraceOn(const ARint digit, const ARint getv0, const ARint aupd,
const ARint aup2, const ARint aitr, const ARint eigt,
const ARint apps, const ARint gets, const ARint eupd)
/*
This function sets the values of all ARPACK FORTRAN debug
variables corresponding to real symmetric eigenvalue problems.
*/
{
F77NAME(debug).logfil = 6;
F77NAME(debug).ndigit = digit;
F77NAME(debug).mgetv0 = getv0;
F77NAME(debug).msaupd = aupd;
F77NAME(debug).msaup2 = aup2;
F77NAME(debug).msaitr = aitr;
F77NAME(debug).mseigt = eigt;
F77NAME(debug).msapps = apps;
F77NAME(debug).msgets = gets;
F77NAME(debug).mseupd = eupd;
} // sTraceOn.
inline void nTraceOn(const ARint digit, const ARint getv0, const ARint aupd,
const ARint aup2, const ARint aitr, const ARint eigt,
const ARint apps, const ARint gets, const ARint eupd)
/*
This function sets the values of all ARPACK FORTRAN debug
variables corresponding to real nonsymmetric eigenvalue problems.
*/
{
F77NAME(debug).logfil = 6;
F77NAME(debug).ndigit = digit;
F77NAME(debug).mgetv0 = getv0;
F77NAME(debug).mnaupd = aupd;
F77NAME(debug).mnaup2 = aup2;
F77NAME(debug).mnaitr = aitr;
F77NAME(debug).mneigt = eigt;
F77NAME(debug).mnapps = apps;
F77NAME(debug).mngets = gets;
F77NAME(debug).mneupd = eupd;
} // nTraceOn.
inline void cTraceOn(const ARint digit, const ARint getv0, const ARint aupd,
const ARint aup2, const ARint aitr, const ARint eigt,
const ARint apps, const ARint gets, const ARint eupd)
/*
This function sets the values of all ARPACK FORTRAN debug
variables corresponding to complex eigenvalue problems.
*/
{
F77NAME(debug).logfil = 6;
F77NAME(debug).ndigit = digit;
F77NAME(debug).mgetv0 = getv0;
F77NAME(debug).mcaupd = aupd;
F77NAME(debug).mcaup2 = aup2;
F77NAME(debug).mcaitr = aitr;
F77NAME(debug).mceigt = eigt;
F77NAME(debug).mcapps = apps;
F77NAME(debug).mcgets = gets;
F77NAME(debug).mceupd = eupd;
} // cTraceOn.
#endif // DEBUG_H
|
