C*********************************************************************** C C E A S T E R C C PROGRAM: EASTER C C PROGRAMMER: DAVID G. SIMPSON C NASA GODDARD SPACE FLIGHT CENTER C GREENBELT, MARYLAND 20771 C C DATE: JULY 7, 2003 C C LANGUAGE: FORTRAN-77 C C VERSION: 1.00A C C DESCRIPTION: COMPUTE THE DATE OF EASTER. C C FILES: SOURCE FILES: C C EASTER.FOR MAIN PROGRAM C C NOTES: C C*********************************************************************** PROGRAM EASTER IMPLICIT NONE INTEGER YEAR, A, B, C, D, E, F, G, H, I, K, L, M, N, P, T C PRINT *, ' ENTER YEAR: ' READ *, YEAR A = MOD(YEAR,19) B = YEAR/100 C = MOD(YEAR,100) D = B/4 E = MOD(B,4) F = (B+8)/25 G = (B-F+1)/3 H = MOD(19*A+B-D-G+15, 30) I = C/4 K = MOD(C,4) L = MOD(32+2*E+2*I-H-K, 7) M = (A+11*H+22*L)/451 T = H+L-7*M+114 N = T/31 P = MOD(T,31) PRINT *, N, '/', P+1 STOP END