;+NAME/ONE LINE DESCRIPTION OF ROUTINE: ; YDF2SEC converts yyddd.fraction-of-day into t68 seconds. ; ;---------------------------------------------------------------- ; Function ydf2sec ; ; Converts, yyddd.fractio-of-day into T68 seconds. Inputs ; can be scalar or vector, integers or strings. ; ; Written by: BA Franz, GSC, 5 March 1996 ;---------------------------------------------------------------- function ydf2sec, input zulu = strtrim(string(long(input)),2)+'00000000' sec = z2sec(zulu) + (double(input) mod 1)*86400.D return,sec end