aboutsummaryrefslogtreecommitdiff
path: root/src/MoL.h
blob: 707c7e217ba7244d6d0c5e7a76e000f6d4aeb57a (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      MoL.h
   @date      Thu Jun 13 22:17:32 2002
   @author    Ian Hawke
   @desc 
   A header file with the definitions of the functions to be 
   called by other thorns. This will exist until the function
   aliasing is sorted out.
   @enddesc 
 @@*/

#ifdef __cplusplus
extern "C" {
#endif

#ifndef MOL_ACTIVE
#define MOL_ACTIVE
#endif

#ifdef CCODE

CCTK_INT MoL_RegisterEvolved(CCTK_INT EvolvedIndex, CCTK_INT RHSIndex);
CCTK_INT MoL_RegisterEvolvedSlow(CCTK_INT EvolvedIndex, CCTK_INT RHSIndexSlow);
CCTK_INT MoL_RegisterConstrained(CCTK_INT ConstrainedIndex);
CCTK_INT MoL_RegisterSaveAndRestore(CCTK_INT SandRIndex);
CCTK_INT MoL_ChangeToEvolved(CCTK_INT EvolvedIndex, CCTK_INT RHSIndex);
CCTK_INT MoL_ChangeToConstrained(CCTK_INT ConstrainedIndex);
CCTK_INT MoL_ChangeToSaveAndRestore(CCTK_INT SandRIndex);
CCTK_INT MoL_ChangeToNone(CCTK_INT RemoveIndex);
CCTK_INT MoL_RegisterEvolvedGroup(CCTK_INT EvolvedGroupIndex, 
                                  CCTK_INT RHSGroupIndex);
CCTK_INT MoL_RegisterEvolvedGroupSlow(CCTK_INT EvolvedGroupIndexSlow,
                                      CCTK_INT RHSGroupIndexSlow);
CCTK_INT MoL_RegisterConstrainedGroup(CCTK_INT ConstrainedGroupIndex);
CCTK_INT MoL_RegisterSaveAndRestoreGroup(CCTK_INT SandRGroupIndex);

/* Old functions from MoL1 for compatibility */

CCTK_INT MoL_RegisterVar(CCTK_INT molvarindex,CCTK_INT molrhsvarindex);
CCTK_INT MoL_RegisterPrimitive(CCTK_INT primitiveindex);
CCTK_INT MoL_RegisterDepends(CCTK_INT dependsindex);
CCTK_INT MoL_RegisterVarGroup(CCTK_INT groupindex,CCTK_INT rhsgroupindex);
CCTK_INT MoL_RegisterPrimitiveGroup(CCTK_INT groupindex);
CCTK_INT MoL_RegisterDependsGroup(CCTK_INT groupindex);
CCTK_INT MoL_ChangeVarToEvolved(CCTK_INT varindex, CCTK_INT rhsindex);
CCTK_INT MoL_ChangeVarToDependent(CCTK_INT dependsindex);
CCTK_INT MoL_ChangeVarToPrimitive(CCTK_INT primitiveindex);
CCTK_INT MoL_ChangeVarToNone(CCTK_INT removeindex);

#endif

#ifdef __cplusplus
}
#endif