| File: | /home/sbrandt/cactus/Cactus/configs/sim2/bindings/Functions/CarpetRegrid2_Functions.c |
| 1 | :/*@@
|
| 2 | : @file CarpetRegrid2_Functions.c
|
| 3 | : @author Automatically generated by CreateFunctionBindings.pl
|
| 4 | : @desc
|
| 5 | : The wrappers for functions provided by thorn CarpetRegrid2.
|
| 6 | : @enddesc
|
| 7 | : @@*/
|
| 8 | :
|
| 9 | :
|
| 10 | :#include <stdio.h>
|
| 11 | :#include <stdlib.h>
|
| 12 | :#include <string.h>
|
| 13 | :
|
| 14 | :#include "cctk_Flesh.h"
|
| 15 | :#include "cctk_WarnLevel.h"
|
| 16 | :
|
| 17 | :
|
| 18 | :
|
| 19 | :extern CCTK_INT CarpetRegrid2_Regrid(const CCTK_POINTER_TO_CONST cctkGH ,
|
| 20 | : const CCTK_POINTER superregss ,
|
| 21 | : const CCTK_POINTER regsss ,
|
| 22 | : const CCTK_INT force);
|
| 23 | :static CCTK_INT CCTK_Wrapper_CtoF_CarpetRegrid2_Regrid(const CCTK_POINTER_TO_CONST* cctkGH ,
|
| 24 | : const CCTK_POINTER* superregss ,
|
| 25 | : const CCTK_POINTER* regsss ,
|
| 26 | : const CCTK_INT* force);
|
| 27 | :CCTK_INT CCTK_Wrapper_CtoF_CarpetRegrid2_Regrid(const CCTK_POINTER_TO_CONST* cctkGH ,
|
| 28 | : const CCTK_POINTER* superregss ,
|
| 29 | : const CCTK_POINTER* regsss ,
|
| 30 | : const CCTK_INT* force)
|
| 31 | :{
|
| 32 | :
|
| 33 | :
|
| 34 | : return (CarpetRegrid2_Regrid)(*cctkGH , *superregss , *regsss , *force);
|
| 35 | :}
|
| 36 | :
|
| 37 | :
|
| 38 | :extern CCTK_INT CarpetRegrid2_RegridMaps(const CCTK_POINTER_TO_CONST cctkGH ,
|
| 39 | : const CCTK_POINTER superregsss ,
|
| 40 | : const CCTK_POINTER regssss ,
|
| 41 | : const CCTK_INT force);
|
| 42 | :static CCTK_INT CCTK_Wrapper_CtoF_CarpetRegrid2_RegridMaps(const CCTK_POINTER_TO_CONST* cctkGH ,
|
| 43 | : const CCTK_POINTER* superregsss ,
|
| 44 | : const CCTK_POINTER* regssss ,
|
| 45 | : const CCTK_INT* force);
|
| 46 | :CCTK_INT CCTK_Wrapper_CtoF_CarpetRegrid2_RegridMaps(const CCTK_POINTER_TO_CONST* cctkGH ,
|
| 47 | : const CCTK_POINTER* superregsss ,
|
| 48 | : const CCTK_POINTER* regssss ,
|
| 49 | : const CCTK_INT* force)
|
| 50 | :{
|
| 51 | :
|
| 52 | :
|
| 53 | : return (CarpetRegrid2_RegridMaps)(*cctkGH , *superregsss , *regssss , *force);
|
| 54 | :}
|
| 55 | :
|
| 56 | :CCTK_INT Register_CarpetRegrid2(void);
|
| 57 | :CCTK_INT AliasCarpet_Regrid_C(CCTK_INT (*func)(const CCTK_POINTER_TO_CONST cctkGH ,
|
| 58 | : const CCTK_POINTER superregss ,
|
| 59 | : const CCTK_POINTER regsss ,
|
| 60 | : const CCTK_INT force));
|
| 61 | :CCTK_INT AliasCarpet_Regrid_F(CCTK_INT (*func)(const CCTK_POINTER_TO_CONST* cctkGH ,
|
| 62 | : const CCTK_POINTER* superregss ,
|
| 63 | : const CCTK_POINTER* regsss ,
|
| 64 | : const CCTK_INT* force));
|
| 65 | :CCTK_INT AliasCarpet_RegridMaps_C(CCTK_INT (*func)(const CCTK_POINTER_TO_CONST cctkGH ,
|
| 66 | : const CCTK_POINTER superregsss ,
|
| 67 | : const CCTK_POINTER regssss ,
|
| 68 | : const CCTK_INT force));
|
| 69 | :CCTK_INT AliasCarpet_RegridMaps_F(CCTK_INT (*func)(const CCTK_POINTER_TO_CONST* cctkGH ,
|
| 70 | : const CCTK_POINTER* superregsss ,
|
| 71 | : const CCTK_POINTER* regssss ,
|
| 72 | : const CCTK_INT* force));
|
| 73 | :CCTK_INT Register_CarpetRegrid2(void)
|
| 74 | :{
|
| 75 | : CCTK_INT ierr;
|
| 76 | :
|
| 77 | : ierr = 0;
|
| 78 | :
|
| 79 | : ierr += AliasCarpet_Regrid_F(CCTK_Wrapper_CtoF_CarpetRegrid2_Regrid);
|
| 80 | : ierr += AliasCarpet_Regrid_C(CarpetRegrid2_Regrid);
|
| 81 | : if (ierr)
|
| 82 | : {
|
| 83 | : CCTK_Warn(0, __LINE__, __FILE__, "Bindings",
|
| 84 | : "Function already registered!");
|
| 85 | : }
|
| 86 | : ierr += AliasCarpet_RegridMaps_F(CCTK_Wrapper_CtoF_CarpetRegrid2_RegridMaps);
|
| 87 | : ierr += AliasCarpet_RegridMaps_C(CarpetRegrid2_RegridMaps);
|
| 88 | : if (ierr)
|
| 89 | : {
|
| 90 | : CCTK_Warn(0, __LINE__, __FILE__, "Bindings",
|
| 91 | : "Function already registered!");
|
| 92 | : }
|
| 93 | : return ierr;
|
| 94 | :}
|