Mercurial > octave-nkf

comparison liboctave/CSparse.cc @ 11518:141b3fb5cef7

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
style fixes
author John W. Eaton <jwe@octave.org>
date Thu, 13 Jan 2011 16:52:30 -0500
parents 7c573eb981eb
children fd0a3ac60b0e
comparison
equal deleted inserted replaced
11517:da8e32c99969 11518:141b3fb5cef7
65 65
66 // Fortran functions we call. 66 // Fortran functions we call.
67 extern "C" 67 extern "C"
68 { 68 {
69 F77_RET_T 69 F77_RET_T
70 F77_FUNC (zgbtrf, ZGBTRF) (const octave_idx_type&, const octave_idx_type&, const octave_idx_type&, 70 F77_FUNC (zgbtrf, ZGBTRF) (const octave_idx_type&, const octave_idx_type&,
71 const octave_idx_type&, Complex*, const octave_idx_type&, octave_idx_type*, octave_idx_type&); 71 const octave_idx_type&, const octave_idx_type&,
72 Complex*, const octave_idx_type&,
73 octave_idx_type*, octave_idx_type&);
72 74
73 F77_RET_T 75 F77_RET_T
74 F77_FUNC (zgbtrs, ZGBTRS) (F77_CONST_CHAR_ARG_DECL, const octave_idx_type&, 76 F77_FUNC (zgbtrs, ZGBTRS) (F77_CONST_CHAR_ARG_DECL,
75 const octave_idx_type&, const octave_idx_type&, const octave_idx_type&, 77 const octave_idx_type&, const octave_idx_type&,
78 const octave_idx_type&, const octave_idx_type&,
76 const Complex*, const octave_idx_type&, 79 const Complex*, const octave_idx_type&,
77 const octave_idx_type*, Complex*, const octave_idx_type&, octave_idx_type& 80 const octave_idx_type*, Complex*,
81 const octave_idx_type&, octave_idx_type&
78 F77_CHAR_ARG_LEN_DECL); 82 F77_CHAR_ARG_LEN_DECL);
79 83
80 F77_RET_T 84 F77_RET_T
81 F77_FUNC (zgbcon, ZGBCON) (F77_CONST_CHAR_ARG_DECL, const octave_idx_type&, 85 F77_FUNC (zgbcon, ZGBCON) (F77_CONST_CHAR_ARG_DECL,
82 const octave_idx_type&, const octave_idx_type&, Complex*, 86 const octave_idx_type&, const octave_idx_type&,
83 const octave_idx_type&, const octave_idx_type*, const double&, 87 const octave_idx_type&, Complex*,
88 const octave_idx_type&, const octave_idx_type*,
89 const double&, double&, Complex*, double*,
90 octave_idx_type&
91 F77_CHAR_ARG_LEN_DECL);
92
93 F77_RET_T
94 F77_FUNC (zpbtrf, ZPBTRF) (F77_CONST_CHAR_ARG_DECL,
95 const octave_idx_type&, const octave_idx_type&,
96 Complex*, const octave_idx_type&, octave_idx_type&
97 F77_CHAR_ARG_LEN_DECL);
98
99 F77_RET_T
100 F77_FUNC (zpbtrs, ZPBTRS) (F77_CONST_CHAR_ARG_DECL,
101 const octave_idx_type&, const octave_idx_type&,
102 const octave_idx_type&, Complex*,
103 const octave_idx_type&, Complex*,
104 const octave_idx_type&, octave_idx_type&
105 F77_CHAR_ARG_LEN_DECL);
106
107 F77_RET_T
108 F77_FUNC (zpbcon, ZPBCON) (F77_CONST_CHAR_ARG_DECL,
109 const octave_idx_type&, const octave_idx_type&,
110 Complex*, const octave_idx_type&, const double&,
84 double&, Complex*, double*, octave_idx_type& 111 double&, Complex*, double*, octave_idx_type&
85 F77_CHAR_ARG_LEN_DECL); 112 F77_CHAR_ARG_LEN_DECL);
86 113
87 F77_RET_T 114 F77_RET_T
88 F77_FUNC (zpbtrf, ZPBTRF) (F77_CONST_CHAR_ARG_DECL, const octave_idx_type&, 115 F77_FUNC (zgttrf, ZGTTRF) (const octave_idx_type&, Complex*, Complex*,
89 const octave_idx_type&, Complex*, const octave_idx_type&, octave_idx_type& 116 Complex*, Complex*, octave_idx_type*,
117 octave_idx_type&);
118
119 F77_RET_T
120 F77_FUNC (zgttrs, ZGTTRS) (F77_CONST_CHAR_ARG_DECL,
121 const octave_idx_type&, const octave_idx_type&,
122 const Complex*, const Complex*, const Complex*,
123 const Complex*, const octave_idx_type*,
124 Complex *, const octave_idx_type&,
125 octave_idx_type&
90 F77_CHAR_ARG_LEN_DECL); 126 F77_CHAR_ARG_LEN_DECL);
91 127
92 F77_RET_T 128 F77_RET_T
93 F77_FUNC (zpbtrs, ZPBTRS) (F77_CONST_CHAR_ARG_DECL, const octave_idx_type&, 129 F77_FUNC (zptsv, ZPTSV) (const octave_idx_type&, const octave_idx_type&,
94 const octave_idx_type&, const octave_idx_type&, Complex*, const octave_idx_type&, 130 double*, Complex*, Complex*,
95 Complex*, const octave_idx_type&, octave_idx_type& 131 const octave_idx_type&, octave_idx_type&);
96 F77_CHAR_ARG_LEN_DECL);
97 132
98 F77_RET_T 133 F77_RET_T
99 F77_FUNC (zpbcon, ZPBCON) (F77_CONST_CHAR_ARG_DECL, const octave_idx_type&, 134 F77_FUNC (zgtsv, ZGTSV) (const octave_idx_type&, const octave_idx_type&,
100 const octave_idx_type&, Complex*, const octave_idx_type&, 135 Complex*, Complex*, Complex*, Complex*,
101 const double&, double&, Complex*, double*, octave_idx_type& 136 const octave_idx_type&, octave_idx_type&);
102 F77_CHAR_ARG_LEN_DECL);
103
104 F77_RET_T
105 F77_FUNC (zgttrf, ZGTTRF) (const octave_idx_type&, Complex*, Complex*, Complex*,
106 Complex*, octave_idx_type*, octave_idx_type&);
107
108 F77_RET_T
109 F77_FUNC (zgttrs, ZGTTRS) (F77_CONST_CHAR_ARG_DECL, const octave_idx_type&,
110 const octave_idx_type&, const Complex*, const Complex*,
111 const Complex*, const Complex*, const octave_idx_type*,
112 Complex *, const octave_idx_type&, octave_idx_type&
113 F77_CHAR_ARG_LEN_DECL);
114
115 F77_RET_T
116 F77_FUNC (zptsv, ZPTSV) (const octave_idx_type&, const octave_idx_type&, double*, Complex*,
117 Complex*, const octave_idx_type&, octave_idx_type&);
118
119 F77_RET_T
120 F77_FUNC (zgtsv, ZGTSV) (const octave_idx_type&, const octave_idx_type&, Complex*, Complex*,
121 Complex*, Complex*, const octave_idx_type&, octave_idx_type&);
122 } 137 }
123 138
124 SparseComplexMatrix::SparseComplexMatrix (const SparseMatrix& a) 139 SparseComplexMatrix::SparseComplexMatrix (const SparseMatrix& a)
125 : MSparse<Complex> (a) 140 : MSparse<Complex> (a)
126 { 141 {