Commit | Line | Data |
---|---|---|
81e70d48 PH |
1 | C COMEST.FT COMPUTES THE EASTER DAY\r |
2 | C\r | |
3 | INTEGER YEAR,MON,DAY,MONTH(2)\r | |
4 | DATA MONTH /'MARCH','APRIL'/\r | |
5 | C\r | |
6 | 10 WRITE (4,1)\r | |
7 | READ (4,2) YEAR\r | |
8 | IF (YEAR.LE.99) YEAR=YEAR+1900\r | |
9 | C CHECK FOR LEGAL CENTURY\r | |
10 | IF (1700.LE.YEAR .AND. YEAR.LT.2100) GOTO 20 \r | |
11 | WRITE (4,3)\r | |
12 | GOTO 10\r | |
13 | C\r | |
14 | 20 CALL EASTER(YEAR,DAY,MON)\r | |
15 | WRITE (4,4) DAY,MONTH(MON-2),YEAR\r | |
16 | GOTO 10\r | |
17 | 1 FORMAT (' ENTER YEAR (I4) ',$)\r | |
18 | 2 FORMAT (I4)\r | |
19 | 3 FORMAT (' CAN',1H','NT, ONLY FROM 1700 TO 2099')\r | |
20 | 4 FORMAT (' ',I2,'-',A5,'-',I4)\r | |
21 | END\r | |
22 | \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\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 |