REAL*16	A
	REAL*16 B
	DATA	A/1./
	DATA	B/2./
	A	= a/b
	type *,A,B
	END