	FUNCTION EKEPLR(AM, E)
	IMPLICIT REAL *8 (A-H, O-Z)
C
	DEPIT = 6.283185307179586D0
	TEST = 0.5D-15
	ANEXC = DMOD(AM, DEPIT)
1	AMI = ANEXC-E*DSIN(ANEXC)
	EPSIL = AM-AMI
	IF (DABS(EPSIL)-TEST) 3, 3, 2
2	ANEXCI = ANEXC
	ANEXC = ANEXCI+EPSIL/(1.D0-E*DCOS(ANEXCI))
	GO TO 1
C
3	EKEPLR = ANEXC
	RETURN
	END
