Due to the lapse in federal government funding, NASA is not updating this website. We sincerely regret this inconvenience.
NASA Logo
Ocean Color Science Software

ocssw V2022
yds2jul.f
Go to the documentation of this file.
1 c ----------------------------------------------------------------
2 c Subroutine yds2jul
3 c
4 c Converts to julian time from Year, Day, and Seconds of Day.
5 c
6 c BA Franz, GSC, 1/97
7 c ----------------------------------------------------------------
8  subroutine yds2jul(year,day,sec,jul)
9 c
10  implicit none
11 c
12  real*8 jul
13  integer*4 year
14  integer*4 day
15  real*8 sec
16  integer*4 jd
17 c
18  jul = jd(year,1,day) + sec/86400.d0
19 c
20  return
21  end
subroutine yds2jul(year, day, sec, jul)
Definition: yds2jul.f:9
#define real
Definition: DbAlgOcean.cpp:26
Definition: jd.py:1