% Check parameters of WCDMA Initial Settings Mask

% Check Slot Format Parameter
if(~isscalar(slotFormat) | ~isreal(slotFormat) | floor(slotFormat) ~= slotFormat | slotFormat >16 | slotFormat<0),
    errordlg('The Slot format parameter must be an integer between 0 and 16.');
end

% Check DCPH Code Number
if(~isscalar(dpchCode) | ~isreal(dpchCode) | floor(dpchCode) ~= dpchCode | dpchCode>=sprdFactor),
    errordlg('The DPCH code number must be an integer between 0 and the value of the Spreading Factor minus 1.');
end

% Check for Scrambling Code
if(length(scrCode)~=2)
    errordlg('The Scrambling code parameter must be a 2-element vector containing the Scrambling Code Group and the Primary Code.');
end

if(~isscalar(scrCode(1)) | ~isreal(scrCode(1)) | floor(scrCode(1)) ~= scrCode(1) | scrCode(1)<0 | scrCode(1)>63)
    errordlg('The first element of the Scrambling Code (Scrambling Code Group) must be an integer between 0 to 63.');
end

if(~isscalar(scrCode(2)) | ~isreal(scrCode(2)) | floor(scrCode(2)) ~= scrCode(2) | scrCode(2)<0 | scrCode(2)>8)
    errordlg('The second element of the Scrambling Code (Primary Code) must be an integer between 0 to 7.');
end

% Check for Power Settings Vector
if(length(powerVector) ~=5)
    errordlg('Power Vector must be a 5-element vector containing the Ec/Ior (in dB) as defined by the standard for the following channels: DPCH, P-CPICH, PICH, P-CCPCH, SCH.');
end

% Check for Number of Tap filter for RRC
if(~isscalar(numTapsRRC) | ~isreal(numTapsRRC) | floor(numTapsRRC)~=numTapsRRC ) %| numTapsRRC<overSampling*2
    errordlg('The number of coefficients of the Root Raised Cosine filter must be a positive integer multiple of 2 times the oversampling factor of the filter.');
end

% Check for Oversampling Factor
if(~isscalar(overSampling) | ~isreal(overSampling) | floor(overSampling)~=overSampling | overSampling<0 | 2*overSampling>numTapsRRC)
    errordlg('The oversampling factor has to be an integer greater than 0.');
end
% Check for SNR 
if(~isscalar(snrdB) | ~isreal(snrdB))
    errordlg('The Signal to Noise Ratio, expressed in dB, must be a real number.');
end

% Check for Finger Enables and Finger Phases
if(length(fingerEnables)<length(fingerPhases) | length(fingerEnables) ~=4)
    errordlg('The length of the Finger enables vector and the length of the Finger phases vector must be the same and equal to the number of fingers in the RAKE receiver.');
end

if (~all((fingerEnables==1)+(fingerEnables==0)))
    errordlg('Finger Enables parameter must be a vector of binary numbers where 1 enables the finger and 0 disables finger.');
end
    
if (any(fingerPhases<0))
    errordlg('Finger Phases must be a vector of real numbers greater than or equal to 0.');
end

if(~isscalar(numTapsChEst) | ~isreal(numTapsChEst) | floor(numTapsChEst)~=numTapsChEst | mod(numTapsChEst,2)==0 | numTapsChEst <= 1)
    errordlg('The number of coefficients of the Channel estimator filter must be an odd positive integer greater than 1.');
end

% Not currently supported
if(powerVector(4)~= powerVector(5))
    errordlg('In the current version, power settings for the P-CCPCH and SCH must be the same.');
end