Mercurial > octave-nkf

comparison src/DLD-FUNCTIONS/colamd.cc @ 6484:1ece41c144a6

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[project @ 2007-04-04 03:22:16 by jwe]
author jwe
date Wed, 04 Apr 2007 03:22:17 +0000
parents 080c08b192d8
children 93c65f2a5668
comparison
equal deleted inserted replaced
6483:d00da2148c53 6484:1ece41c144a6
691 error ("etree: must be called with a sparse matrix"); 691 error ("etree: must be called with a sparse matrix");
692 return retval; 692 return retval;
693 } 693 }
694 694
695 if (nargin == 2) 695 if (nargin == 2)
696 if (args(1).is_string ()) 696 {
697 { 697 if (args(1).is_string ())
698 std::string str = args(1).string_value (); 698 {
699 if (str.find("C") == 0 || str.find("c") == 0) 699 std::string str = args(1).string_value ();
700 is_sym = false; 700 if (str.find ("C") == 0 || str.find ("c") == 0)
701 } 701 is_sym = false;
702 else 702 }
703 { 703 else
704 error ("etree: second argument must be a string"); 704 {
705 return retval; 705 error ("etree: second argument must be a string");
706 } 706 return retval;
707 707 }
708 }
708 // column elimination tree post-ordering (reuse variables) 709 // column elimination tree post-ordering (reuse variables)
709 OCTAVE_LOCAL_BUFFER (octave_idx_type, etree, n_col + 1); 710 OCTAVE_LOCAL_BUFFER (octave_idx_type, etree, n_col + 1);
710 711
711 712
712 if (is_sym) 713 if (is_sym)