Function: IRUS_COOR Category: IRAS, WORLD COORDINATES Purpose: obtains a valid coordinate number from the user File: irus_coor.shl Author: Do Kester Person resp.: Do Kester Address: guspace!do or rugfx4!do (uucp) Use: integer irus_coor( coor, I integer default, I integer keyword ) I character*(*) IRUS_COOR coor default coordinate system; 0 if n/a default level of default (as in USERxxx) keyword to prompt the user with (as in USERxxx) Description: The user is prompted for a coordinate system and an epoch if such is applicable i.e. in case of Equatorial, Ecliptic or SunReferenced. If the epoch is not equal to 2000, the system is precessed and stored as a new system. If the system is unknown, the user is prompted further for the definition of such a system. It is then made and installed as a new system. Connections to EQU 2000 (system nr 1) are always made. Externals: Updates: 16 July 1990 DK 11 Dec 1990 DK, output = input in case of default