function icq5=icq42icq5(icq4filename)

disp(['Reading ' icq4filename '...'])
icq4=read_icq4(icq4filename);

icq5=icq4;
icq5.codename='QUODDY5';
icq5.ZETAMID=icq4.HMID+icq4.ZMID(:,1)';
icq5.ZETAOLD=icq4.HOLD+icq4.ZOLD(:,1)';
icq5=rmfield(icq5,{'HMID','HOLD'});

%icq5filename=icq4filename;
%icq5filename(end)='5';
%
%disp(['Writing ' icq5filename '...'])
%err=write_icq5(icq5,icq5filename);