#include "libftest.h"

#define NAME testhypots
#define TYPE SINGLE

#ifdef SUN_LIBS

#define FUNC r_hypot
#include "testfunc2.F"

#else

	subroutine NAME UNDERSCORE ( z, x, y)
	TYPE z, x, y

	z = abs(cmplx(x,y))
	return
	end	

#endif	
