55 REAL FUNCTION scnrm2(N,X,INCX)
73 parameter(one=1.0e+0,zero=0.0e+0)
76 REAL NORM,SCALE,SSQ,TEMP
80 INTRINSIC abs,aimag,
REAL,SQRT
82 IF (n.LT.1 .OR. incx.LT.1)
THEN
91 DO 10 ix = 1,1 + (n-1)*incx,incx
92 IF (
REAL(x(ix)).NE.ZERO) then
93 temp = abs(
REAL(x(ix)))
94 IF (scale.LT.temp)
THEN
95 ssq = one + ssq* (scale/temp)**2
98 ssq = ssq + (temp/scale)**2
101 IF (aimag(x(ix)).NE.zero)
THEN
102 temp = abs(aimag(x(ix)))
103 IF (scale.LT.temp)
THEN
104 ssq = one + ssq* (scale/temp)**2
107 ssq = ssq + (temp/scale)**2
111 norm = scale*sqrt(ssq)
real function scnrm2(N, X, INCX)
SCNRM2