function savemat(name, M, extra);
% function savemat(name, M, extra);
% SAVEMAT Save a MFBF matrix file.
%
% Usage: savemat('file', M);
% or savemat('file', M, extra);
%
% SAVEMAT('file',M) saves matrix M into 'file' in MFBF
% binary format.
% SAVEMAT('file',M, extra) appends the
% string <extra> to the bottom of that file.
%
% See also LOADMAT.
%
% Thom Oostendorp, MF&BF Radboud University, Nijmegen, the Netherlands
size(M)
M=M';
f=fopen(name, 'wb');
n=size(M);
fwrite(f, n(2), 'long');
fwrite(f, n(1), 'long');
fwrite(f, M, 'float');
if (exist('extra'))
[m,n]=size(extra);
for i=1:m,
fwrite(f, extra(i,:));
fwrite(f, char(10));
end;
end
fclose(f);