SCULIB_COPY_GOOD - Go through data set and throw away bad values

Description:

This routine copies good data and variance from an input array to to an output array, leaving behind BAD values.

Invocation:

CALL SCULIB_COPY_GOOD(NPTS, INDATA, INVAR, INARR1, INARR2, NGOOD, OUTDATA, OUTVAR, OUTARR1, OUTARR2, STATUS)

Arguments:

NPTS = INTEGER (Given)

The number of points in the input array

INDATA ( NPTS ) = REAL (Given)

Input data

INVAR ( NPTS ) = REAL (Given)

Input variance

INARR1 ( NPTS ) = DOUBLE (Given)

Auxilliary double precision array

INARR2 ( NPTS ) = DOUBLE (Given)

Auxilliary double precision array

NGOOD = INTEGER (Returned)

Number of good points in input data

OUTDATA ( NPTS ) = REAL (Returned)

Output data

OUTVAR ( NPTS ) = REAL (Returned)

Output variance

OUTARR1 ( NPTS ) = REAL (Returned)

Good auxiliary data converted to real

OUTARR2 ( NPTS ) = REAL (Returned)

Good auxiliary data converted to real

STATUS = INTEGER (Given & Returned)

Global status value

Notes:

• Data are still good even if VARIANCE or AUX are bad

Copyright

Copyright ©1995,1996,1997,1998,1999 Particle Physics and Astronomy Research Council. All Rights Reserved.

Implementation Status:

• Only a routine for REAL numbers exists