% giins.m
% Function to insert guard interval into transmission signal

function [ich6,qch6]= giins(ich4,qch4,fftlen,gilen,nd);

%****************** variables *************************
% idata    : Input Ich data
% qdata    : Input Qch data
% iout     : Output Ich data
% qout     : Output Qch data
% fftlen   : Length of FFT (points)
% gilen    : Length of guard interval (points)
% *****************************************************

idata1=reshape(ich4,fftlen,nd);
qdata1=reshape(qch4,fftlen,nd);
idata2=[idata1(fftlen-gilen+1:fftlen,:); idata1];
qdata2=[qdata1(fftlen-gilen+1:fftlen,:); qdata1];

ich6=reshape(idata2,1,(fftlen+gilen)*nd);
qch6=reshape(qdata2,1,(fftlen+gilen)*nd);

%******************** end of file ***************************