Mercurial > octave-nkf

comparison liboctave/numeric/floatCHOL.cc @ 20566:dcfbf4c1c3c8

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
eliminate trailing whitespace and tabs from sources * Canvas.cc, Canvas.h, Figure.cc, gl-render.h, graphics.cc, ov-fcn-handle.cc, ov-java.cc, Range.cc, CmplxCHOL.cc, dbleCHOL.cc, floatCHOL.cc: Eliminate trailing whitespace and tabs used for indentation.
author John W. Eaton <jwe@octave.org>
date Thu, 01 Oct 2015 12:50:00 -0400
parents 5ce959c55cc0
children
comparison
equal deleted inserted replaced
20565:17e507df10e3 20566:dcfbf4c1c3c8
134 134
135 if (is_upper) 135 if (is_upper)
136 { 136 {
137 F77_XFCN (spotrf, SPOTRF, (F77_CONST_CHAR_ARG2 ("U", 1), 137 F77_XFCN (spotrf, SPOTRF, (F77_CONST_CHAR_ARG2 ("U", 1),
138 n, h, n, info 138 n, h, n, info
139 F77_CHAR_ARG_LEN (1))); 139 F77_CHAR_ARG_LEN (1)));
140 } 140 }
141 else 141 else
142 { 142 {
143 F77_XFCN (spotrf, SPOTRF, (F77_CONST_CHAR_ARG2 ("L", 1), 143 F77_XFCN (spotrf, SPOTRF, (F77_CONST_CHAR_ARG2 ("L", 1),
144 n, h, n, info 144 n, h, n, info
145 F77_CHAR_ARG_LEN (1))); 145 F77_CHAR_ARG_LEN (1)));
146 } 146 }
147 147
148 xrcond = 0.0; 148 xrcond = 0.0;
149 if (info > 0) 149 if (info > 0)
150 chol_mat.resize (info - 1, info - 1); 150 chol_mat.resize (info - 1, info - 1);
159 octave_idx_type *piz = iz.fortran_vec (); 159 octave_idx_type *piz = iz.fortran_vec ();
160 if (is_upper) 160 if (is_upper)
161 { 161 {
162 F77_XFCN (spocon, SPOCON, (F77_CONST_CHAR_ARG2 ("U", 1), n, h, 162 F77_XFCN (spocon, SPOCON, (F77_CONST_CHAR_ARG2 ("U", 1), n, h,
163 n, anorm, xrcond, pz, piz, spocon_info 163 n, anorm, xrcond, pz, piz, spocon_info
164 F77_CHAR_ARG_LEN (1))); 164 F77_CHAR_ARG_LEN (1)));
165 } 165 }
166 else 166 else
167 { 167 {
168 F77_XFCN (spocon, SPOCON, (F77_CONST_CHAR_ARG2 ("L", 1), n, h, 168 F77_XFCN (spocon, SPOCON, (F77_CONST_CHAR_ARG2 ("L", 1), n, h,
169 n, anorm, xrcond, pz, piz, spocon_info 169 n, anorm, xrcond, pz, piz, spocon_info
170 F77_CHAR_ARG_LEN (1))); 170 F77_CHAR_ARG_LEN (1)));
171 } 171 }
172 172
173 173
174 if (spocon_info != 0) 174 if (spocon_info != 0)
175 info = -1; 175 info = -1;
216 { 216 {
217 if (is_upper) 217 if (is_upper)
218 { 218 {
219 for (octave_idx_type j = 0; j < r_nc; j++) 219 for (octave_idx_type j = 0; j < r_nc; j++)
220 for (octave_idx_type i = j+1; i < r_nr; i++) 220 for (octave_idx_type i = j+1; i < r_nr; i++)
221 tmp.xelem (i, j) = tmp.xelem (j, i); 221 tmp.xelem (i, j) = tmp.xelem (j, i);
222 } 222 }
223 else 223 else
224 { 224 {
225 for (octave_idx_type j = 0; j < r_nc; j++) 225 for (octave_idx_type j = 0; j < r_nc; j++)
226 for (octave_idx_type i = j+1; i < r_nr; i++) 226 for (octave_idx_type i = j+1; i < r_nr; i++)