function err=chk_comm_toolbox;

err=0;
a=ver;
comm_version=0;
for ic=1:size(a, 2),
    if (strcmp(a(ic).Name, 'Communications Toolbox')),
        comm_version=str2num(a(ic).Version);
        %disp(['[get_psfilter]This matlab has Communication Toolbox, Version:' a(ic).Version '.']);
    end
end

if comm_version<3.0,
    disp('Sorry. Current program doesnt support Matlab with Communication Toolbox 3.0');
    err=-1;
    return;
end