julian_day Function

private pure function julian_day(y, m, d)

Returns the Julian day number (i.e., the Julian date at Greenwich noon) on the specified YEAR, MONTH, and DAY.

Valid for any Gregorian calendar date producing a Julian date greater than zero.

Reference

Arguments

Type IntentOptional Attributes Name
integer(kind=ip), intent(in) :: y

year (YYYY)
integer(kind=ip), intent(in) :: m

month (MM)
integer(kind=ip), intent(in) :: d

day (DD)

Return Value integer


Called by

proc~~julian_day~~CalledByGraph proc~julian_day julian_day proc~date_to_mjd date_to_mjd proc~date_to_mjd->proc~julian_day proc~sw_init sw_data_type%sw_init proc~sw_init->proc~date_to_mjd proc~jr_init jacchia_roberts_type%jr_init proc~jr_init->proc~sw_init

Source Code

   pure integer function julian_day(y,m,d)

    implicit none

    integer(ip),intent(in) :: y   !! year (YYYY)
    integer(ip),intent(in) :: m   !! month (MM)
    integer(ip),intent(in) :: d   !! day (DD)

    julian_day = d-32075+1461*(y+4800+(m-14)/12)/4+367*&
                 (m-2-(m-14)/12*12)/12-3*((y+4900+(m-14)/12)/100)/4

   end function julian_day