blob: 2024a0946f58a8d255f089cf3abc2f1f7b027bee (
plain)
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
41
42
43
44
45
46
47
48
49
50
51
52
53
|
/*@@
@header pughProblem.h
@author Paul Walker
@date March 1997
@desc
This routine declares all the problem-specific globals
and teaches the driver how to make the grid functions
with the right names, and pass them to fortran. It
isn't that exciting, but it's pretty damned important
if you need to add new fields.
@enddesc
@version $Id$
@@*/
#ifdef 0
#include "gfIndices.h"
#include "pughProblemDefs.h"
/* Variables that ALL codes use. */
#define USER_VARS \
int *_one;
/* Main externals */
extern int *_one;
/* Historical: Two macros for the same thing. PW. */
#define PASS_FORT_FIELDS(xGH) \
PASS_FORT_FIELDS_SUBSET(xGH)
/* If you add items to PASS_FORT_FIELDS make sure */
/* you add the right type at the right position */
/* in PROTO_FORT_FIELDS */
#define PROTO_FORT_FIELDS \
PROTO_FORT_FIELDS_SUBSET
#ifdef WIN32
#define FMODIFIER __stdcall
#else
#define FMODIFIER
#endif
#ifdef THORN_CHECKPOINT
/* Is it possible to ifdef this? Or perhaps to rfr it? */
#define f_recover FORTRAN_NAME(recover_,RECOVER,recover)
void FMODIFIER f_recover(FORT_ARGS_PROTO,PROTO_FORT_FIELDS);
#endif
#include "cactus_constants.h"
#endif
|
