% print script to send gif image to www site
function pgif(filn,direc)
%
% filn = file name
%
if nargin<2;
  direc=questdlg('Where do you want it?',...
          '/home3/ocn/jmanning/public_html/',...
          '/home3/ocn/jmanning/public_html/ices97/',...
          'gregs');
end;

if direc(1:5)=='gregs';direc='/home3/ocn/jmanning/public_html/ices97/gregs/';end;

eval(['print -dgif8 ',direc,filn]);
disp(['plot file made in ',direc,filn,'.gif'])
