Mayan calendar: Difference between revisions

Content deleted Content added
Line 287: Line 287:
integer :: mo,da
integer :: mo,da
!
!
! 2071-05-16
! 1963-11-21
keptdays = julday(day,month,year) ! Get the Julian date for selected date
keptdays = julday(day,month,year) ! Get the Julian date for selected date
numdays = keptdays ! Keep for calcs
numdays = keptdays ! Keep for calcs