function [filename,pathname,error] = loadfile(nfiletype,cdir)
%
%  Name:  loadfile
% 
%  Usage: loadfile(nfiletype,cdir)
% 
%   Description:
%      Opens a dialog box and applies
%      the appropriate file suffix filter
%      'nfiletype' is numeric file type:
%            	0 = Data File
%  		1 = Modes File
%		2 = Geometry File
%		3 = Damage Analysis File
%		4 = Universal File
%
%      'cdir' is the directory to start in

%  Version SWD970331
%
%  Copyright (c) 1996-1997 by Scott W. Doebling
%       Los Alamos National Laboratory
%       ESA-EA, doebling@lanl.gov
%


%
%  Set file suffix filter
%

if nfiletype == 0,
%   csuf = '*_data.mat';
   csuf = '*.mat';
elseif nfiletype == 1,
%   csuf = '*_modes.mat';
   csuf = '*.mat';
elseif nfiletype == 2,
%   csuf = '*_geom.mat';
   csuf = '*.mat';
elseif nfiletype == 3,
%   csuf = '*_dam.mat';
   csuf = '*.mat';
elseif nfiletype == 4,
   csuf = '*.unv';
else
   disp('ERROR: LOADFILES -- Numeric File type is invalid')
end

%csuf = '*.*';

%
%  Append directory to filter
%

if isunix,
  if cdir(length(cdir)) ~= '/',
    cdir = [cdir,'/'];
  end
else
   if cdir(length(cdir)) ~= '\',
    cdir = [cdir,'\'];
  end
end

cfilt = [cdir,csuf];

%
%  Call the gui file open function
%


[filename,pathname] = uigetfile(cfilt,'DIAMOND: LoadFile',150,150);

if filename == 0 | isempty(filename),
   error = 1;
else
   error = 0;
end

return
