DNRM2

Purpose

DNRM2 returns the euclidean norm of a vector via the function
name, so that

DNRM2 := sqrt( x'*x )

Modified on 14-October-1993 to inline the call to DLASSQ.
Sven Hammarling, Nag Ltd.