src/main/InitialiseDataStructures.c


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

 /*@@
   @file      InitialiseDataStructures.c
   @date      Wed Jan 13 20:28:08 1999
   @author    Tom Goodale
   @desc 
   
   @enddesc 
 @@*/

#include <stdio.h>
#include <stdlib.h>
#include <string.h>

#include "cctk_Flesh.h"
#include "cctk_ActiveThorns.h"
#include "cctki_ActiveThorns.h"
#include "cctki_Cache.h"

int CCTKi_RegisterDefaultTimerFunctions(void);

static char *rcsid = "$Header$";

CCTK_FILEVERSION(main_InitialiseDataStructures_c)

 /*@@
   @routine    CCTKi_InitialiseDataStructures
   @date       Wed Jan 20 09:27:56 1999
   @author     Tom Goodale
   @desc 
   
   @enddesc 
   @calls     
   @calledby   
   @history 
 
   @endhistory 

@@*/

int CCTKi_InitialiseDataStructures(tFleshConfig *ConfigData)
{

  CCTKi_RegisterDefaultTimerFunctions();

  ConfigData->nGHs = 0;
  ConfigData->GH = NULL;

#if 0
  ConfigData->timer[INITIALISATION] = CactusNewTimer();
  ConfigData->timer[EVOLUTION] = CactusNewTimer();
  ConfigData->timer[ELLIPTIC] = CactusNewTimer();
#endif


  /* Initialise appropriate subsystems. */

  /*  CCTKi_BindingsImplementationsInitialise();*/
  /*  CCTKi_BindingsParametersInitialise();*/
  /*  CCTKi_BindingsVariablesInitialise(); */
  /*  CCTKi_BindingsScheduleInitialise(); */

  CCTKi_ActivateThorn("Cactus");
  CCTKi_SetupCache();

  return 0;
}