blob: 1d9f72c5b70c6a47b03ec18df0cbbe4a3fd8a6a3 (
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
|
/*@@
@file Subsystems.c
@date Fri Jul 23 14:38:25 1999
@author Tom Goodale
@desc
Misc stuff for the subsystems.
@enddesc
@version $Id$
@@*/
#include "cctk_Flesh.h"
#include "CactusRegister.h"
#include "cctk_Schedule.h"
static const char *rcsid = "$Header$";
CCTK_FILEVERSION(main_Subsystems_c);
/********************************************************************
********************* External Routines **********************
********************************************************************/
int CCTKBindings_SetupThornFunctions (void);
int CCTKi_InitialiseSubsystemDefaults (void);
/*@@
@routine CCTKi_InitialiseSubsystemDefaults
@date Fri Jul 23 14:39:53 1999
@author Tom Goodale
@desc
Sets up the defaults for the overloadable functions
in the subsystems.
@enddesc
@calls CCTKi_SetupMainFunctions
CCTKi_SetupCommFunctions
CCTKi_SetupIOFunctions
CCTKi_BindingsImplementationsInitialise
CCTKi_BindingsParametersInitialise
@returntype int
@returndesc
0 - success
@endreturndesc
@@*/
int CCTKi_InitialiseSubsystemDefaults (void)
{
CCTKi_SetupMainFunctions ();
CCTKi_SetupCommFunctions ();
CCTKi_SetupIOFunctions ();
/* CCTKBindings_SetupThornFunctions (); */
CCTKi_BindingsImplementationsInitialise ();
CCTKi_BindingsParametersInitialise ();
return (0);
}
|