File:	/home/sbrandt/cactus/Cactus/configs/sim2/bindings/Variables/CarpetLib.c
1	:/*@@
2	:   @file    CarpetLib.c
3	:   @author  Automatically generated by GridFuncStuff.pl
4	:   @desc
5	:            Creates the CCTK variables for thorn CarpetLib
6	:   @enddesc
7	: @@*/
8	:
9	:
10	:
11	:#include <stddef.h>
12	:
13	:#include "CarpetLib/cctk.h"
14	:#include "CarpetLib/cctk_Arguments.h"
15	:#include "cctk_Parameter.h"
16	:#include "cctk_WarnLevel.h"
17	:#include "cctki_Groups.h"
18	:#include "cctki_FortranWrappers.h"
19	:#include "CarpetLib/cctk_ScheduleFunctions.h"
20	:
21	:int CactusBindingsVariables_CarpetLib_Initialise(void);
22	:static int CCTKi_BindingsFortranWrapperCarpetLib(void *_GH, void *fpointer);
23	:
24	:static int CCTKi_BindingsFortranWrapperCarpetLib(void *_GH, void *fpointer)
25	:{
26	:  cGH const *const GH = _GH;
27	:  const int _cctk_zero = 0;
28	:  void (*function)(CARPETLIB_C2F_PROTO);
29	:  DECLARE_CARPETLIB_C2F
30	:  INITIALISE_CARPETLIB_C2F
31	:  (void) (_cctk_zero + 0);
32	:
33	:  function = (void (*) (CARPETLIB_C2F_PROTO)) fpointer;
34	:  function (PASS_CARPETLIB_C2F (GH));
35	:
36	:  return (0);
37	:}
38	:
39	:int CactusBindingsVariables_CarpetLib_Initialise(void)
40	:{
41	:  const char * warn_mixeddim_gfs = "";
42	:  int warn_mixeddim = 0;
43	:  const CCTK_INT *allow_mixeddim_gfs;
44	:
45	:
46	:  allow_mixeddim_gfs = CCTK_ParameterGet ("allow_mixeddim_gfs", "Cactus", 0);
47	:
48	:
49	:  if (*warn_mixeddim_gfs)
50	:  {
51	:    if (allow_mixeddim_gfs && *allow_mixeddim_gfs)
52	:    {
53	:      CCTK_VWarn (2, __LINE__, __FILE__, "Cactus",
54	:                  "CCTKi_CreateGroup: Working dimension already set, "
55	:                  "creating GF group '%s' with different dimension %d",
56	:                  warn_mixeddim_gfs, warn_mixeddim);
57	:    }
58	:    else
59	:    {
60	:      CCTK_VWarn (0, __LINE__, __FILE__, "Cactus",
61	:                  "CCTKi_CreateGroup: Working dimension already set, "
62	:                  "cannot create GF group '%s' with dimension %d",
63	:                  warn_mixeddim_gfs, warn_mixeddim);
64	:    }
65	: }
66	:
67	:  CCTKi_RegisterFortranWrapper("CarpetLib", CCTKi_BindingsFortranWrapperCarpetLib);
68	:
69	:  return 0;
70	:}
71	: