KPG1_EXPOx - Takes the exponential to an arbitrary base of an array and its variance

Description:

This routine fills the output array pixels with the results of taking the exponential of the pixels of the input array to the base specified, i.e. New_value = Base $*$$*$ Old_value. If the result is bigger than the maximum-allowed value then a bad pixel value is substituted in the output array.

If variance is present it is computed as: 2 New_Variance = Old_Variance $*$ ( New_value $*$ log Base )

Invocation:

CALL KPG1_EXPOx( BAD, EL, INARR, VAR, INVAR, BASE, OUTARR, OUTVAR, NERR, NERRV, STATUS )

Arguments:

BAD = LOGICAL (Given)

Whether to check for bad values in the input array.

EL = INTEGER (Given)

Number of elements in the input output arrays.

INARR( EL ) = ? (Given)

Array containing input image data.

VAR = LOGICAL (Given)

If .TRUE., there is a variance array to process.

INVAR( EL ) = ? (Given)

Array containing input variance data, when VAR = .TRUE..

BASE = DOUBLE PRECISION (Given)

Base of exponential to be used. It must be a positive number.

OUTARR( EL ) = ? (Write)

Array containing results of processing the input data.

OUTVAR( EL ) = ? (Write)

Array containing results of processing the input variance data, when VAR = .TRUE..

NERR = INTEGER (Returned)

Number of numerical errors which occurred while processing the data array.

NERRV = INTEGER (Returned)

Number of numerical errors which occurred while processing the variance array, when VAR = .TRUE..

STATUS = INTEGER (Given)

Global status value

Notes:

• There is a routine for each numeric data type: replace "x" in the routine name by D, R, I, W, UW, B or UB as appropriate. The arrays supplied to the routine must have the data type specified.