Документ взят из кэша поисковой машины. Адрес оригинального документа : http://www.atnf.csiro.au/computing/software/gipsy/sub/getrange.dc2 Дата изменения: Wed Jun 19 06:04:01 2002 Дата индексирования: Fri Jan 16 20:40:35 2009 Кодировка: Поисковые слова: зенитное расстояние

Subroutine: GETRANGE

Purpose: User input interface routine for two reals

Category: USER IO

Files: getrange.c

Author: M. Vogelaar

Use: CALL GETRANGE(RANGE , Output REAL ARRAY
DEFAULT, Input INTEGER
KEY, Input CHARACTER
MES Input CHARACTER
)

RANGE Two reals indicating a range
DEFAULT Default code ( 0: no default, 1: default,
2: hidden, 4: exact number).
KEY Keyword prompt.
MES Message for user.

Description: Interface routine based on function 'USERREAL', but
limited to two reals and extended with -INF and INF
which stands for the biggest negative and the biggest
positive value of the current system.

Updates: Apr 4, 1990: MV, Document created.