function [file_str]=file_lbl(cdf);
%function [file_str]=file_lbl(cdf);
%
%  return file name as a nice string
%
len=length(cdf);
if (cdf([len-3:len]) == '.cdf'),
  cdf=cdf([1:(len-3)]);
end
file_str=['File =',cdf];
