Mercurial > hg > octave-lyh

comparison liboctave/dSparse.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
5225 cholmod_common Common; 5225 cholmod_common Common;
5226 cholmod_common *cm = &Common; 5226 cholmod_common *cm = &Common;
5227 5227
5228 // Setup initial parameters 5228 // Setup initial parameters
5229 CHOLMOD_NAME(start) (cm); 5229 CHOLMOD_NAME(start) (cm);
5230 cm->prefer_zomplex = FALSE; 5230 cm->prefer_zomplex = false;
5231 5231
5232 double spu = Voctave_sparse_controls.get_key ("spumoni"); 5232 double spu = Voctave_sparse_controls.get_key ("spumoni");
5233 if (spu == 0.) 5233 if (spu == 0.)
5234 { 5234 {
5235 cm->print = -1; 5235 cm->print = -1;
5263 cm->metis_memory = 0.0; 5263 cm->metis_memory = 0.0;
5264 #endif 5264 #endif
5265 #endif 5265 #endif
5266 #endif 5266 #endif
5267 5267
5268 cm->final_ll = TRUE; 5268 cm->final_ll = true;
5269 5269
5270 cholmod_sparse Astore; 5270 cholmod_sparse Astore;
5271 cholmod_sparse *A = &Astore; 5271 cholmod_sparse *A = &Astore;
5272 double dummy; 5272 double dummy;
5273 A->nrow = nr; 5273 A->nrow = nr;
5274 A->ncol = nc; 5274 A->ncol = nc;
5275 5275
5276 A->p = cidx(); 5276 A->p = cidx();
5277 A->i = ridx(); 5277 A->i = ridx();
5278 A->nzmax = nonzero(); 5278 A->nzmax = nonzero();
5279 A->packed = TRUE; 5279 A->packed = true;
5280 A->sorted = TRUE; 5280 A->sorted = true;
5281 A->nz = NULL; 5281 A->nz = NULL;
5282 #ifdef IDX_TYPE_LONG 5282 #ifdef IDX_TYPE_LONG
5283 A->itype = CHOLMOD_LONG; 5283 A->itype = CHOLMOD_LONG;
5284 #else 5284 #else
5285 A->itype = CHOLMOD_INT; 5285 A->itype = CHOLMOD_INT;
5467 cholmod_common Common; 5467 cholmod_common Common;
5468 cholmod_common *cm = &Common; 5468 cholmod_common *cm = &Common;
5469 5469
5470 // Setup initial parameters 5470 // Setup initial parameters
5471 CHOLMOD_NAME(start) (cm); 5471 CHOLMOD_NAME(start) (cm);
5472 cm->prefer_zomplex = FALSE; 5472 cm->prefer_zomplex = false;
5473 5473
5474 double spu = Voctave_sparse_controls.get_key ("spumoni"); 5474 double spu = Voctave_sparse_controls.get_key ("spumoni");
5475 if (spu == 0.) 5475 if (spu == 0.)
5476 { 5476 {
5477 cm->print = -1; 5477 cm->print = -1;
5505 cm->metis_memory = 0.0; 5505 cm->metis_memory = 0.0;
5506 #endif 5506 #endif
5507 #endif 5507 #endif
5508 #endif 5508 #endif
5509 5509
5510 cm->final_ll = TRUE; 5510 cm->final_ll = true;
5511 5511
5512 cholmod_sparse Astore; 5512 cholmod_sparse Astore;
5513 cholmod_sparse *A = &Astore; 5513 cholmod_sparse *A = &Astore;
5514 double dummy; 5514 double dummy;
5515 A->nrow = nr; 5515 A->nrow = nr;
5516 A->ncol = nc; 5516 A->ncol = nc;
5517 5517
5518 A->p = cidx(); 5518 A->p = cidx();
5519 A->i = ridx(); 5519 A->i = ridx();
5520 A->nzmax = nonzero(); 5520 A->nzmax = nonzero();
5521 A->packed = TRUE; 5521 A->packed = true;
5522 A->sorted = TRUE; 5522 A->sorted = true;
5523 A->nz = NULL; 5523 A->nz = NULL;
5524 #ifdef IDX_TYPE_LONG 5524 #ifdef IDX_TYPE_LONG
5525 A->itype = CHOLMOD_LONG; 5525 A->itype = CHOLMOD_LONG;
5526 #else 5526 #else
5527 A->itype = CHOLMOD_INT; 5527 A->itype = CHOLMOD_INT;
5540 B->nrow = b.rows(); 5540 B->nrow = b.rows();
5541 B->ncol = b.cols(); 5541 B->ncol = b.cols();
5542 B->p = b.cidx(); 5542 B->p = b.cidx();
5543 B->i = b.ridx(); 5543 B->i = b.ridx();
5544 B->nzmax = b.nonzero(); 5544 B->nzmax = b.nonzero();
5545 B->packed = TRUE; 5545 B->packed = true;
5546 B->sorted = TRUE; 5546 B->sorted = true;
5547 B->nz = NULL; 5547 B->nz = NULL;
5548 #ifdef IDX_TYPE_LONG 5548 #ifdef IDX_TYPE_LONG
5549 B->itype = CHOLMOD_LONG; 5549 B->itype = CHOLMOD_LONG;
5550 #else 5550 #else
5551 B->itype = CHOLMOD_INT; 5551 B->itype = CHOLMOD_INT;
5756 cholmod_common Common; 5756 cholmod_common Common;
5757 cholmod_common *cm = &Common; 5757 cholmod_common *cm = &Common;
5758 5758
5759 // Setup initial parameters 5759 // Setup initial parameters
5760 CHOLMOD_NAME(start) (cm); 5760 CHOLMOD_NAME(start) (cm);
5761 cm->prefer_zomplex = FALSE; 5761 cm->prefer_zomplex = false;
5762 5762
5763 double spu = Voctave_sparse_controls.get_key ("spumoni"); 5763 double spu = Voctave_sparse_controls.get_key ("spumoni");
5764 if (spu == 0.) 5764 if (spu == 0.)
5765 { 5765 {
5766 cm->print = -1; 5766 cm->print = -1;
5794 cm->metis_memory = 0.0; 5794 cm->metis_memory = 0.0;
5795 #endif 5795 #endif
5796 #endif 5796 #endif
5797 #endif 5797 #endif
5798 5798
5799 cm->final_ll = TRUE; 5799 cm->final_ll = true;
5800 5800
5801 cholmod_sparse Astore; 5801 cholmod_sparse Astore;
5802 cholmod_sparse *A = &Astore; 5802 cholmod_sparse *A = &Astore;
5803 double dummy; 5803 double dummy;
5804 A->nrow = nr; 5804 A->nrow = nr;
5805 A->ncol = nc; 5805 A->ncol = nc;
5806 5806
5807 A->p = cidx(); 5807 A->p = cidx();
5808 A->i = ridx(); 5808 A->i = ridx();
5809 A->nzmax = nonzero(); 5809 A->nzmax = nonzero();
5810 A->packed = TRUE; 5810 A->packed = true;
5811 A->sorted = TRUE; 5811 A->sorted = true;
5812 A->nz = NULL; 5812 A->nz = NULL;
5813 #ifdef IDX_TYPE_LONG 5813 #ifdef IDX_TYPE_LONG
5814 A->itype = CHOLMOD_LONG; 5814 A->itype = CHOLMOD_LONG;
5815 #else 5815 #else
5816 A->itype = CHOLMOD_INT; 5816 A->itype = CHOLMOD_INT;
6018 cholmod_common Common; 6018 cholmod_common Common;
6019 cholmod_common *cm = &Common; 6019 cholmod_common *cm = &Common;
6020 6020
6021 // Setup initial parameters 6021 // Setup initial parameters
6022 CHOLMOD_NAME(start) (cm); 6022 CHOLMOD_NAME(start) (cm);
6023 cm->prefer_zomplex = FALSE; 6023 cm->prefer_zomplex = false;
6024 6024
6025 double spu = Voctave_sparse_controls.get_key ("spumoni"); 6025 double spu = Voctave_sparse_controls.get_key ("spumoni");
6026 if (spu == 0.) 6026 if (spu == 0.)
6027 { 6027 {
6028 cm->print = -1; 6028 cm->print = -1;
6056 cm->metis_memory = 0.0; 6056 cm->metis_memory = 0.0;
6057 #endif 6057 #endif
6058 #endif 6058 #endif
6059 #endif 6059 #endif
6060 6060
6061 cm->final_ll = TRUE; 6061 cm->final_ll = true;
6062 6062
6063 cholmod_sparse Astore; 6063 cholmod_sparse Astore;
6064 cholmod_sparse *A = &Astore; 6064 cholmod_sparse *A = &Astore;
6065 double dummy; 6065 double dummy;
6066 A->nrow = nr; 6066 A->nrow = nr;
6067 A->ncol = nc; 6067 A->ncol = nc;
6068 6068
6069 A->p = cidx(); 6069 A->p = cidx();
6070 A->i = ridx(); 6070 A->i = ridx();
6071 A->nzmax = nonzero(); 6071 A->nzmax = nonzero();
6072 A->packed = TRUE; 6072 A->packed = true;
6073 A->sorted = TRUE; 6073 A->sorted = true;
6074 A->nz = NULL; 6074 A->nz = NULL;
6075 #ifdef IDX_TYPE_LONG 6075 #ifdef IDX_TYPE_LONG
6076 A->itype = CHOLMOD_LONG; 6076 A->itype = CHOLMOD_LONG;
6077 #else 6077 #else
6078 A->itype = CHOLMOD_INT; 6078 A->itype = CHOLMOD_INT;
6091 B->nrow = b.rows(); 6091 B->nrow = b.rows();
6092 B->ncol = b.cols(); 6092 B->ncol = b.cols();
6093 B->p = b.cidx(); 6093 B->p = b.cidx();
6094 B->i = b.ridx(); 6094 B->i = b.ridx();
6095 B->nzmax = b.nonzero(); 6095 B->nzmax = b.nonzero();
6096 B->packed = TRUE; 6096 B->packed = true;
6097 B->sorted = TRUE; 6097 B->sorted = true;
6098 B->nz = NULL; 6098 B->nz = NULL;
6099 #ifdef IDX_TYPE_LONG 6099 #ifdef IDX_TYPE_LONG
6100 B->itype = CHOLMOD_LONG; 6100 B->itype = CHOLMOD_LONG;
6101 #else 6101 #else
6102 B->itype = CHOLMOD_INT; 6102 B->itype = CHOLMOD_INT;