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:
Copyright
Copyright ©1995,1996,1997,1998,1999
Particle Physics and Astronomy Research Council. All Rights Reserved.
Implementation Status: