;+ ; Contains the ti_t97 function ; ; :Author: ; Baptiste Cecconi ; ; :History: ; 2004/12/03: Created ; ; 2004/12/03: Last Edit ;- ; ;+ ; date conversion TimeIndex -> T1997.0 ; ; :Returns: ; <return desc here> ; ; :Examples: ; t97 = TI_T97(ti) ; ; :Params: ; ti: in, required, type=sometype ; TimeIndex ;- Function TI_T97, ti yy = (ti/100000000l) y97 = aj_t97((yy+1996l)*1000l) dd = (ti mod 100000000l)/100000l d97 = double(dd) ss = ti mod 100000l s97 = double(ss)/86400.d0 t97 = y97+d97+s97 return,t97 end