function secs=jhms2secs(jday,hour,min,sec,msec)
%%%%function secs=jhms2secs(jday,hour,min,sec,msec)
%%%%This function converts julian day and time information into decimal
%%%%seconds referenced to the begginning of the year


if nargin<5; msec=0; end
if nargin<4; sec=0; end
if nargin<3; min=0; end
if nargin<2; hour=0; end
secs = (jday-1)*24*60*60 + ...
    hour*60*60 + min*60 + sec + msec/1000;