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
|
divert(-1)
# Name of system platform (for use in comments)
define(`M4__SYSTEM', OSF)
# Special #defines needed for this FORTRAN, e.g. FORTRAN_HAS_NO_SHORT
# transformation from fortran name to name of C module
define(`NAMEF',`$1_') # for Sun and most unixes, just append an underscore
# transformation from string name to corresponding argument name
define(`STRINGF',`$1')
# extra arguments, if any, for string length
define(`STRINGX',`, $1len') # one extra stringlen parameter
# declaration to be used for argument name descriptor
define(`STRINGD',`
char *$1; `$2'
int $1`'`len';') # declare argument string with extra stringlen parameter
# declarations and initializations of canonical local variables
define(`STRINGL',`')
# C integral type equivalent to a FORTRAN INTEGER
define(`F_INTEGER',`int')
# 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')
divert(0)dnl
|
