projects / pdp8.git / blame
| Commit | Line | Data |
|---|---|---|
| 81e70d48 PH |
1 | SUBROUTINE EASTER (YEAR,ESTDAY,ESTMON)\r |
| 2 | C \r | |
| 3 | C IN MEMORIAM KARL FRIEDRICH GAUSS\r | |
| 4 | C\r | |
| 5 | C INPUT PARAMETER \r | |
| 6 | C YEAR TO COMPUTE THE EASTER DAY 1700 TO 2099\r | |
| 7 | INTEGER YEAR \r | |
| 8 | C OUTPUT PARAMETER\r | |
| 9 | C MONTH OF EASTERN 3 OR 4 (MARCH OR APRIL)\r | |
| 10 | INTEGER ESTMON, \r | |
| 11 | C DAY OF EASTERN RANGES FROM 1 TO 31\r | |
| 12 | * ESTDAY \r | |
| 13 | C\r | |
| 14 | C CONSTANTS FOR 17TH, 18TH, 19TH, 20TH CENTURY\r | |
| 15 | INTEGER Y(4),Z(4), \r | |
| 16 | * R1,R2,R3,R4,R5,TEMP,CNTURY\r | |
| 17 | INTEGER NCOND\r | |
| 18 | EXTERNAL NCOND\r | |
| 19 | DATA Y,Z /22,23,24,24,3,4,5,5/\r | |
| 20 | C\r | |
| 21 | C\r | |
| 22 | C THE CENTURY WANTED --> CNTURY\r | |
| 23 | CNTURY=YEAR/100-16 \r | |
| 24 | C\r | |
| 25 | R1=MOD(YEAR,19)\r | |
| 26 | R2=MOD(YEAR,4)\r | |
| 27 | R3=MOD(YEAR,7)\r | |
| 28 | R4=(R1*19+Y(CNTURY))/30\r | |
| 29 | R5=(2*R2+4*R3+6*R4+Z(CNTURY))/7\r | |
| 30 | TEMP=R4+R5+22\r | |
| 31 | C TEMP HOLDS EASTER DAY PAST THE FIRST OF MARCH\r | |
| 32 | TEMP=NCOND(TEMP.EQ.56 .AND. R1.GT.10 .AND. R4.EQ.18,TEMP-7,\r | |
| 33 | * TEMP.GT.56,TEMP-7,TEMP)\r | |
| 34 | ESTMON=NCOND(TEMP.GT.31,4,3)\r | |
| 35 | ESTDAY=NCOND(TEMP.GT.31,TEMP-31,TEMP)\r | |
| 36 | RETURN\r | |
| 37 | END\r | |
| 38 | \1a\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0 |