;+ ; Contains the t97_aj function ; ; :Author: ; Baptiste Cecconi ; ; :History: ; 2004/12/03: Created ; ; 2004/12/03: Last Edit ;- ; ;+ ; date conversion T1997.0 -> AAAAJJJ ; T1997.0 -> YYYYDDD ; ; :Returns: ; AAAAJJJ or YYYYDDD ; ; :Examples: ; aj = T97_AJ(t97) ; yd = T97_AJ(t97) ; ; :Params: ; t97: in, required, type=double/dblarr ; T1997.0 ;- Function T97_AJ, t97 aa = dindgen(61)+1997. deb= double([0,reform(rebin(reform([365,365,365,366],4,1),4,15),60)]) for i=1,60 do deb(i)=deb(i)+deb(i-1) aj=double(t97) for i=0l, n_elements(t97)-1 do begin j=t97(i)-deb test=where(j ge 1.0) aj(i)=aa(test(n_elements(test)-1))*1000.d0+j(test(n_elements(test)-1)) endfor return, aj end