function s1=s_date(jd,year)
%	Create a date string from the julian date.
%
%	[s1]= s_date(jd{,year|method70})

%	Latest revision by P. Dragos 7-Jun-91.
%
%	P. Dragos, Battelle Ocean Sciences
%	Duxbury, MA 02332
%	(617) 934-0571
%
%	Copyright (c) 1991 by Paul Dragos.
%	This program is copyrighted.  However, you are encouraged to
%	copy and share it, so long as no charge is imposed.

if nargin == 1
  yr=90; 
elseif isstr(year)
  yr='y';
else
  yr=year;
end;

[d]=calday(yr,jd);

sd=[int2str(d(3))];
if (d(3) < 10), sd=['0',int2str(d(3))]; end;
sm=[int2str(d(2))];
if (d(2) < 10), sm=['0',int2str(d(2))]; end;
sy=int2str(d(1));
s1=[sm,'/',sd,'/',sy];
return;
