Mercurial > octave

comparison liboctave/numeric/eigs-base.cc @ 22133:59cadee1c74b

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
new macros for F77 data types * f77-fcn.h (F77_DBLE, F77_REAL, F77_DBLE_CMPLX, F77_CMPLX, F77_INT, F77_INT4, F77_LOGICAL): New macros. * fortrandemo.cc, __pchip_deriv__.cc, dot.cc, interpreter.cc, ordschur.cc, qz.cc, CColVector.cc, CMatrix.cc, CNDArray.cc, CRowVector.cc, CSparse.cc, dColVector.cc, dMatrix.cc, dNDArray.cc, dRowVector.cc, dSparse.cc, fCColVector.cc, fCMatrix.cc, fCNDArray.cc, fCRowVector.cc, fColVector.cc, fMatrix.cc, fNDArray.cc, fRowVector.cc, DASPK.cc, DASRT.cc, DASSL.cc, EIG.cc, LSODE.cc, Quad.cc, aepbalance.cc, chol.cc, eigs-base.cc, fEIG.cc, gepbalance.cc, hess.cc, lo-specfun.cc, lu.cc, oct-convn.cc, oct-rand.cc, qr.cc, qrp.cc, randpoisson.cc, schur.cc, svd.cc: Use new macros in declarations of Fortran subroutines.
author John W. Eaton <jwe@octave.org>
date Sun, 17 Jul 2016 12:42:37 -0400
parents 278fc29b69ca
children 407c66ae1e20
comparison
equal deleted inserted replaced
22132:27b63b55bacb 22133:59cadee1c74b
47 47
48 // Arpack and blas fortran functions we call. 48 // Arpack and blas fortran functions we call.
49 extern "C" 49 extern "C"
50 { 50 {
51 F77_RET_T 51 F77_RET_T
52 F77_FUNC (dsaupd, DSAUPD) (octave_idx_type&, 52 F77_FUNC (dsaupd, DSAUPD) (F77_INT&,
53 F77_CONST_CHAR_ARG_DECL, 53 F77_CONST_CHAR_ARG_DECL,
54 const octave_idx_type&, 54 const F77_INT&,
55 F77_CONST_CHAR_ARG_DECL, 55 F77_CONST_CHAR_ARG_DECL,
56 const octave_idx_type&, const double&, 56 const F77_INT&, const F77_DBLE&,
57 double*, const octave_idx_type&, double*, 57 F77_DBLE*, const F77_INT&, F77_DBLE*,
58 const octave_idx_type&, octave_idx_type*, 58 const F77_INT&, F77_INT*,
59 octave_idx_type*, double*, double*, 59 F77_INT*, F77_DBLE*, F77_DBLE*,
60 const octave_idx_type&, octave_idx_type& 60 const F77_INT&, F77_INT&
61 F77_CHAR_ARG_LEN_DECL 61 F77_CHAR_ARG_LEN_DECL
62 F77_CHAR_ARG_LEN_DECL); 62 F77_CHAR_ARG_LEN_DECL);
63 63
64 F77_RET_T 64 F77_RET_T
65 F77_FUNC (dseupd, DSEUPD) (const octave_idx_type&, 65 F77_FUNC (dseupd, DSEUPD) (const F77_INT&,
66 F77_CONST_CHAR_ARG_DECL, 66 F77_CONST_CHAR_ARG_DECL,
67 octave_idx_type*, double*, double*, 67 F77_INT*, F77_DBLE*, F77_DBLE*,
68 const octave_idx_type&, const double&, 68 const F77_INT&, const F77_DBLE&,
69 F77_CONST_CHAR_ARG_DECL, 69 F77_CONST_CHAR_ARG_DECL,
70 const octave_idx_type&, 70 const F77_INT&,
71 F77_CONST_CHAR_ARG_DECL, 71 F77_CONST_CHAR_ARG_DECL,
72 const octave_idx_type&, const double&, double*, 72 const F77_INT&, const F77_DBLE&, F77_DBLE*,
73 const octave_idx_type&, double*, 73 const F77_INT&, F77_DBLE*,
74 const octave_idx_type&, octave_idx_type*, 74 const F77_INT&, F77_INT*,
75 octave_idx_type*, double*, double*, 75 F77_INT*, F77_DBLE*, F77_DBLE*,
76 const octave_idx_type&, octave_idx_type& 76 const F77_INT&, F77_INT&
77 F77_CHAR_ARG_LEN_DECL 77 F77_CHAR_ARG_LEN_DECL
78 F77_CHAR_ARG_LEN_DECL 78 F77_CHAR_ARG_LEN_DECL
79 F77_CHAR_ARG_LEN_DECL); 79 F77_CHAR_ARG_LEN_DECL);
80 80
81 F77_RET_T 81 F77_RET_T
82 F77_FUNC (dnaupd, DNAUPD) (octave_idx_type&, 82 F77_FUNC (dnaupd, DNAUPD) (F77_INT&,
83 F77_CONST_CHAR_ARG_DECL, 83 F77_CONST_CHAR_ARG_DECL,
84 const octave_idx_type&, 84 const F77_INT&,
85 F77_CONST_CHAR_ARG_DECL, 85 F77_CONST_CHAR_ARG_DECL,
86 octave_idx_type&, const double&, 86 F77_INT&, const F77_DBLE&,
87 double*, const octave_idx_type&, double*, 87 F77_DBLE*, const F77_INT&, F77_DBLE*,
88 const octave_idx_type&, octave_idx_type*, 88 const F77_INT&, F77_INT*,
89 octave_idx_type*, double*, double*, 89 F77_INT*, F77_DBLE*, F77_DBLE*,
90 const octave_idx_type&, octave_idx_type& 90 const F77_INT&, F77_INT&
91 F77_CHAR_ARG_LEN_DECL 91 F77_CHAR_ARG_LEN_DECL
92 F77_CHAR_ARG_LEN_DECL); 92 F77_CHAR_ARG_LEN_DECL);
93 93
94 F77_RET_T 94 F77_RET_T
95 F77_FUNC (dneupd, DNEUPD) (const octave_idx_type&, 95 F77_FUNC (dneupd, DNEUPD) (const F77_INT&,
96 F77_CONST_CHAR_ARG_DECL, 96 F77_CONST_CHAR_ARG_DECL,
97 octave_idx_type*, double*, double*, 97 F77_INT*, F77_DBLE*, F77_DBLE*,
98 double*, const octave_idx_type&, const double&, 98 F77_DBLE*, const F77_INT&, const F77_DBLE&,
99 const double&, double*, 99 const F77_DBLE&, F77_DBLE*,
100 F77_CONST_CHAR_ARG_DECL, 100 F77_CONST_CHAR_ARG_DECL,
101 const octave_idx_type&, 101 const F77_INT&,
102 F77_CONST_CHAR_ARG_DECL, 102 F77_CONST_CHAR_ARG_DECL,
103 octave_idx_type&, const double&, double*, 103 F77_INT&, const F77_DBLE&, F77_DBLE*,
104 const octave_idx_type&, double*, 104 const F77_INT&, F77_DBLE*,
105 const octave_idx_type&, octave_idx_type*, 105 const F77_INT&, F77_INT*,
106 octave_idx_type*, double*, double*, 106 F77_INT*, F77_DBLE*, F77_DBLE*,
107 const octave_idx_type&, octave_idx_type& 107 const F77_INT&, F77_INT&
108 F77_CHAR_ARG_LEN_DECL 108 F77_CHAR_ARG_LEN_DECL
109 F77_CHAR_ARG_LEN_DECL 109 F77_CHAR_ARG_LEN_DECL
110 F77_CHAR_ARG_LEN_DECL); 110 F77_CHAR_ARG_LEN_DECL);
111 111
112 F77_RET_T 112 F77_RET_T
113 F77_FUNC (znaupd, ZNAUPD) (octave_idx_type&, 113 F77_FUNC (znaupd, ZNAUPD) (F77_INT&,
114 F77_CONST_CHAR_ARG_DECL, 114 F77_CONST_CHAR_ARG_DECL,
115 const octave_idx_type&, 115 const F77_INT&,
116 F77_CONST_CHAR_ARG_DECL, 116 F77_CONST_CHAR_ARG_DECL,
117 const octave_idx_type&, const double&, 117 const F77_INT&, const F77_DBLE&,
118 Complex*, const octave_idx_type&, Complex*, 118 F77_DBLE_CMPLX*, const F77_INT&, F77_DBLE_CMPLX*,
119 const octave_idx_type&, octave_idx_type*, 119 const F77_INT&, F77_INT*,
120 octave_idx_type*, Complex*, Complex*, 120 F77_INT*, F77_DBLE_CMPLX*, F77_DBLE_CMPLX*,
121 const octave_idx_type&, double *, octave_idx_type& 121 const F77_INT&, F77_DBLE *, F77_INT&
122 F77_CHAR_ARG_LEN_DECL 122 F77_CHAR_ARG_LEN_DECL
123 F77_CHAR_ARG_LEN_DECL); 123 F77_CHAR_ARG_LEN_DECL);
124 124
125 F77_RET_T 125 F77_RET_T
126 F77_FUNC (zneupd, ZNEUPD) (const octave_idx_type&, 126 F77_FUNC (zneupd, ZNEUPD) (const F77_INT&,
127 F77_CONST_CHAR_ARG_DECL, 127 F77_CONST_CHAR_ARG_DECL,
128 octave_idx_type*, Complex*, Complex*, 128 F77_INT*, F77_DBLE_CMPLX*, F77_DBLE_CMPLX*,
129 const octave_idx_type&, const Complex&, Complex*, 129 const F77_INT&, const F77_DBLE_CMPLX&, F77_DBLE_CMPLX*,
130 F77_CONST_CHAR_ARG_DECL, 130 F77_CONST_CHAR_ARG_DECL,
131 const octave_idx_type&, 131 const F77_INT&,
132 F77_CONST_CHAR_ARG_DECL, 132 F77_CONST_CHAR_ARG_DECL,
133 const octave_idx_type&, const double&, 133 const F77_INT&, const F77_DBLE&,
134 Complex*, const octave_idx_type&, Complex*, 134 F77_DBLE_CMPLX*, const F77_INT&, F77_DBLE_CMPLX*,
135 const octave_idx_type&, octave_idx_type*, 135 const F77_INT&, F77_INT*,
136 octave_idx_type*, Complex*, Complex*, 136 F77_INT*, F77_DBLE_CMPLX*, F77_DBLE_CMPLX*,
137 const octave_idx_type&, double *, octave_idx_type& 137 const F77_INT&, F77_DBLE *, F77_INT&
138 F77_CHAR_ARG_LEN_DECL 138 F77_CHAR_ARG_LEN_DECL
139 F77_CHAR_ARG_LEN_DECL 139 F77_CHAR_ARG_LEN_DECL
140 F77_CHAR_ARG_LEN_DECL); 140 F77_CHAR_ARG_LEN_DECL);
141 141
142 F77_RET_T 142 F77_RET_T
143 F77_FUNC (dgemv, DGEMV) (F77_CONST_CHAR_ARG_DECL, 143 F77_FUNC (dgemv, DGEMV) (F77_CONST_CHAR_ARG_DECL,
144 const octave_idx_type&, const octave_idx_type&, 144 const F77_INT&, const F77_INT&,
145 const double&, const double*, 145 const F77_DBLE&, const F77_DBLE*,
146 const octave_idx_type&, const double*, 146 const F77_INT&, const F77_DBLE*,
147 const octave_idx_type&, const double&, double*, 147 const F77_INT&, const F77_DBLE&, F77_DBLE*,
148 const octave_idx_type& 148 const F77_INT&
149 F77_CHAR_ARG_LEN_DECL); 149 F77_CHAR_ARG_LEN_DECL);
150 150
151 F77_RET_T 151 F77_RET_T
152 F77_FUNC (zgemv, ZGEMV) (F77_CONST_CHAR_ARG_DECL, 152 F77_FUNC (zgemv, ZGEMV) (F77_CONST_CHAR_ARG_DECL,
153 const octave_idx_type&, const octave_idx_type&, 153 const F77_INT&, const F77_INT&,
154 const Complex&, const Complex*, 154 const F77_DBLE_CMPLX&, const F77_DBLE_CMPLX*,
155 const octave_idx_type&, const Complex*, 155 const F77_INT&, const F77_DBLE_CMPLX*,
156 const octave_idx_type&, const Complex&, Complex*, 156 const F77_INT&, const F77_DBLE_CMPLX&, F77_DBLE_CMPLX*,
157 const octave_idx_type& 157 const F77_INT&
158 F77_CHAR_ARG_LEN_DECL); 158 F77_CHAR_ARG_LEN_DECL);
159 159
160 } 160 }
161 161
162 static void 162 static void