blob: 4db6b2a97c691050cc781cfb08d835c8779454d9 (
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
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
|
/*@@
@file Startup.c
@date Wed May 22 02:09:19 2002
@author
@desc
Register the startup banner.
The external variables are also declared here. These are
the arrays containing the variable indexes and right hand sides,
and the number of each type of variable currently in use (the
parameters only give the maximum possible for each type).
@enddesc
@version $Header$
@@*/
#include <stddef.h>
#include "cctk.h"
#include "ExternalVariables.h"
static const char *rcsid = "$Header$";
CCTK_FILEVERSION(CactusBase_MoL_Startup_c);
/********************************************************************
******************** External Variables **********************
********************************************************************/
CCTK_INT *EvolvedVariableIndex = NULL;
CCTK_INT *EvolvedVariableIndexSlow = NULL;
CCTK_INT *RHSVariableIndex = NULL;
CCTK_INT *RHSVariableIndexSlow = NULL;
CCTK_INT *ConstrainedVariableIndex = NULL;
CCTK_INT *SandRVariableIndex = NULL;
CCTK_INT MoLNumEvolvedVariables = 0;
CCTK_INT MoLNumEvolvedVariablesSlow = 0;
CCTK_INT MoLNumConstrainedVariables = 0;
CCTK_INT MoLNumSandRVariables = 0;
CCTK_INT *EvolvedComplexVariableIndex = NULL;
CCTK_INT *RHSComplexVariableIndex = NULL;
CCTK_INT *ConstrainedComplexVariableIndex = NULL;
CCTK_INT *SandRComplexVariableIndex = NULL;
CCTK_INT MoLNumEvolvedComplexVariables = 0;
CCTK_INT MoLNumConstrainedComplexVariables = 0;
CCTK_INT MoLNumSandRComplexVariables = 0;
CCTK_INT *EvolvedArrayVariableIndex = NULL;
CCTK_INT *RHSArrayVariableIndex = NULL;
CCTK_INT *ConstrainedArrayVariableIndex = NULL;
CCTK_INT *SandRArrayVariableIndex = NULL;
CCTK_INT MoLNumEvolvedArrayVariables = 0;
CCTK_INT MoLNumConstrainedArrayVariables = 0;
CCTK_INT MoLNumSandRArrayVariables = 0;
CCTK_INT *EvolvedComplexArrayVariableIndex = NULL;
CCTK_INT *RHSComplexArrayVariableIndex = NULL;
CCTK_INT *ConstrainedComplexArrayVariableIndex = NULL;
CCTK_INT *SandRComplexArrayVariableIndex = NULL;
CCTK_INT MoLNumEvolvedComplexArrayVariables = 0;
CCTK_INT MoLNumConstrainedComplexArrayVariables = 0;
CCTK_INT MoLNumSandRComplexArrayVariables = 0;
CCTK_INT ScheduleStatus = 0;
CCTK_REAL *ArrayScratchSpace = NULL;
CCTK_INT *ArrayScratchSizes = NULL;
CCTK_INT CurrentArrayScratchSize = 0;
CCTK_INT MoLMaxNumRegisteredVariables = 0;
/********************************************************************
********************* Local Data Types ***********************
********************************************************************/
/********************************************************************
********************* Local Routine Prototypes *********************
********************************************************************/
/********************************************************************
***************** Scheduled Routine Prototypes *********************
********************************************************************/
int MoL_Startup(void);
/********************************************************************
********************* Other Routine Prototypes *********************
********************************************************************/
/********************************************************************
********************* Local Data *****************************
********************************************************************/
/********************************************************************
********************* External Routines **********************
********************************************************************/
/*@@
@routine MoL_Startup
@date Wed May 22 02:17:17 2002
@author Ian Hawke
@desc
Register the startup banner with the flesh.
@enddesc
@calls
@calledby
@history
@endhistory
@@*/
int MoL_Startup(void)
{
const char *banner = "MoL: Generalized time integration.";
CCTK_RegisterBanner(banner);
return 0;
}
/********************************************************************
********************* Local Routines *************************
********************************************************************/
|