%% check whether the function window exists

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


function status = checkfigs(h)
status = 1;
for i=1:length(h)
  if ~ishandle(h(i)) | ~strcmp(get(h(i),'type'),'figure')
    status = 0;
    return
  end
end
