%Program 3-10
%qpskdemod.m
%Function to perform QPSK demodulation
function [demodata]=qpskdemod(idata,qdata,para,nd,ml)

%*****************************variables******************************
%idata: input Ich data
%qdata: input Qch data
%demodata: demodulated data (para-by-nd matrix)
%para: Number of parallel channels
%nd: Number of data
%m1: Number of modulation levels
%(QPSK-2 16QAM-4)

%********************************************************************
demodata=zeros(para,ml*nd);
demodata((1:para),(1:ml:ml*nd-1))=idata((1:para),...
    (1:nd))>=0;
demodata((1:para),(2:ml:ml*nd))=qdata((1:para),...
    (1:nd))>=0;

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