; $Id: jdstr2jd.pro,v 1.1 2008/05/15 18:31:47 thernis Exp $
function jdstr2jd,sjd
return,double(sjd.int)+sjd.frac
end