divert(-1)
define(`M4__SYSTEM', linux)
# Macro for converting C name into FORTRAN name
# f2c has no finishing _ 
define(`NAMEF',`$1_')
# transformation from string name to corresponding argument name
define(`STRINGF',`$1')
# extra arguments, if any, for argument lengths
define(`STRINGX',`, $1_len')  # one extra stringlen parameter
define(`REALX',`')
define(`INTEGERX',`')
define(`FUNCTIONX',`')
define(`DOUBLEX',`')
# declaration to be used for argument name descriptor
define(`STRINGD',`
    char      *$1;
    int        $1_len;') # declare argument string with extra stringlen parameter
define(`STRINGP',`
    char      *$1')
define(`STRINGPX',`,
    int        $1_len')
# declarations and initializations of canonical local variables
define(`STRINGL',`')
# FORTRAN declaration for a long integer (e.g. integer*4 for Microsoft)
define(`LONG_INT',`integer')
# FORTRAN declaration for a short integer (e.g. integer*2)
define(`SHORT_INT',`integer*2')
# FORTRAN declaration for an integer byte (e.g. integer*1 or byte)
define(`BYTE_INT',`byte')
# FORTRAN declaration for double precision (e.g. real for a Cray)
define(`DOUBLE_PRECISION',`double precision')
# FORTRAN syntax for including a file
define(`M4__RIGHT_QUOTE',')
define(`F_INCLUDE',`      `include' M4__RIGHT_QUOTE`'$1`'M4__RIGHT_QUOTE')
divert(0)dnl
