Mercurial > octave-nkf

comparison liboctave/CSparse.cc @ 5526:8c56849b1509

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[project @ 2005-11-01 00:54:14 by jwe]
author jwe
date Tue, 01 Nov 2005 00:54:14 +0000
parents b4cfbb0ec8c4
children b4cb3f93c1e1
comparison
equal deleted inserted replaced
5525:558c69736dc0 5526:8c56849b1509
5006 cholmod_common Common; 5006 cholmod_common Common;
5007 cholmod_common *cm = &Common; 5007 cholmod_common *cm = &Common;
5008 5008
5009 // Setup initial parameters 5009 // Setup initial parameters
5010 CHOLMOD_NAME(start) (cm); 5010 CHOLMOD_NAME(start) (cm);
5011 cm->prefer_zomplex = FALSE; 5011 cm->prefer_zomplex = false;
5012 5012
5013 double spu = Voctave_sparse_controls.get_key ("spumoni"); 5013 double spu = Voctave_sparse_controls.get_key ("spumoni");
5014 if (spu == 0.) 5014 if (spu == 0.)
5015 { 5015 {
5016 cm->print = -1; 5016 cm->print = -1;
5043 // without killing all of octave. 5043 // without killing all of octave.
5044 cm->metis_memory = 0.0; 5044 cm->metis_memory = 0.0;
5045 #endif 5045 #endif
5046 #endif 5046 #endif
5047 #endif 5047 #endif
5048 5048 cm->final_ll = true;
5049 cm->final_ll = TRUE;
5050 5049
5051 cholmod_sparse Astore; 5050 cholmod_sparse Astore;
5052 cholmod_sparse *A = &Astore; 5051 cholmod_sparse *A = &Astore;
5053 double dummy; 5052 double dummy;
5054 A->nrow = nr; 5053 A->nrow = nr;
5055 A->ncol = nc; 5054 A->ncol = nc;
5056 5055
5057 A->p = cidx(); 5056 A->p = cidx();
5058 A->i = ridx(); 5057 A->i = ridx();
5059 A->nzmax = nonzero(); 5058 A->nzmax = nonzero();
5060 A->packed = TRUE; 5059 A->packed = true;
5061 A->sorted = TRUE; 5060 A->sorted = true;
5062 A->nz = NULL; 5061 A->nz = NULL;
5063 #ifdef IDX_TYPE_LONG 5062 #ifdef IDX_TYPE_LONG
5064 A->itype = CHOLMOD_LONG; 5063 A->itype = CHOLMOD_LONG;
5065 #else 5064 #else
5066 A->itype = CHOLMOD_INT; 5065 A->itype = CHOLMOD_INT;
5275 cholmod_common Common; 5274 cholmod_common Common;
5276 cholmod_common *cm = &Common; 5275 cholmod_common *cm = &Common;
5277 5276
5278 // Setup initial parameters 5277 // Setup initial parameters
5279 CHOLMOD_NAME(start) (cm); 5278 CHOLMOD_NAME(start) (cm);
5280 cm->prefer_zomplex = FALSE; 5279 cm->prefer_zomplex = false;
5281 5280
5282 double spu = Voctave_sparse_controls.get_key ("spumoni"); 5281 double spu = Voctave_sparse_controls.get_key ("spumoni");
5283 if (spu == 0.) 5282 if (spu == 0.)
5284 { 5283 {
5285 cm->print = -1; 5284 cm->print = -1;
5313 cm->metis_memory = 0.0; 5312 cm->metis_memory = 0.0;
5314 #endif 5313 #endif
5315 #endif 5314 #endif
5316 #endif 5315 #endif
5317 5316
5318 cm->final_ll = TRUE; 5317 cm->final_ll = true;
5319 5318
5320 cholmod_sparse Astore; 5319 cholmod_sparse Astore;
5321 cholmod_sparse *A = &Astore; 5320 cholmod_sparse *A = &Astore;
5322 double dummy; 5321 double dummy;
5323 A->nrow = nr; 5322 A->nrow = nr;
5324 A->ncol = nc; 5323 A->ncol = nc;
5325 5324
5326 A->p = cidx(); 5325 A->p = cidx();
5327 A->i = ridx(); 5326 A->i = ridx();
5328 A->nzmax = nonzero(); 5327 A->nzmax = nonzero();
5329 A->packed = TRUE; 5328 A->packed = true;
5330 A->sorted = TRUE; 5329 A->sorted = true;
5331 A->nz = NULL; 5330 A->nz = NULL;
5332 #ifdef IDX_TYPE_LONG 5331 #ifdef IDX_TYPE_LONG
5333 A->itype = CHOLMOD_LONG; 5332 A->itype = CHOLMOD_LONG;
5334 #else 5333 #else
5335 A->itype = CHOLMOD_INT; 5334 A->itype = CHOLMOD_INT;
5348 B->nrow = b.rows(); 5347 B->nrow = b.rows();
5349 B->ncol = b.cols(); 5348 B->ncol = b.cols();
5350 B->p = b.cidx(); 5349 B->p = b.cidx();
5351 B->i = b.ridx(); 5350 B->i = b.ridx();
5352 B->nzmax = b.nonzero(); 5351 B->nzmax = b.nonzero();
5353 B->packed = TRUE; 5352 B->packed = true;
5354 B->sorted = TRUE; 5353 B->sorted = true;
5355 B->nz = NULL; 5354 B->nz = NULL;
5356 #ifdef IDX_TYPE_LONG 5355 #ifdef IDX_TYPE_LONG
5357 B->itype = CHOLMOD_LONG; 5356 B->itype = CHOLMOD_LONG;
5358 #else 5357 #else
5359 B->itype = CHOLMOD_INT; 5358 B->itype = CHOLMOD_INT;
5589 cholmod_common Common; 5588 cholmod_common Common;
5590 cholmod_common *cm = &Common; 5589 cholmod_common *cm = &Common;
5591 5590
5592 // Setup initial parameters 5591 // Setup initial parameters
5593 CHOLMOD_NAME(start) (cm); 5592 CHOLMOD_NAME(start) (cm);
5594 cm->prefer_zomplex = FALSE; 5593 cm->prefer_zomplex = false;
5595 5594
5596 double spu = Voctave_sparse_controls.get_key ("spumoni"); 5595 double spu = Voctave_sparse_controls.get_key ("spumoni");
5597 if (spu == 0.) 5596 if (spu == 0.)
5598 { 5597 {
5599 cm->print = -1; 5598 cm->print = -1;
5627 cm->metis_memory = 0.0; 5626 cm->metis_memory = 0.0;
5628 #endif 5627 #endif
5629 #endif 5628 #endif
5630 #endif 5629 #endif
5631 5630
5632 cm->final_ll = TRUE; 5631 cm->final_ll = true;
5633 5632
5634 cholmod_sparse Astore; 5633 cholmod_sparse Astore;
5635 cholmod_sparse *A = &Astore; 5634 cholmod_sparse *A = &Astore;
5636 double dummy; 5635 double dummy;
5637 A->nrow = nr; 5636 A->nrow = nr;
5638 A->ncol = nc; 5637 A->ncol = nc;
5639 5638
5640 A->p = cidx(); 5639 A->p = cidx();
5641 A->i = ridx(); 5640 A->i = ridx();
5642 A->nzmax = nonzero(); 5641 A->nzmax = nonzero();
5643 A->packed = TRUE; 5642 A->packed = true;
5644 A->sorted = TRUE; 5643 A->sorted = true;
5645 A->nz = NULL; 5644 A->nz = NULL;
5646 #ifdef IDX_TYPE_LONG 5645 #ifdef IDX_TYPE_LONG
5647 A->itype = CHOLMOD_LONG; 5646 A->itype = CHOLMOD_LONG;
5648 #else 5647 #else
5649 A->itype = CHOLMOD_INT; 5648 A->itype = CHOLMOD_INT;
5836 cholmod_common Common; 5835 cholmod_common Common;
5837 cholmod_common *cm = &Common; 5836 cholmod_common *cm = &Common;
5838 5837
5839 // Setup initial parameters 5838 // Setup initial parameters
5840 CHOLMOD_NAME(start) (cm); 5839 CHOLMOD_NAME(start) (cm);
5841 cm->prefer_zomplex = FALSE; 5840 cm->prefer_zomplex = false;
5842 5841
5843 double spu = Voctave_sparse_controls.get_key ("spumoni"); 5842 double spu = Voctave_sparse_controls.get_key ("spumoni");
5844 if (spu == 0.) 5843 if (spu == 0.)
5845 { 5844 {
5846 cm->print = -1; 5845 cm->print = -1;
5874 cm->metis_memory = 0.0; 5873 cm->metis_memory = 0.0;
5875 #endif 5874 #endif
5876 #endif 5875 #endif
5877 #endif 5876 #endif
5878 5877
5879 cm->final_ll = TRUE; 5878 cm->final_ll = true;
5880 5879
5881 cholmod_sparse Astore; 5880 cholmod_sparse Astore;
5882 cholmod_sparse *A = &Astore; 5881 cholmod_sparse *A = &Astore;
5883 double dummy; 5882 double dummy;
5884 A->nrow = nr; 5883 A->nrow = nr;
5885 A->ncol = nc; 5884 A->ncol = nc;
5886 5885
5887 A->p = cidx(); 5886 A->p = cidx();
5888 A->i = ridx(); 5887 A->i = ridx();
5889 A->nzmax = nonzero(); 5888 A->nzmax = nonzero();
5890 A->packed = TRUE; 5889 A->packed = true;
5891 A->sorted = TRUE; 5890 A->sorted = true;
5892 A->nz = NULL; 5891 A->nz = NULL;
5893 #ifdef IDX_TYPE_LONG 5892 #ifdef IDX_TYPE_LONG
5894 A->itype = CHOLMOD_LONG; 5893 A->itype = CHOLMOD_LONG;
5895 #else 5894 #else
5896 A->itype = CHOLMOD_INT; 5895 A->itype = CHOLMOD_INT;
5909 B->nrow = b.rows(); 5908 B->nrow = b.rows();
5910 B->ncol = b.cols(); 5909 B->ncol = b.cols();
5911 B->p = b.cidx(); 5910 B->p = b.cidx();
5912 B->i = b.ridx(); 5911 B->i = b.ridx();
5913 B->nzmax = b.nonzero(); 5912 B->nzmax = b.nonzero();
5914 B->packed = TRUE; 5913 B->packed = true;
5915 B->sorted = TRUE; 5914 B->sorted = true;
5916 B->nz = NULL; 5915 B->nz = NULL;
5917 #ifdef IDX_TYPE_LONG 5916 #ifdef IDX_TYPE_LONG
5918 B->itype = CHOLMOD_LONG; 5917 B->itype = CHOLMOD_LONG;
5919 #else 5918 #else
5920 B->itype = CHOLMOD_INT; 5919 B->itype = CHOLMOD_INT;