% Function 4-3
% bpsk_giins.m
%
% Function to insert guard interval into transmission signal
%
% Programmed by T.Yamamura and H.Harada
%

function [iout]= giins(idata,fftlen,gilen,nd);

%****************** variables *************************
% idata    : Input Ich data

% iout     : Output Ich data

% fftlen   : Length of FFT (points)
% gilen    : Length of guard interval (points)
% *****************************************************

idata1=reshape(idata,fftlen,nd);
idata2=[idata1(fftlen-gilen+1:fftlen,:); idata1];
iout=reshape(idata2,1,(fftlen+gilen)*nd);


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