/usr/include/wcslib-5.16/dis.inc is in wcslib-dev 5.16-1.
This file is owned by root:root, with mode 0o644.
The actual contents of the file can be viewed below.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 | *=======================================================================
*
* WCSLIB 5.16 - an implementation of the FITS WCS standard.
* Copyright (C) 1995-2017, Mark Calabretta
*
* This file is part of WCSLIB.
*
* WCSLIB is free software: you can redistribute it and/or modify it
* under the terms of the GNU Lesser General Public License as published
* by the Free Software Foundation, either version 3 of the License, or
* (at your option) any later version.
*
* WCSLIB is distributed in the hope that it will be useful, but WITHOUT
* ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or
* FITNESS FOR A PARTICULAR PURPOSE. See the GNU Lesser General Public
* License for more details.
*
* You should have received a copy of the GNU Lesser General Public
* License along with WCSLIB. If not, see http://www.gnu.org/licenses.
*
* Direct correspondence concerning WCSLIB to mark@calabretta.id.au
*
* Author: Mark Calabretta, Australia Telescope National Facility, CSIRO.
* http://www.atnf.csiro.au/people/Mark.Calabretta
* $Id: dis.inc,v 5.16 2017/01/15 04:25:02 mcalabre Exp $
*=======================================================================
* Functions.
EXTERNAL DISALLOC,
: DISPUT, DISPTC, DISPTD, DISPTI,
: DISGET, DISGTC, DISGTD, DISGTI,
: DISNDP, DPFILL,
: DISINI, DISCPY, DISFREE, DISPRT, DISPERR, DISHDO,
: DISSET, DISP2X, DISX2P, DISWARP
INTEGER DISALLOC,
: DISPUT, DISPTC, DISPTD, DISPTI,
: DISGET, DISGTC, DISGTD, DISGTI,
: DISNDP, DPFILL,
: DISINI, DISCPY, DISFREE, DISPRT, DISPERR, DISHDO,
: DISSET, DISP2X, DISX2P, DISWARP
* Length of the DISPRM and DPKEY data structures (INTEGER arrays)
* on 64-bit machines. DISLEN only needs to be 28 on 32-bit
* machines. DPLEN does not differ.
INTEGER DISLEN, DPLEN
PARAMETER (DISLEN = 48)
PARAMETER (DPLEN = 22)
* Codes for DIS data structure elements used by DISPUT and DISGET.
INTEGER DIS_FLAG, DIS_NAXIS, DIS_DTYPE, DIS_NDP, DIS_NDPMAX,
: DIS_DP, DIS_MAXDIS, DIS_TOTDIS
PARAMETER (DIS_FLAG = 100)
PARAMETER (DIS_NAXIS = 101)
PARAMETER (DIS_DTYPE = 102)
PARAMETER (DIS_NDP = 103)
PARAMETER (DIS_NDPMAX = 104)
PARAMETER (DIS_DP = 105)
PARAMETER (DIS_MAXDIS = 106)
PARAMETER (DIS_TOTDIS = 107)
* Codes for DIS data structure elements used by DISGET (only).
INTEGER DIS_AXMAP, DIS_NHAT, DIS_OFFSET, DIS_SCALE, DIS_IPARM,
: DIS_DPARM, DIS_INAXIS, DIS_NDIS
PARAMETER (DIS_AXMAP = 200)
PARAMETER (DIS_NHAT = 201)
PARAMETER (DIS_OFFSET = 202)
PARAMETER (DIS_SCALE = 203)
PARAMETER (DIS_IPARM = 204)
PARAMETER (DIS_DPARM = 205)
PARAMETER (DIS_INAXIS = 206)
PARAMETER (DIS_NDIS = 207)
* Codes for DIS data structure elements used by DISGET (only).
INTEGER DIS_ERR
PARAMETER (DIS_ERR = 208)
* Error codes and messages.
INTEGER DISERR_SUCCESS, DISERR_NULL_POINTER, DISERR_MEMORY,
: DISERR_BAD_PARAM, DISERR_DISTORT, DISERR_DEDISTORT
PARAMETER (DISERR_SUCCESS = 0)
PARAMETER (DISERR_NULL_POINTER = 1)
PARAMETER (DISERR_MEMORY = 2)
PARAMETER (DISERR_BAD_PARAM = 3)
PARAMETER (DISERR_DISTORT = 4)
PARAMETER (DISERR_DEDISTORT = 5)
CHARACTER DIS_ERRMSG(0:5)*80
COMMON /DIS_DATA/ DIS_ERRMSG
|