DOUBLE PRECISION FUNCTION DLAPY3( X, Y, Z )
DOUBLE PRECISION X, Y, Z
DLAPY3 returns sqrt(x**2+y**2+z**2), taking care not to cause unnecessary overflow.
X (input) DOUBLE PRECISION
Y (input) DOUBLE PRECISION Z (input) DOUBLE PRECISION
X, Y and Z specify the values x, y and z.