function e1(X)
	COMMON /PAWPAR/ P(2)

	E1 = P(1)*EXP(X/P(2))

	END