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
|
#ifndef _F_TYPES_H_
#define _F_TYPES_H_
#ifdef __fortran
#ifndef F_INT
#define F_INT INTEGER
#endif
#ifndef F_ADR
#define F_ADR INTEGER
#endif
#else /* C */
#ifdef F_64BIT
#ifdef _IA32
typedef long long f_int;
#else
typedef long f_int;
#endif
#else
typedef int f_int;
#endif
#ifdef F_ADR /* assume F_INT is INT*4 and F_ADR is INT*8 */
#include <inttypes.h>
typedef int64_t f_adr;
#else
typedef f_int f_adr;
#endif
#endif
#endif /* _F_TYPES_H_ */
|
