bufrlib.h

Go to the documentation of this file.

#include <stdio.h>
#include <stdlib.h>
#include <string.h>
#include <ctype.h>

#define NFILES 32 
#define MAXCD 250
#define MAXNC 600
#define MXNAF 4

/*
** On certain operating systems, the FORTRAN compiler appends an underscore
** to subprogram names in its object namespace.  Therefore, on such systems,
** a matching underscore must be appended to any C language references to
** the same subprogram names so that the linker can correctly resolve such
** references across the C <-> FORTRAN interface at link time.  This needs
** to be done for any subprogram that is either:
**   1) a C function, or
**   2) a FORTRAN subprogram called from C
*/
#ifdef UNDERSCORE
#define arallocc   arallocc_
#define ardllocc   ardllocc_
#define bort       bort_
#define bort_exit  bort_exit_
#define bvers      bvers_
#define cadn30     cadn30_
#define closbf     closbf_
#define cmpia      cmpia_
#define cmpmsg     cmpmsg_
#define elemdx     elemdx_
#define gets1loc   gets1loc_
#define ibfms      ibfms_
#define ichkstr    ichkstr_
#define icvidx     icvidx_
#define ifxy       ifxy_
#define igetntbi   igetntbi_
#define igetprm    igetprm_
#define igettdi    igettdi_
#define imrkopr    imrkopr_
#define ipkm       ipkm_
#define ireadns    ireadns_
#define istdesc    istdesc_
#define iupb       iupb_
#define iupbs01    iupbs01_
#define iupm       iupm_
#define maxout     maxout_
#define nemtab     nemtab_
#define nemtbb     nemtbb_
#define nummtb     nummtb_
#define numtbd     numtbd_
#define openmb     openmb_
#define pktdd      pktdd_
#define restd      restd_
#define stntbi     stntbi_
#define strnum     strnum_
#define stseq      stseq_
#define ufbint     ufbint_
#define ufbseq     ufbseq_
#define uptdd      uptdd_
#define wrdesc     wrdesc_
#define wrdlen     wrdlen_
#endif

/*
** In order to ensure that the C <-> FORTRAN interface works properly (and
** portably!), the default size of an "INTEGER" declared in FORTRAN must be 
** identical to that of an "int" declared in C.  If this is not the case (e.g.
** some FORTRAN compilers, most notably AIX via the -qintsize= option, allow the
** sizes of INTEGERs to be definitively prescribed outside of the source code
** itself!), then the following conditional directive (or a variant of it) can
** be used to ensure that the size of an "int" in C remains identical to that
** of an "INTEGER" in FORTRAN.
*/ 
#ifdef F77_INTSIZE_8
    typedef long f77int;
#else
    typedef int f77int;
#endif
typedef double f77r8; /* define the C object type that is equivalent to a REAL*8 in Fortran */

/*
** Declare prototypes for ANSI C compatibility.  This should be done for any
** subprogram that is either:
**   1) a C function, or
**   2) a FORTRAN subprogram called from C
*/
void arallocc( void );
void ardllocc( void );
void bort( char *, size_t );
void bort_exit( void );
void bvers( char *, size_t ); 
void cadn30( f77int *, char *, size_t ); 
void closbf( f77int * );
int cmpia( const void *, const void * );
void cmpmsg( char *, size_t );
void elemdx( char *, f77int *, size_t );
void gets1loc( char *, f77int *, f77int *, f77int *, f77int *, size_t );
f77int ibfms( f77r8 * );
f77int ichkstr ( char *, char *, f77int *, size_t, size_t );
f77int icvidx ( f77int *, f77int *, f77int * );
f77int ifxy( char *, size_t );
f77int igetntbi( f77int *, char *, size_t );
f77int igetprm( char *, size_t );
f77int igettdi( f77int * );
f77int imrkopr( char *, size_t );
void ipkm( char *, f77int *, f77int *, size_t );
f77int ireadns( f77int *, char *, f77int *, size_t );
f77int istdesc( f77int * );
f77int iupb( f77int *, f77int *, f77int * );
f77int iupbs01 ( f77int *, char *, size_t );
f77int iupm ( char *, f77int *, size_t );
void maxout( f77int * );
void nemtab( f77int *, char *, f77int *, char *, f77int *, size_t, size_t );
void nemtbb( f77int *, f77int *, char *, f77int *, f77int *, f77int *, size_t );
void nummtb( f77int *, char *, f77int * );
void numtbd( f77int *, f77int *, char *, char *, f77int *, size_t, size_t );
void openmb( f77int *, char *, f77int *, size_t );
void pktdd( f77int *, f77int *, f77int *, f77int * );
void restd( f77int *, f77int *, f77int *, f77int * );
void stntbi( f77int *, f77int *, char *, char *, char *, size_t, size_t, size_t );
void strnum( char *, f77int *, size_t );
void stseq( f77int *, f77int *, f77int *, char *, char *, f77int *, f77int * );
void ufbint( f77int *, f77r8 *, f77int *, f77int *, f77int *, char *, size_t );
void ufbseq( f77int *, f77r8 *, f77int *, f77int *, f77int *, char *, size_t );
void uptdd( f77int *, f77int *, f77int *, f77int * );
void wrdesc( f77int, f77int *, f77int * );
void wrdlen( void );