blob: 096402157030c2a265c2289ff1104a389e70a2ed (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
|
#ifndef FORTRAN_H
#define FORTRAN_H
#include "cctk.h"
#if FORTRAN_CPP_ANSI
/* For an ANSI-like cpp */
#define CONCAT(a,b) a##b
#define STRINGIFY(a) STRINGIFY_(a)
#define STRINGIFY_(a) #a
#else
/* For a traditional cpp */
#define CONCAT(a,b) a/**/b
#define STRINGIFY(a) "a"
#endif
#endif /* #ifdef FORTRAN_H */
|