c ... convert i from integer to double precision
c ... (double precision on a 32 bit machine)

	function dflt(i)
	
	IMPLICIT NONE
	
	integer i
	double precision dflt

	dflt = dble(i)	   ! use this on a 32-bit machine

	return
	end