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