Mercurial > octave-nkf

comparison liboctave/dSparse.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
71 const octave_idx_type&, const octave_idx_type&, 71 const octave_idx_type&, const octave_idx_type&,
72 double*, const octave_idx_type&, 72 double*, const octave_idx_type&,
73 octave_idx_type*, octave_idx_type&); 73 octave_idx_type*, octave_idx_type&);
74 74
75 F77_RET_T 75 F77_RET_T
76 F77_FUNC (dgbtrs, DGBTRS) (F77_CONST_CHAR_ARG_DECL, const octave_idx_type&, 76 F77_FUNC (dgbtrs, DGBTRS) (F77_CONST_CHAR_ARG_DECL,
77 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&,
78 const double*, const octave_idx_type&, 79 const double*, const octave_idx_type&,
79 const octave_idx_type*, double*, const octave_idx_type&, octave_idx_type& 80 const octave_idx_type*, double*,
81 const octave_idx_type&, octave_idx_type&
80 F77_CHAR_ARG_LEN_DECL); 82 F77_CHAR_ARG_LEN_DECL);
81 83
82 F77_RET_T 84 F77_RET_T
83 F77_FUNC (dgbcon, DGBCON) (F77_CONST_CHAR_ARG_DECL, const octave_idx_type&, 85 F77_FUNC (dgbcon, DGBCON) (F77_CONST_CHAR_ARG_DECL,
84 const octave_idx_type&, const octave_idx_type&, double*, 86 const octave_idx_type&, const octave_idx_type&,
85 const octave_idx_type&, const octave_idx_type*, const double&, 87 const octave_idx_type&, double*,
86 double&, double*, octave_idx_type*, octave_idx_type& 88 const octave_idx_type&, const octave_idx_type*,
89 const double&, double&, double*,
90 octave_idx_type*, octave_idx_type&
87 F77_CHAR_ARG_LEN_DECL); 91 F77_CHAR_ARG_LEN_DECL);
88 92
89 F77_RET_T 93 F77_RET_T
90 F77_FUNC (dpbtrf, DPBTRF) (F77_CONST_CHAR_ARG_DECL, const octave_idx_type&, 94 F77_FUNC (dpbtrf, DPBTRF) (F77_CONST_CHAR_ARG_DECL,
91 const octave_idx_type&, double*, const octave_idx_type&, octave_idx_type& 95 const octave_idx_type&, const octave_idx_type&,
92 F77_CHAR_ARG_LEN_DECL);
93
94 F77_RET_T
95 F77_FUNC (dpbtrs, DPBTRS) (F77_CONST_CHAR_ARG_DECL, const octave_idx_type&,
96 const octave_idx_type&, const octave_idx_type&, double*, const octave_idx_type&,
97 double*, const octave_idx_type&, octave_idx_type& 96 double*, const octave_idx_type&, octave_idx_type&
98 F77_CHAR_ARG_LEN_DECL); 97 F77_CHAR_ARG_LEN_DECL);
99 98
100 F77_RET_T 99 F77_RET_T
101 F77_FUNC (dpbcon, DPBCON) (F77_CONST_CHAR_ARG_DECL, const octave_idx_type&, 100 F77_FUNC (dpbtrs, DPBTRS) (F77_CONST_CHAR_ARG_DECL,
102 const octave_idx_type&, double*, const octave_idx_type&, 101 const octave_idx_type&, const octave_idx_type&,
103 const double&, double&, double*, octave_idx_type*, octave_idx_type& 102 const octave_idx_type&, double*,
103 const octave_idx_type&, double*,
104 const octave_idx_type&, octave_idx_type&
105 F77_CHAR_ARG_LEN_DECL);
106
107 F77_RET_T
108 F77_FUNC (dpbcon, DPBCON) (F77_CONST_CHAR_ARG_DECL,
109 const octave_idx_type&, const octave_idx_type&,
110 double*, const octave_idx_type&,
111 const double&, double&, double*,
112 octave_idx_type*, octave_idx_type&
104 F77_CHAR_ARG_LEN_DECL); 113 F77_CHAR_ARG_LEN_DECL);
105 F77_RET_T 114 F77_RET_T
106 F77_FUNC (dptsv, DPTSV) (const octave_idx_type&, const octave_idx_type&, double*, double*, 115 F77_FUNC (dptsv, DPTSV) (const octave_idx_type&, const octave_idx_type&,
107 double*, const octave_idx_type&, octave_idx_type&); 116 double*, double*, double*, const octave_idx_type&,
117 octave_idx_type&);
108 118
109 F77_RET_T 119 F77_RET_T
110 F77_FUNC (dgtsv, DGTSV) (const octave_idx_type&, const octave_idx_type&, double*, double*, 120 F77_FUNC (dgtsv, DGTSV) (const octave_idx_type&, const octave_idx_type&,
111 double*, double*, const octave_idx_type&, octave_idx_type&); 121 double*, double*, double*, double*,
122 const octave_idx_type&, octave_idx_type&);
112 123
113 F77_RET_T 124 F77_RET_T
114 F77_FUNC (dgttrf, DGTTRF) (const octave_idx_type&, double*, double*, double*, double*, 125 F77_FUNC (dgttrf, DGTTRF) (const octave_idx_type&, double*, double*,
115 octave_idx_type*, octave_idx_type&); 126 double*, double*, octave_idx_type*,
127 octave_idx_type&);
116 128
117 F77_RET_T 129 F77_RET_T
118 F77_FUNC (dgttrs, DGTTRS) (F77_CONST_CHAR_ARG_DECL, const octave_idx_type&, 130 F77_FUNC (dgttrs, DGTTRS) (F77_CONST_CHAR_ARG_DECL,
119 const octave_idx_type&, const double*, const double*, 131 const octave_idx_type&, const octave_idx_type&,
120 const double*, const double*, const octave_idx_type*, 132 const double*, const double*, const double*,
133 const double*, const octave_idx_type*,
121 double *, const octave_idx_type&, octave_idx_type& 134 double *, const octave_idx_type&, octave_idx_type&
122 F77_CHAR_ARG_LEN_DECL); 135 F77_CHAR_ARG_LEN_DECL);
123 136
124 F77_RET_T 137 F77_RET_T
125 F77_FUNC (zptsv, ZPTSV) (const octave_idx_type&, const octave_idx_type&, double*, Complex*, 138 F77_FUNC (zptsv, ZPTSV) (const octave_idx_type&, const octave_idx_type&,
126 Complex*, const octave_idx_type&, octave_idx_type&); 139 double*, Complex*, Complex*, const octave_idx_type&,
140 octave_idx_type&);
127 141
128 F77_RET_T 142 F77_RET_T
129 F77_FUNC (zgtsv, ZGTSV) (const octave_idx_type&, const octave_idx_type&, Complex*, Complex*, 143 F77_FUNC (zgtsv, ZGTSV) (const octave_idx_type&, const octave_idx_type&,
130 Complex*, Complex*, const octave_idx_type&, octave_idx_type&); 144 Complex*, Complex*, Complex*, Complex*,
145 const octave_idx_type&, octave_idx_type&);
131 146
132 } 147 }
133 148
134 SparseMatrix::SparseMatrix (const SparseBoolMatrix &a) 149 SparseMatrix::SparseMatrix (const SparseBoolMatrix &a)
135 : MSparse<double> (a.rows (), a.cols (), a.nnz ()) 150 : MSparse<double> (a.rows (), a.cols (), a.nnz ())