Mercurial > octave-nkf

comparison src/mex.cc @ 5982:1ed991f0ed61

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[project @ 2006-09-05 20:13:50 by jwe]
author jwe
date Tue, 05 Sep 2006 20:13:50 +0000
parents 288c341438f9
children bda649f500bd
comparison
equal deleted inserted replaced
5981:dadcfe8b7ba4 5982:1ed991f0ed61
1390 { 1390 {
1391 case mxLOGICAL_CLASS: 1391 case mxLOGICAL_CLASS:
1392 { 1392 {
1393 bool *ppr = static_cast<bool *> (pr); 1393 bool *ppr = static_cast<bool *> (pr);
1394 1394
1395 SparseBoolMatrix val (get_m (), get_n (), nzmax); 1395 SparseBoolMatrix val (get_m (), get_n (),
1396 static_cast<octave_idx_type> (nzmax));
1396 1397
1397 for (int i = 0; i < nzmax; i++) 1398 for (int i = 0; i < nzmax; i++)
1398 { 1399 {
1399 val.xdata(i) = ppr[i]; 1400 val.xdata(i) = ppr[i];
1400 val.xridx(i) = ir[i]; 1401 val.xridx(i) = ir[i];
1416 if (pi) 1417 if (pi)
1417 { 1418 {
1418 double *ppr = static_cast<double *> (pr); 1419 double *ppr = static_cast<double *> (pr);
1419 double *ppi = static_cast<double *> (pi); 1420 double *ppi = static_cast<double *> (pi);
1420 1421
1421 SparseComplexMatrix val (get_m (), get_n (), nzmax); 1422 SparseComplexMatrix val (get_m (), get_n (),
1423 static_cast<octave_idx_type> (nzmax));
1422 1424
1423 for (int i = 0; i < nzmax; i++) 1425 for (int i = 0; i < nzmax; i++)
1424 { 1426 {
1425 val.xdata(i) = Complex (ppr[i], ppi[i]); 1427 val.xdata(i) = Complex (ppr[i], ppi[i]);
1426 val.xridx(i) = ir[i]; 1428 val.xridx(i) = ir[i];
1433 } 1435 }
1434 else 1436 else
1435 { 1437 {
1436 double *ppr = static_cast<double *> (pr); 1438 double *ppr = static_cast<double *> (pr);
1437 1439
1438 SparseMatrix val (get_m (), get_n (), nzmax); 1440 SparseMatrix val (get_m (), get_n (),
1441 static_cast<octave_idx_type> (nzmax));
1439 1442
1440 for (int i = 0; i < nzmax; i++) 1443 for (int i = 0; i < nzmax; i++)
1441 { 1444 {
1442 val.xdata(i) = ppr[i]; 1445 val.xdata(i) = ppr[i];
1443 val.xridx(i) = ir[i]; 1446 val.xridx(i) = ir[i];