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