	common /delete/ delete
	real*4 delete
