Mercurial > octave-nkf

comparison liboctave/numeric/dbleCHOL.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
118 { 118 {
119 for (octave_idx_type j = 0; j < n; j++) 119 for (octave_idx_type j = 0; j < n; j++)
120 { 120 {
121 for (octave_idx_type i = 0; i < j; i++) 121 for (octave_idx_type i = 0; i < j; i++)
122 chol_mat.xelem (i, j) = 0.0; 122 chol_mat.xelem (i, j) = 0.0;
123 for (octave_idx_type i = j; i < n; i++) 123 for (octave_idx_type i = j; i < n; i++)
124 chol_mat.xelem (i, j) = a (i, j); 124 chol_mat.xelem (i, j) = a (i, j);
125 } 125 }
126 } 126 }
127 double *h = chol_mat.fortran_vec (); 127 double *h = chol_mat.fortran_vec ();
128 128
159 if (is_upper) 159 if (is_upper)
160 { 160 {
161 F77_XFCN (dpocon, DPOCON, (F77_CONST_CHAR_ARG2 ("U", 1), n, h, 161 F77_XFCN (dpocon, DPOCON, (F77_CONST_CHAR_ARG2 ("U", 1), n, h,
162 n, anorm, xrcond, pz, piz, dpocon_info 162 n, anorm, xrcond, pz, piz, dpocon_info
163 F77_CHAR_ARG_LEN (1))); 163 F77_CHAR_ARG_LEN (1)));
164 } 164 }
165 else 165 else
166 { 166 {
167 F77_XFCN (dpocon, DPOCON, (F77_CONST_CHAR_ARG2 ("L", 1), n, h, 167 F77_XFCN (dpocon, DPOCON, (F77_CONST_CHAR_ARG2 ("L", 1), n, h,
168 n, anorm, xrcond, pz, piz, dpocon_info 168 n, anorm, xrcond, pz, piz, dpocon_info
169 F77_CHAR_ARG_LEN (1))); 169 F77_CHAR_ARG_LEN (1)));
170 } 170 }
171
172 171
173 if (dpocon_info != 0) 172 if (dpocon_info != 0)
174 info = -1; 173 info = -1;
175 } 174 }
176 175