SNRM2

Purpose

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

SNRM2 := sqrt( x'*x ).

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