calendar Module Reference

Functions/Subroutines
integer function, public	gregorian2julian_date (day, month, year)
subroutine, public	julian2gregorian_date (julian_date, day, month, year)
logical function, public	leap_year (year)
subroutine, public	compute_current_date (previous_day, previous_month, previous_year, seconds_since_previous_date, current_day, current_month, current_year, seconds_since_current_date)
integer function, public	gregorian2julian_day (day, month, year)

Variables
character(len=3), dimension(12), parameter, public	month_names = (/'JAN','FEB','MAR','APR','MAY','JUN', 'JUL','AUG','SEP','OCT','NOV','DEC'/)
integer, dimension(12), parameter, public	days_per_month = (/31, 28, 31, 30, 31, 30, 31, 31, 30, 31, 30, 31/)

Function/Subroutine Documentation

compute_current_date()

subroutine, public calendar::compute_current_date	(	integer, intent(in)	previous_day,
		integer, intent(in)	previous_month,
		integer, intent(in)	previous_year,
		real(kind=time_precision), intent(in)	seconds_since_previous_date,
		integer, intent(out)	current_day,
		integer, intent(out)	current_month,
		integer, intent(out)	current_year,
		real(kind=time_precision), intent(out)	seconds_since_current_date
	)

Here is the call graph for this function:

Here is the caller graph for this function:

gregorian2julian_date()

integer function, public calendar::gregorian2julian_date	(	integer, intent(in)	day,
		integer, intent(in)	month,
		integer, intent(in)	year
	)

Here is the caller graph for this function:

gregorian2julian_day()

integer function, public calendar::gregorian2julian_day	(	integer, intent(in)	day,
		integer, intent(in)	month,
		integer, intent(in)	year
	)

Here is the call graph for this function:

Here is the caller graph for this function:

julian2gregorian_date()

subroutine, public calendar::julian2gregorian_date	(	integer, intent(in)	julian_date,
		integer, intent(out)	day,
		integer, intent(out)	month,
		integer, intent(out)	year
	)

Here is the caller graph for this function:

leap_year()

logical function, public calendar::leap_year

(

integer, intent(in)

year

)

Here is the caller graph for this function:

Variable Documentation

days_per_month

integer, dimension(12), parameter, public calendar::days_per_month = (/31, 28, 31, 30, 31, 30, 31, 31, 30, 31, 30, 31/)

month_names

character(len=3), dimension(12), parameter, public calendar::month_names = (/'JAN','FEB','MAR','APR','MAY','JUN', 'JUL','AUG','SEP','OCT','NOV','DEC'/)