INTEGER*2 FUNCTION DAYFYR(Y,M,D)
	INTEGER A(12),Y,M,D
	DATA A/31,28,31,30,31,30,31,31,30,31,30,31/
	IF(4.*INT(Y/4.).EQ.Y)A(2)=29
D	IF(M.GT.12)TYPE *,'MONTH=',M
D	IF(D.GT.31)TYPE *,'DAY=',D
D	IF(Y.NE.80)TYPE *,'YEAR=',Y
	DAYFYR=0
	IF(M.EQ.1)GO TO 20
	DO 10,I=1,M-1
10	DAYFYR=DAYFYR+A(I)
20	DAYFYR=DAYFYR+D
	RETURN