Mercurial > hg > octave-nkf

comparison liboctave/CNDArray.cc @ 14844:5bc9b9cb4362

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
maint: Use Octave coding conventions for cuddled parenthesis in retval assignments. * hello.cc, Array-util.cc, CNDArray.cc, CSparse.cc, Sparse.cc, dNDArray.cc, dSparse.cc, fCNDArray.cc, fNDArray.cc, lo-specfun.cc, list_primes.m, rectangle_lw.m, sinetone.m, amd.cc, bsxfun.cc, ccolamd.cc, eigs.cc, lu.cc, qz.cc, spparms.cc, oct-stream.cc: Use Octave coding conventions for cuddled parenthesis in retval assignments.
author Rik <octave@nomad.inbox5.com>
date Fri, 06 Jul 2012 14:00:25 -0700
parents e8e86ae3abbc
children 460a3c6d8bf1
comparison
equal deleted inserted replaced
14843:7d4f87c75dbb 14844:5bc9b9cb4362
243 tmp[i] = elem((i + k*npts)*stride + j*dist); 243 tmp[i] = elem((i + k*npts)*stride + j*dist);
244 244
245 F77_FUNC (zfftf, ZFFTF) (npts, tmp, pwsave); 245 F77_FUNC (zfftf, ZFFTF) (npts, tmp, pwsave);
246 246
247 for (octave_idx_type i = 0; i < npts; i++) 247 for (octave_idx_type i = 0; i < npts; i++)
248 retval ((i + k*npts)*stride + j*dist) = tmp[i]; 248 retval((i + k*npts)*stride + j*dist) = tmp[i];
249 } 249 }
250 } 250 }
251 251
252 return retval; 252 return retval;
253 } 253 }
290 tmp[i] = elem((i + k*npts)*stride + j*dist); 290 tmp[i] = elem((i + k*npts)*stride + j*dist);
291 291
292 F77_FUNC (zfftb, ZFFTB) (npts, tmp, pwsave); 292 F77_FUNC (zfftb, ZFFTB) (npts, tmp, pwsave);
293 293
294 for (octave_idx_type i = 0; i < npts; i++) 294 for (octave_idx_type i = 0; i < npts; i++)
295 retval ((i + k*npts)*stride + j*dist) = tmp[i] / 295 retval((i + k*npts)*stride + j*dist) = tmp[i] /
296 static_cast<double> (npts); 296 static_cast<double> (npts);
297 } 297 }
298 } 298 }
299 299
300 return retval; 300 return retval;
331 for (octave_idx_type j = 0; j < howmany; j++) 331 for (octave_idx_type j = 0; j < howmany; j++)
332 { 332 {
333 octave_quit (); 333 octave_quit ();
334 334
335 for (octave_idx_type l = 0; l < npts; l++) 335 for (octave_idx_type l = 0; l < npts; l++)
336 prow[l] = retval ((l + k*npts)*stride + j*dist); 336 prow[l] = retval((l + k*npts)*stride + j*dist);
337 337
338 F77_FUNC (zfftf, ZFFTF) (npts, prow, pwsave); 338 F77_FUNC (zfftf, ZFFTF) (npts, prow, pwsave);
339 339
340 for (octave_idx_type l = 0; l < npts; l++) 340 for (octave_idx_type l = 0; l < npts; l++)
341 retval ((l + k*npts)*stride + j*dist) = prow[l]; 341 retval((l + k*npts)*stride + j*dist) = prow[l];
342 } 342 }
343 } 343 }
344 344
345 stride *= dv2(i); 345 stride *= dv2(i);
346 } 346 }
379 for (octave_idx_type j = 0; j < howmany; j++) 379 for (octave_idx_type j = 0; j < howmany; j++)
380 { 380 {
381 octave_quit (); 381 octave_quit ();
382 382
383 for (octave_idx_type l = 0; l < npts; l++) 383 for (octave_idx_type l = 0; l < npts; l++)
384 prow[l] = retval ((l + k*npts)*stride + j*dist); 384 prow[l] = retval((l + k*npts)*stride + j*dist);
385 385
386 F77_FUNC (zfftb, ZFFTB) (npts, prow, pwsave); 386 F77_FUNC (zfftb, ZFFTB) (npts, prow, pwsave);
387 387
388 for (octave_idx_type l = 0; l < npts; l++) 388 for (octave_idx_type l = 0; l < npts; l++)
389 retval ((l + k*npts)*stride + j*dist) = prow[l] / 389 retval((l + k*npts)*stride + j*dist) = prow[l] /
390 static_cast<double> (npts); 390 static_cast<double> (npts);
391 } 391 }
392 } 392 }
393 393
394 stride *= dv2(i); 394 stride *= dv2(i);
427 for (octave_idx_type j = 0; j < howmany; j++) 427 for (octave_idx_type j = 0; j < howmany; j++)
428 { 428 {
429 octave_quit (); 429 octave_quit ();
430 430
431 for (octave_idx_type l = 0; l < npts; l++) 431 for (octave_idx_type l = 0; l < npts; l++)
432 prow[l] = retval ((l + k*npts)*stride + j*dist); 432 prow[l] = retval((l + k*npts)*stride + j*dist);
433 433
434 F77_FUNC (zfftf, ZFFTF) (npts, prow, pwsave); 434 F77_FUNC (zfftf, ZFFTF) (npts, prow, pwsave);
435 435
436 for (octave_idx_type l = 0; l < npts; l++) 436 for (octave_idx_type l = 0; l < npts; l++)
437 retval ((l + k*npts)*stride + j*dist) = prow[l]; 437 retval((l + k*npts)*stride + j*dist) = prow[l];
438 } 438 }
439 } 439 }
440 440
441 stride *= dv(i); 441 stride *= dv(i);
442 } 442 }
474 for (octave_idx_type j = 0; j < howmany; j++) 474 for (octave_idx_type j = 0; j < howmany; j++)
475 { 475 {
476 octave_quit (); 476 octave_quit ();
477 477
478 for (octave_idx_type l = 0; l < npts; l++) 478 for (octave_idx_type l = 0; l < npts; l++)
479 prow[l] = retval ((l + k*npts)*stride + j*dist); 479 prow[l] = retval((l + k*npts)*stride + j*dist);
480 480
481 F77_FUNC (zfftb, ZFFTB) (npts, prow, pwsave); 481 F77_FUNC (zfftb, ZFFTB) (npts, prow, pwsave);
482 482
483 for (octave_idx_type l = 0; l < npts; l++) 483 for (octave_idx_type l = 0; l < npts; l++)
484 retval ((l + k*npts)*stride + j*dist) = prow[l] / 484 retval((l + k*npts)*stride + j*dist) = prow[l] /
485 static_cast<double> (npts); 485 static_cast<double> (npts);
486 } 486 }
487 } 487 }
488 488
489 stride *= dv(i); 489 stride *= dv(i);