Документ взят из кэша поисковой машины. Адрес оригинального документа : http://www.atnf.csiro.au/computing/software/gipsy/sub/gdsd_wxxx.dc2 Дата изменения: Mon Feb 5 07:27:46 2001 Дата индексирования: Fri Jan 16 21:49:53 2009 Кодировка:

Name: GDSD_Wxxx

Purpose: Write FITS data field

File: gdsd_wfits.shl

Category: GDS

Author: J.P. Terlouw

Use: CALL GDSD_Wxxx ( file_id, name, level, value, *error )

xxx can be REAL, DBLE, INT, LOG or CHAR, depending
upon type of `value'.

file_id = file identifier, CHARACTER
name = name of FITS item. CHARACTER*8
level = coordinate word specifying the
substructure at which the FITS
item is to be written. INTEGER
value = variable containing the data for the
FITS record. Depending on `xxx', the type
can be REAL, DOUBLE, INTEGER,
LOGICAL or CHARACTER*(*).
* error = error return code, INTEGER

If this routine writes to an existing FITS item, only
the value field is changed; the comment field is not
affected.

Updates: 25-May-87 original document
14-Dec-89 adjusted to GPS