julian_day Function

public 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, intent(in) :: y

year (YYYY)
integer, intent(in) :: m

month (MM)
integer, intent(in) :: d

day (DD)

Return Value integer


Called by

proc~~julian_day~~CalledByGraph proc~julian_day time_module::julian_day proc~julian_date_realsec time_module::julian_date_realsec proc~julian_date_realsec->proc~julian_day interface~julian_date time_module::julian_date interface~julian_date->proc~julian_date_realsec proc~julian_date_intsec time_module::julian_date_intsec interface~julian_date->proc~julian_date_intsec proc~julian_date_intsec->proc~julian_date_realsec proc~time_module_test time_module::time_module_test proc~time_module_test->interface~julian_date

Source Code

    pure integer function julian_day(y,m,d)

    implicit none

    integer,intent(in) :: y   !! year (YYYY)
    integer,intent(in) :: m   !! month (MM)
    integer,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