program t1
	implicit real*8(a-h,o-z)
	complex*16 s
	a = 2*5.0d0
	b = 2*2.0d0
	s=cmplx(a,b)
	write(6,3555) s
3555	format(5x,d20.10)
	stop
	end