%FLOATWRITE Write matrix to float file.
%   FLOATWRITE(A,FILENAME,[format]) write matrix a to specified
%   file as four byte floating point numbers.
%
%   The option FORMAT argument specifies the storage format as
%   defined by FOPEN. Default format is 'native'.
%
%   See also FLOATREAD, FOPEN.

% xx-07-98  written by Sigurd Enghoff, Salk Institute
% 07-08-99  modified by Sigurd Enghoff, FORMAT argument added.

function floatwrite(A,fname,fform)

if ~exist('fform')
	fform = 'native';
end

fid = fopen(fname,'wb',fform);
fwrite(fid,A,'float');
fclose(fid);