wcslib (8.2.2)
1 /* wcsconfig_f77.h. Generated from wcsconfig_f77.h.in by configure. */
2 /*============================================================================
3 *
4 * wcsconfig_f77.h is generated from wcsconfig_f77.h.in by 'configure'. It
5 * contains C preprocessor definitions for building the WCSLIB 8.2 Fortran
6 * wrappers.
7 *
8 * Author: Mark Calabretta, Australia Telescope National Facility, CSIRO.
9 * http://www.atnf.csiro.au/people/Mark.Calabretta
10 * $Id: wcsconfig_f77.h.in,v 8.2.1.1 2023/11/16 10:05:58 mcalabre Exp mcalabre $
11 *===========================================================================*/
12
13 /* Integer array type large enough to hold an address. Set here to int[2] for
14 * 64-bit addresses, but could be defined as int* on 32-bit machines. */
15 typedef int iptr[2];
16
17 /* Macro for mangling Fortran subroutine names that do not contain
18 * underscores. Typically a name like "WCSINI" (case-insensitive) will become
19 * something like "wcsini_" (case-sensitive). The Fortran wrappers, which are
20 * written in C, are preprocessed into names that match the latter. The macro
21 * takes two arguments which specify the name in lower and upper case. */
22 #define F77_FUNC(name,NAME) name ## _