Mercurial > octave-nkf

comparison src/ls-mat5.cc @ 5058:11bea7392e69

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[project @ 2004-11-01 21:06:44 by jwe]
author jwe
date Mon, 01 Nov 2004 21:06:44 +0000
parents 44046bbaa52c
children 3db2b2762491
comparison
equal deleted inserted replaced
5057:3bc00c1098e1 5058:11bea7392e69
887 os.write (buf, 32); 887 os.write (buf, 32);
888 } 888 }
889 889
890 int len = m.numel (); 890 int len = m.numel ();
891 891
892 for (Octave_map::const_iterator i = m.begin (); i != m.end (); i++) 892 for (int j = 0; j < len; j++)
893 { 893 {
894 // write the data of each element 894 // write the data of each element
895 Cell elts = m.contents (i); 895
896 896 for (Octave_map::const_iterator i = m.begin (); i != m.end (); i++)
897 for (int j = 0; j < len; j++)
898 { 897 {
898 Cell elts = m.contents (i);
899
899 bool retval2 = save_mat5_binary_element (os, elts(j), "", 900 bool retval2 = save_mat5_binary_element (os, elts(j), "",
900 mark_as_global, 901 mark_as_global,
901 save_as_floats); 902 save_as_floats);
902 if (! retval2) 903 if (! retval2)
903 goto error_cleanup; 904 goto error_cleanup;