

	COMPLEX*16 FUNCTION EIMULT (Z)
C	eimult := i*z

	IMPLICIT NONE

	COMPLEX*16 Z

	COMPLEX*16 ZNOW

	ZNOW = Z

	EIMULT = DCMPLX (-DIMAG(ZNOW),DREAL(ZNOW))

	RETURN
	END
