function julian,date

date=strlowcase(date)
year=int(strmid(date,0,2))
if year lt 90 then year=2000+year else year=1900+year
month=strmid(date,2,3)
if ((year mod 4) eq 0) and (((year mod 100) ne 0) or ((year mod 400) eq 0)) then leap=1 else leap=0
if month eq 'dec' then doy=334+leap else begin
  if month eq 'nov' then doy=304+leap else begin
    if month eq 'oct' then doy=273+leap else begin
      if month eq 'sep' then doy=243+leap else begin
        if month eq 'aug' then doy=212+leap else begin
          if month eq 'jul' then doy=181+leap else begin
            if month eq 'jun' then doy=151+leap else begin
              if month eq 'may' then doy=120+leap else begin
                if month eq 'apr' then doy=90+leap else begin
                  if month eq 'mar' then doy=59+leap else begin
                    if month eq 'feb' then doy=31 else doy=0
                  endelse
                endelse
              endelse
            endelse
          endelse
        endelse
      endelse
    endelse
  endelse
endelse
doy=doy+int(strmid(date,5,2))
return,doy
end