From 29bfcbaba503af41067f6ea16f506d1d0190bd06 Mon Sep 17 00:00:00 2001 From: allen Date: Tue, 25 Jan 2000 10:05:03 +0000 Subject: CCTK function name changes Reorganising file structure git-svn-id: http://svn.cactuscode.org/flesh/trunk@1296 17b73243-c579-4c4c-a9d2-2d5706c11dac --- src/comm/FortranBindings.c | 50 ---------------------------------------------- 1 file changed, 50 deletions(-) delete mode 100644 src/comm/FortranBindings.c (limited to 'src/comm/FortranBindings.c') diff --git a/src/comm/FortranBindings.c b/src/comm/FortranBindings.c deleted file mode 100644 index 2a273b7c..00000000 --- a/src/comm/FortranBindings.c +++ /dev/null @@ -1,50 +0,0 @@ - /*@@ - @file FortranBindings.c - @date Thu Feb 18 14:27:18 1999 - @author Gabrielle Allen - @desc - Fortran bindings for the comm functions - @enddesc - @@*/ - -#include -#include "cctk_Flesh.h" -#include "cctk_FortranString.h" -#include "cctk_Comm.h" - -int FMODIFIER FORTRAN_NAME(CCTK_Exit)(cGH *GH) -{ - CCTK_Exit(GH); - return 0; -} - -int FMODIFIER FORTRAN_NAME(CCTK_ParallelInit)(cGH *GH) -{ - CCTK_ParallelInit(GH); - return 0; -} - -int FMODIFIER FORTRAN_NAME(CCTK_Abort)(cGH *GH) -{ - CCTK_Abort(GH); - return 0; -} - -int FMODIFIER FORTRAN_NAME(CCTK_SyncGroup)(cGH *GH, ONE_FORTSTRING_ARG) -{ - ONE_FORTSTRING_CREATE(group_name) - CCTK_SyncGroup(GH,group_name); - free(group_name); - return 0; -} - -int FMODIFIER FORTRAN_NAME(CCTK_nProcs)(cGH *GH) -{ - return CCTK_nProcs(GH); -} - -int FMODIFIER FORTRAN_NAME(CCTK_MyProc)(cGH *GH) -{ - return CCTK_MyProc(GH); -} - -- cgit v1.2.3