#if defined(linux) /* avoid link time failures */
	subroutine NAME UNDERSCORE ( z, x)
	TYPE z, x
	z = dble(x)
	return
	end	
#endif

#if defined(__hpux)
#define QREAL qreal NAME

	real*16 function QREAL (x)
	TYPE x
	QREAL = x
	return
	end

	subroutine NAME UNDERSCORE ( z, x)
	TYPE z, x
	real *16 QREAL
	z = QREAL (x)
	return
	end	
#endif

#if !defined(__hpux) && !defined(linux)
	subroutine NAME UNDERSCORE ( z, x)
	TYPE z, x
	z = qreal(x)
	return
	end	
#endif
