mirror of
https://github.com/mborgerding/kissfft.git
synced 2025-12-01 23:12:49 -05:00
17 lines
276 B
Matlab
Executable File
17 lines
276 B
Matlab
Executable File
function filesave( fname , prec , data )
|
|
|
|
f = fopen(fname,"w", "native");
|
|
len=length(data);
|
|
|
|
if is_complex(data),
|
|
flat=zeros(1,2*len);
|
|
flat(1:2:2*len) = real(data);
|
|
flat(2:2:2*len) = imag(data);
|
|
data = flat;
|
|
endif
|
|
|
|
fwrite(f,data,prec);
|
|
fclose(f);
|
|
|
|
endfunction
|