mirror of
https://github.com/mborgerding/kissfft.git
synced 2025-05-27 21:20:27 -04:00
21 lines
332 B
Matlab
Executable File
21 lines
332 B
Matlab
Executable File
function filesave( fname , prec , data )
|
|
|
|
# kiss fft stores data by rows
|
|
data = vec(data.');
|
|
|
|
len = length(data);
|
|
|
|
f = fopen(fname,"w", "native");
|
|
|
|
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
|