1*======================================================================= 2* 3* WCSLIB 7.7 - an implementation of the FITS WCS standard. 4* Copyright (C) 1995-2021, Mark Calabretta 5* 6* This file is part of WCSLIB. 7* 8* WCSLIB is free software: you can redistribute it and/or modify it 9* under the terms of the GNU Lesser General Public License as published 10* by the Free Software Foundation, either version 3 of the License, or 11* (at your option) any later version. 12* 13* WCSLIB is distributed in the hope that it will be useful, but WITHOUT 14* ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or 15* FITNESS FOR A PARTICULAR PURPOSE. See the GNU Lesser General Public 16* License for more details. 17* 18* You should have received a copy of the GNU Lesser General Public 19* License along with WCSLIB. If not, see http://www.gnu.org/licenses. 20* 21* Author: Mark Calabretta, Australia Telescope National Facility, CSIRO. 22* http://www.atnf.csiro.au/people/Mark.Calabretta 23* $Id: fitshdr.inc,v 7.7 2021/07/12 06:36:49 mcalabre Exp $ 24*======================================================================= 25 26* Functions. 27 EXTERNAL KEYIDPUT, KEYIDPTC, 28 : KEYIDGET, KEYIDGTC, KEYIDGTI, 29 : KEYGET, KEYGTC, KEYGTD, KEYGTI, 30 : FREEKEYS, FITSHDR 31 32 INTEGER KEYIDPUT, KEYIDPTC, 33 : KEYIDGET, KEYIDGTC, KEYIDGTI, 34 : KEYGET, KEYGTC, KEYGTD, KEYGTI, 35 : FREEKEYS, FITSHDR 36 37* Length of FITSKEY and FITSKEYID data structures (INTEGER arrays) 38* on 64-bit machines. These are the same for 32-bit machines. 39 INTEGER KEYLEN, KEYIDLEN 40 PARAMETER (KEYLEN = 48) 41 PARAMETER (KEYIDLEN = 6) 42 43* Codes for KEYID data structure elements used by KEYIDPUT/GET. 44 INTEGER KEYID_NAME, KEYID_COUNT, KEYID_IDX 45 46 PARAMETER (KEYID_NAME = 100) 47 PARAMETER (KEYID_COUNT = 101) 48 PARAMETER (KEYID_IDX = 102) 49 50* Codes for KEY data structure elements used by KEYGET. 51 INTEGER KEY_KEYNO, KEY_KEYID, KEY_STATUS, KEY_KEYWORD, KEY_TYPE, 52 : KEY_KEYVALUE, KEY_ULEN, KEY_COMMENT 53 54 PARAMETER (KEY_KEYNO = 200) 55 PARAMETER (KEY_KEYID = 201) 56 PARAMETER (KEY_STATUS = 202) 57 PARAMETER (KEY_KEYWORD = 203) 58 PARAMETER (KEY_TYPE = 204) 59 PARAMETER (KEY_KEYVALUE = 205) 60 PARAMETER (KEY_ULEN = 206) 61 PARAMETER (KEY_COMMENT = 207) 62 63* Error codes and messages. 64 INTEGER FITSHDRERR_SUCCESS, FITSHDRERR_NULL_POINTER, 65 : FITSHDRERR_MEMORY, FITSHDRERR_FLEX_PARSER 66 67 PARAMETER (FITSHDRERR_SUCCESS = 0) 68 PARAMETER (FITSHDRERR_NULL_POINTER = 1) 69 PARAMETER (FITSHDRERR_MEMORY = 2) 70 PARAMETER (FITSHDRERR_FLEX_PARSER = 3) 71 72 CHARACTER FITSHDR_ERRMSG(0:3)*80 73 COMMON /FITSHDR_DATA/ FITSHDR_ERRMSG 74