C	needed because "cmplx(,)" only gives single precision !!! (p/tstprec.f)


	COMPLEX*32 FUNCTION QCMPLX(X,Y)
	IMPLICIT NONE
	REAL*16 X,Y
	QCMPLX = X + (0.0Q0,1.0Q0)*Y
	RETURN
	END

