% test for 'KRON' usage
fid = fopen(which('mykron'),'r');
c=onCleanup(@()fclose(fid));
tline=fgetl(fid);
while ischar(tline)
if (strfind(tline,'=kron')>0), error('Don''t use kron'); end
if (strfind(tline,' kron')>0), error('Don''t use kron'); end
if (strfind(tline,'+kron')>0)|(strfind(tline,'*kron')>0), error('Don''t use kron'); end
if (strfind(tline,'-kron')>0), error('Don''t use kron'); end
tline = fgetl(fid)
end;