__vrhypot
extern void __vrhypot(int, double *, int, double *, int, double *, int);
__vrhypot(*n, x, *stridex, y, *stridey, z, *stridez);