#include "libftest.h"

#define NAME testcabsx
#define TYPE EXTENDED
#define TYPECOMPLEX EXTENDEDCOMPLEX

	subroutine NAME UNDERSCORE ( z, x)
	TYPE z
#ifdef __hpux
	TYPE x(2)
	z = sqrt(x(1)*x(1)+x(2)*x(2))
#else
	TYPECOMPLEX x
	z = abs(x)
#endif

	return
	end	
