;+
; Contains the ddmm_to_ddd function
;
; :Author:
; Baptiste Cecconi
;
; :History:
; 2004/07/23: Created
;
; 2004/07/23: Last Edit
;-
;
;+
; Gives the number of the day day/month/year in the year
;
; :Returns:
; <return desc here>
;
; :Params:
; year: in, required, type=sometype
; A parameter named year
; month: in, required, type=sometype
; A parameter named month
; day: in, required, type=sometype
; A parameter named day
;-
FUNCTION ddmm_to_ddd, year, month, day
dday=day
if ( (year mod 4) eq 0) then begin
nbdaysmonth=[31L, 29L, 31L, 30L, 31L, 30L, 31L, 31L, 30L, 31L, 30L, 31L]
endif else begin
nbdaysmonth=[31L, 28L, 31L, 30L, 31L, 30L, 31L, 31L, 30L, 31L, 30L, 31L]
endelse
for i=0, month-2 do begin
dday=dday+nbdaysmonth[i]
endfor
return, dday
end