Mercurial > hg > octave-nkf

comparison src/DLD-FUNCTIONS/spchol.cc @ 5760:8d7162924bd3

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[project @ 2006-04-14 04:01:37 by jwe]
author jwe
date Fri, 14 Apr 2006 04:01:40 +0000
parents 34cda7d94c08
children 080c08b192d8
comparison
equal deleted inserted replaced
5759:ce79d238f142 5760:8d7162924bd3
404 cm->print = -1; 404 cm->print = -1;
405 cm->print_function = NULL; 405 cm->print_function = NULL;
406 } 406 }
407 else 407 else
408 { 408 {
409 cm->print = (int)spu + 2; 409 cm->print = static_cast<int> (spu) + 2;
410 cm->print_function =&SparseCholPrint; 410 cm->print_function =&SparseCholPrint;
411 } 411 }
412 412
413 cm->error_handler = &SparseCholError; 413 cm->error_handler = &SparseCholError;
414 cm->complex_divide = CHOLMOD_NAME(divcomplex); 414 cm->complex_divide = CHOLMOD_NAME(divcomplex);
650 /* compute the elimination tree height */ 650 /* compute the elimination tree height */
651 octave_idx_type height = 0 ; 651 octave_idx_type height = 0 ;
652 for (int i = 0 ; i < n ; i++) 652 for (int i = 0 ; i < n ; i++)
653 height = (height > Level[i] ? height : Level[i]); 653 height = (height > Level[i] ? height : Level[i]);
654 height++ ; 654 height++ ;
655 retval(1) = (double)height; 655 retval(1) = static_cast<double> (height);
656 } 656 }
657 657
658 for (octave_idx_type i = 0; i < n; i++) 658 for (octave_idx_type i = 0; i < n; i++)
659 tmp(i) = ColCount[i]; 659 tmp(i) = ColCount[i];
660 retval(0) = tmp; 660 retval(0) = tmp;