function [Y] = myfunc_read_cif(nFrame,in_file_name)
%
%  This function reads CIF,SIF,QCIF 4:2:0 video files and
%  shows the Y component (luminance)
%  nFrame: number of frames to be read from the file specified
%

[fid message]= fopen(in_file_name,'rb');
% input video format
if length(strfind(in_file_name, 'cif')) > 0
    nRow = 288;
    nColumn = 352;
elseif length(strfind(in_file_name, 'qcif')) > 0
    nRow = 288 / 2;
    nColumn = 352 / 2;
elseif length(strfind(in_file_name, 'sif')) > 0
    nRow = 240;
    nColumn = 352;      
end

for i = 1: nFrame
    % read