Mercurial > hg > octave-nkf

comparison liboctave/dMatrix.cc @ 1365:9b2654476502

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[project @ 1995-09-05 23:44:41 by jwe]
author jwe
date Tue, 05 Sep 1995 23:50:05 +0000
parents 7eb93d12654c
children 9f9131a8d706
comparison
equal deleted inserted replaced
1364:353b06ad0194 1365:9b2654476502
527 info = -1; 527 info = -1;
528 copy (tmp_data, data (), len); // Restore matrix contents. 528 copy (tmp_data, data (), len); // Restore matrix contents.
529 } 529 }
530 else 530 else
531 { 531 {
532 double *dummy; 532 double *dummy = 0;
533 533
534 F77_FCN (dgedi, DGEDI) (tmp_data, nr, nc, ipvt, dummy, z, 1); 534 F77_FCN (dgedi, DGEDI) (tmp_data, nr, nc, ipvt, dummy, z, 1);
535 } 535 }
536 536
537 delete [] ipvt; 537 delete [] ipvt;
2185 } 2185 }
2186 2186
2187 return is; 2187 return is;
2188 } 2188 }
2189 2189
2190 // Read an array of data froma file in binary format. 2190 // Read an array of data from a file in binary format.
2191 2191
2192 int 2192 int
2193 Matrix::read (FILE *fptr, char *type) 2193 Matrix::read (FILE *fptr, const char *type)
2194 { 2194 {
2195 // Allocate buffer pointers. 2195 // Allocate buffer pointers.
2196 2196
2197 union 2197 union
2198 { 2198 {
2265 } 2265 }
2266 2266
2267 // Write the data array to a file in binary format. 2267 // Write the data array to a file in binary format.
2268 2268
2269 int 2269 int
2270 Matrix::write (FILE *fptr, char *type) 2270 Matrix::write (FILE *fptr, const char *type)
2271 { 2271 {
2272 // Allocate buffer pointers. 2272 // Allocate buffer pointers.
2273 2273
2274 union 2274 union
2275 { 2275 {