w latach 1800 – 2200
(Dates of Easter, 1800 – 2200)
Tabelaryczne dni miesiąca kwietnia
odróżniono od marcowych
ich kolorem
(Easter Sunday dates of April and
March
are distinguished by their colour)
|
|
SUBROUTINE EASTER(IY,IM,ID) c Oblicza datę niedzieli wielkanocnej zadanego roku IY: c miesiąc w IM (3 = marzec, 4 = kwiecień) i dzień miesiąca w ID c Program to calculate the date of Easter Sunday for given year (IY) c according to an algorithm (slightly modified by K.M. Borkowski) c by anonymous author published in Nature of 20 April 1876 (p. 487) c Input: IY - year of Easter of interest c Output: IM - month (IM=3 for March, IM=4 for April) c ID - day of the month IMPLICIT INTEGER*4 (A-Z) A = MOD(IY,19) B = IY/100 C = MOD(IY,100) H = MOD(19*A+B-B/4-(B+1-(B+8)/25)/3+15,30) L = MOD(32+2*(MOD(B,4)+C/4)-H-MOD(C,4),7) M = (A+11*H+22*L)/451 N = H+L-7*M+114 ID = 1+MOD(N,31) IM = 4 IF(N/31.EQ.3) IM = IM-1 END |