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: wcshdr.inc,v 7.7 2021/07/12 06:36:49 mcalabre Exp $ 24*======================================================================= 25 26* Functions. 27 EXTERNAL WCSPIH, WCSBTH, WCSTAB, WCSIDX, WCSBDX, WCSVFREE, 28 : WCSVCOPY 29 30 INTEGER WCSPIH, WCSBTH, WCSTAB, WCSIDX, WCSBDX, WCSVFREE, 31 : WCSVCOPY 32 33* Flag bits for the RELAX argument. 34 INTEGER WCSHDR_none, WCSHDR_all, WCSHDR_reject, WCSHDR_strict 35 36 PARAMETER (WCSHDR_none = 0) 37 PARAMETER (WCSHDR_all = 2**20 - 1) 38 PARAMETER (WCSHDR_reject = 2**28) 39 PARAMETER (WCSHDR_strict = 2**29) 40 41 INTEGER WCSHDR_CROTAia, WCSHDR_EPOCHa, WCSHDR_VELREFa, 42 : WCSHDR_CD00i00j, WCSHDR_PC00i00j, WCSHDR_PROJPn, 43 : WCSHDR_CD0i_0ja, WCSHDR_PC0i_0ja, WCSHDR_PV0i_0ma, 44 : WCSHDR_PS0i_0ma, WCSHDR_RADECSYS, WCSHDR_VSOURCE, 45 : WCSHDR_DOBSn, WCSHDR_LONGKEY, WCSHDR_CNAMn, 46 : WCSHDR_AUXIMG, WCSHDR_ALLIMG 47 48 PARAMETER (WCSHDR_CROTAia = 2**0) 49 PARAMETER (WCSHDR_EPOCHa = 2**1) 50 PARAMETER (WCSHDR_VELREFa = 2**2) 51 PARAMETER (WCSHDR_CD00i00j = 2**3) 52 PARAMETER (WCSHDR_PC00i00j = 2**4) 53 PARAMETER (WCSHDR_PROJPn = 2**5) 54 PARAMETER (WCSHDR_CD0i_0ja = 2**6) 55 PARAMETER (WCSHDR_PC0i_0ja = 2**7) 56 PARAMETER (WCSHDR_PV0i_0ma = 2**8) 57 PARAMETER (WCSHDR_PS0i_0ma = 2**9) 58 PARAMETER (WCSHDR_RADECSYS = 2**10) 59 PARAMETER (WCSHDR_VSOURCE = 2**11) 60 PARAMETER (WCSHDR_DOBSn = 2**12) 61 PARAMETER (WCSHDR_LONGKEY = 2**13) 62 PARAMETER (WCSHDR_CNAMn = 2**14) 63 PARAMETER (WCSHDR_AUXIMG = 2**15) 64 PARAMETER (WCSHDR_ALLIMG = 2**16) 65 66 INTEGER WCSHDR_IMGHEAD, WCSHDR_BIMGARR, WCSHDR_PIXLIST 67 68 PARAMETER (WCSHDR_IMGHEAD = 2**21) 69 PARAMETER (WCSHDR_BIMGARR = 2**22) 70 PARAMETER (WCSHDR_PIXLIST = 2**23) 71 72* Error codes and messages. 73 INTEGER WCSHDRERR_SUCCESS, WCSHDRERR_NULL_POINTER, 74 : WCSHDRERR_MEMORY, WCSHDRERR_BAD_COLUMN, 75 : WCSHDRERR_PARSER, WCSHDRERR_BAD_TABULAR_PARAMS 76 77 PARAMETER (WCSHDRERR_SUCCESS = 0) 78 PARAMETER (WCSHDRERR_NULL_POINTER = 1) 79 PARAMETER (WCSHDRERR_MEMORY = 2) 80 PARAMETER (WCSHDRERR_BAD_COLUMN = 3) 81 PARAMETER (WCSHDRERR_PARSER = 4) 82 PARAMETER (WCSHDRERR_BAD_TABULAR_PARAMS = 5) 83 84 CHARACTER WCSHDR_ERRMSG(0:5)*80 85 COMMON /WCSHDR_DATA/ WCSHDR_ERRMSG 86