calendar.F90 File Reference

Modules
module	calendar

Functions/Subroutines
integer function, public	calendar::gregorian2julian_date (day, month, year)
subroutine, public	calendar::julian2gregorian_date (julian_date, day, month, year)
logical function, public	calendar::leap_year (year)
subroutine, public	calendar::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	calendar::gregorian2julian_day (day, month, year)

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