Mercurial > octave-nkf

comparison liboctave/Array-f.cc @ 11586:12df7854fa7c

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
strip trailing whitespace from source files
author John W. Eaton <jwe@octave.org>
date Thu, 20 Jan 2011 17:24:59 -0500
parents fd0a3ac60b0e
children 72c96de7a403
comparison
equal deleted inserted replaced
11585:1473d0cf86d2 11586:12df7854fa7c
114 // Sort out NaNs. 114 // Sort out NaNs.
115 do 115 do
116 r = el[j++]; 116 r = el[j++];
117 while (xisnan (r) && j < n); 117 while (xisnan (r) && j < n);
118 118
119 // Orient the test so that NaN will not pass through. 119 // Orient the test so that NaN will not pass through.
120 for (; j < n; j++) 120 for (; j < n; j++)
121 { 121 {
122 if (r >= el[j]) 122 if (r >= el[j])
123 r = el[j]; 123 r = el[j];
124 else 124 else
135 while (n > 0 && xisnan (el[n-1])) 135 while (n > 0 && xisnan (el[n-1]))
136 n--; 136 n--;
137 137
138 if (n > 0) 138 if (n > 0)
139 { 139 {
140 // Orient the test so that NaN will not pass through. 140 // Orient the test so that NaN will not pass through.
141 float r = el[0]; 141 float r = el[0];
142 for (octave_idx_type j = 1; j < n; j++) 142 for (octave_idx_type j = 1; j < n; j++)
143 { 143 {
144 if (r <= el[j]) 144 if (r <= el[j])
145 r = el[j]; 145 r = el[j];