function result = ncload5(file)

filename=[sprintf(file)];
info=ncinfo(filename);
varnames={info.Variables.Name};

for i=1:length(varnames)
    %    i
    %    varnames{i};
    result=ncread(filename,varnames{i});
    assignin('base',varnames{i},result);
    clear result
end

clear ans



