SCNRM2

Purpose

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

SCNRM2 := sqrt( x**H*x )

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