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

Subroutine: GDSD_WFITS

Purpose: Write FITS-type descriptor item

File: gdsd_wfits.shl

Category: GDS

Author: J.P. Terlouw

Use: CALL GDSD_WFITS ( file_id, *name, level, record, *error )

file_id = file identifier, CHARACTER
* name = name of FITS item. If omitted, the keyword
found in `record' is used. CHARACTER*8
level = coordinate word specifying the
substructure to which the FITS
item belongs. INTEGER
record = FITS record, consisting of keyword,
data and comment. The keyword need
not be present if `name' is specified.
CHARACTER*80
* error = error return code INTEGER

Other entries: GDSD_RFITS, GDSD_RINT, GDSD_WINT, GDSD_RREAL, GDSD_WREAL,
GDSD_RDBLE, GDSD_WDBLE, GDSD_RLOG, GDSD_WLOG,
GDSD_RCHAR, GDSD_WCHAR.

Updates: 25-May-87 original document
14-Dec-89 brought under GPS