function write(fn, data)
fid = fopen(fn, 'w');

rows = size(data, 1);
cols = size(data, 2);

for i = 1:rows,
  for j = 1:cols,
    fprintf(fid, '%12.8f ', data(i, j));
  end
  fprintf(fid, '\n');
end
fclose(fid);
return;