%% Input File  browser

%%  Kriging Software Package  version 1.0 beta,   October 29, 1998
%%  Copyright (c) 1998, property of Dezhang Chu and Woods Hole Oceanographic
%%  Institution.  All Rights Reserved.

[fname, filepath]=uigetfile('*.dat');

filename=[filepath fname];

if fname ~= 0
 h=findobj(gcbf,'Tag','FnameText');
 set(h,'String',filename);
end