DENORM(3)

SYNOPSIS
DOUBLE PRECISION FUNCTION DENORM (N, X)

NAME
denorm - Subsidiary to DNSQ and DNSQE

LIBRARY
SLATEC

TYPE
DOUBLE PRECISION (ENORM-S, DENORM-D)

AUTHOR
(UNKNOWN)

DESCRIPTION
Given an N-vector X, this function calculates the Euclidean norm of X. The Euclidean norm is computed by accumulating the sum of squares in three different sums. The sums of squares for the small and large components are scaled so that no overflows occur. Non-destructive underflows are permitted. Underflows and overflows do not occur in the computation of the unscaled sum of squares for the intermediate components. The definitions of small, intermediate and large components depend on two constants, RDWARF and RGIANT. The main restrictions on these constants are that RDWARF**2 not underflow and RGIANT**2 not overflow. The constants given here are suitable for every known computer. The function statement is DOUBLE PRECISION FUNCTION DENORM(N,X) where N is a positive integer input variable. X is an input array of length N.

SEE ALSO
DNSQ, DNSQE

ROUTINES CALLED
(NONE)

REVISION HISTORY (YYMMDD)
800301 DATE WRITTEN
890531 Changed all specific intrinsics to generic. (WRB)
890831 Modified array declarations. (WRB)
891214 Prologue converted to Version 4.0 format. (BAB)
900326 Removed duplicate information from DESCRIPTION section. (WRB)
900328 Added TYPE section. (WRB)