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

Subroutine: MINMAX1

Purpose: Finds the minimum and maximum value in a data
array of reals taking care of BLANK values.

File: minmax.c

Author: K.G. Begeman

Use: CALL MINMAX1( DATA , Input REAL ARRAY
NDAT , Input INTEGER
AMIN , Output REAL
AMAX ) Output REAL

DATA Data array to operate on.
NDAT Number of data points in DATA.
AMIN Minimum value in DATA array.
AMAX Maximum value in DATA array.

Note: If all values in the data array have the BLANK value,
the minimum and maximum will also be set to BLANK.

Updates: Jul 22, 1989: KGB, Document created
AUg 8, 1990: KGB, Bug in loop counter fixed