function dat=read_svk(filenum,sw)

if nargin<2, sw=0; end;

%%
%filenum=0;%%%%
fn=[num2str(filenum)];

%filename=['FRF_',fn(end-2:end),'.csv'];

dat=textread([fn,'.csv'],'','delimiter',',','headerlines',11);
dat(:,3)=10.^(dat(:,3)/20);

%%

if sw~=0

subplot(3,1,1)
loglog(dat(:,2),dat(:,3)); 
grid on
ylabel('Gain')
set(gca ,'XLimMode', 'manual')
set(gca ,'YLimMode', 'manual')
set(gca ,'ZLimMode', 'manual')

set(gca ,'XTickMode', 'manual')
set(gca ,'YTickMode', 'manual')
set(gca ,'ZTickMode', 'manual')

set(gca ,'ALimMode', 'manual')

%%
subplot(3,1,2)
semilogx(dat(:,2),dat(:,4));
grid on
ylabel('Phase')
set(gca ,'XLimMode', 'manual')
set(gca ,'YLimMode', 'manual')
set(gca ,'ZLimMode', 'manual')
set(gca ,'YLim', [-180 180])

set(gca ,'XTickMode', 'manual')
set(gca ,'YTickMode', 'manual')
set(gca ,'ZTickMode', 'manual')

set(gca ,'ALimMode', 'manual')

%%
subplot(3,1,3)
semilogx(dat(:,2),dat(:,5)); 
grid on
ylabel('Coherence')
xlabel('Frequency  [Hz]')
set(gca ,'XLimMode', 'manual')
set(gca ,'YLimMode', 'manual')
set(gca ,'ZLimMode', 'manual')

set(gca ,'XTickMode', 'manual')
set(gca ,'YTickMode', 'manual')
set(gca ,'ZTickMode', 'manual')

set(gca ,'ALimMode', 'manual')
end