Документ взят из кэша поисковой машины. Адрес оригинального документа : http://www.atnf.csiro.au/computing/software/gipsy/sub/clipper.dc2 Дата изменения: Thu Jan 23 17:11:04 1992 Дата индексирования: Fri Jan 16 18:17:30 2009 Кодировка:

Subroutine: CLIPPER

Purpose: Subroutine to conditionally transfer data.

Category: ARRAY

Files: clipper.c

Author: K.G. Begeman

Use: CALL CLIPPER( CLIPLO , Input REAL
CLIPUP , Input REAL
INDATA , Input REAL ARRAY
TEDATA , Input REAL ARRAY
OUDATA , Output REAL ARRAY
NDATA , Input INTEGER
REPLACE ) Input REAL

CLIPLO Lower clip level.
CLIPUP Upper clip level.
INDATA Data which will be conditionally transferred
to OUDATA.
TEDATA Data used for testing the conditions.
OUDATA Array which will receive data from INDATA
or contains values equal to REPLACE.
NDATA Number of elements in INDATA, TEDATA and
OUDATA.
REPLACE Data not transferred will be replaced by
this value.

Description: Data will be transferred unchanged if testdatum has a
value outside the CLIP range, (!) CLIPLO is greater than
CLIPUP, then the data will transferred unchanged when
testdatum from TEDATA has a value in the clip range.
Changed data has the value of REPLACE.

Updates: Feb 28, 1990: KGB, Document created.