Anonymous user
Mayan calendar: Difference between revisions
→{{header|Fortran}}
Line 313:
!
haab_carry = " "
L = mod((keptdays+65),365)
mo = (L/20)+1
Line 325 ⟶ 324:
! Ok, Now let's calculate the Tzolk´in
! The calendar starts on the 4 Ahu
tzolkin_carry = " " ! Total blank the carrier
mo = mod((keptdays+16),20) + 1
| |||