CCG_WTM2x - Forms the weighted median of a list of ordered data values. Incrementing the contributing pixel buffers

Description:

This routine finds a value which can be associated with the half- weight value. It sums all weights then finds a value for the half-weight. The comparison with the half-weight value proceeds in halves of the weights for each data point (half of the first weight, then the second half of the first weight and the first half of the second weight etc.) until the half weight is exceeded. The data values around this half weight position are then found and a linear interpolation of these values is the wtdmdn. The values which contribute to the result are flagged and passed through the USED array.

Invocation:

CALL CCG_WTM2x( EL. ORDDAT, WEIGHT, USED, RESULT, STATUS )

Arguments:

EL = INTEGER (Given)

The number of entries in the data array.

ORDDAT( EL ) = ? (Given)

The list of ordered data for which the weighted median is required

WEIGHT( EL ) = ? (Given)

The weights of the values.

USED = LOGICAL (Returned)

If a value contributes to the median value it is flagged as true in this array, otherwise the array is set to false.

RESULT = DOUBLE PRECISION (Returned)

The weighted median

STATUS = INTEGER (Given and Returned)

The global status.

Notes:

• There is a routine for real and double-precision: replace "x" in the routine name by D or R as appropriate. The ORDDAT and WEIGHT arguments supplied to the routine must have the data type specified.

Prior Requirements

• The input data must be ordered increasing. No BAD values may be present.