-
Notifications
You must be signed in to change notification settings - Fork 2
/
writecfl.m
41 lines (34 loc) · 1.08 KB
/
writecfl.m
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
function writecfl(filenameBase,data)
%WRITECFL Write complex data to file.
% Writes reconstruction data to filenameBase.cfl (complex float) and its
% dimensions to filenameBase.hdr.
%
% Written to edit data with the Berkeley Advanced Reconstruction Toolbox (BART).
%
% Copyright 2013. Joseph Y Cheng.
% Copyright 2016. CBClab, Maastricht University.
% 2012 Joseph Y Cheng (jycheng@mrsrl.stanford.edu).
% 2016 Tim Loderhose (t.loderhose@student.maastrichtuniversity.nl).
dims = size(data);
writeReconHeader(filenameBase,dims);
filename = strcat(filenameBase,'.cfl');
fid = fopen(filename,'w');
data = data(:);
fwrite(fid,[real(data)'; imag(data)'],'float32');
fclose(fid);
end
function writeReconHeader(filenameBase,dims)
filename = strcat(filenameBase,'.hdr');
fid = fopen(filename,'w');
fprintf(fid,'# Dimensions\n');
for N=1:length(dims)
fprintf(fid,'%d ',dims(N));
end
if length(dims) < 5
for N=1:(5-length(dims))
fprintf(fid,'1 ');
end
end
fprintf(fid,'\n');
fclose(fid);
end