diff options
Diffstat (limited to 'src')
-rw-r--r-- | src/comm/FortranBindings.c | 29 |
1 files changed, 29 insertions, 0 deletions
diff --git a/src/comm/FortranBindings.c b/src/comm/FortranBindings.c new file mode 100644 index 00000000..7d073789 --- /dev/null +++ b/src/comm/FortranBindings.c @@ -0,0 +1,29 @@ + /*@@ + @file FortranBindings.c + @date Thu Feb 18 14:27:18 1999 + @author Gabrielle Allen + @desc + Fortran bindings for the comm functions + @enddesc + @@*/ + +#include "flesh.h" +#include "Comm.h" + +int FORTRAN_NAME(CCTK_Exit)(cGH *GH) +{ + CCTK_Exit(GH); + return 0; +} + +int FORTRAN_NAME(CCTK_ParallelInit)(cGH *GH) +{ + CCTK_ParallelInit(GH); + return 0; +} + +int FORTRAN_NAME(CCTK_Abort)(cGH *GH) +{ + CCTK_Abort(GH); + return 0; +} |