%% output 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.


[filename, filepath]=uiputfile('*.*','Save As');

if ~isstr(filename) == 1
   break
   end
var_obs=var;var_est=Is;
Cg=C;Eg=E;
variables=' x y var_obs xg yg Cg Eg var_est model sill nugt L p b';

fname_str=['''' filepath filename ''''];
cmd=['save ' fname_str variables];
eval(cmd)

break
h=findobj(gcbf,'Tag','FnameText');

hf=findobj(gcf,'Tag','FilenameText');
hwd=findobj(gcf,'Tag','WorkDirText');
set(hf(1),'string',fname);
set(hwd(1),'string',filepath);

