function color_write(name, data)
[n_rows,n_cols] = size(data)

item_size = 8;
prec_type = 'float64';

fid = fopen(name,'w');
fwrite(fid,1,'uint');
fprintf(fid,'%s',prec_type);
fwrite(fid,13,'uint8');
fwrite(fid,n_rows,'uint');
fwrite(fid,n_cols,'uint');
fwrite(fid,n_rows*n_cols*item_size,'uint');
fwrite(fid,data(:),prec_type);
fclose(fid);