KPG1_SQSUx

Finds the sum of the squares of an array

Description:

This routine sums the squares of a supplied array and return the sum. This might used to sum the residuals for a minimisation. Bad values are ignored.

Invocation

CALL KPG1_SQSUx( EL, ARRAY, SUMSQ, STATUS )

Arguments

EL = INTEGER (Given)
The number of elements in the array to sum.
ARRAY( EL ) = ? (Given)
The array whose sqaured values are to be summed.
SUMSQ = ? (Returned)
The sum of the squared array values.
STATUS = INTEGER (Given and Returned)
The global status.

Notes:

There is a routine for integer, real, and double precision data types: replace " x" in the routine name by I, R, or D respectively. The ARRAY and SUMSQ arguments supplied to the routine must have the data type specified.