Fortran wrappers for EnableGroupStorage and EnableGroupComm

git-svn-id: http://svn.cactuscode.org/flesh/trunk@1701 17b73243-c579-4c4c-a9d2-2d5706c11dac

1 files changed, 14 insertions, 0 deletions

diff --git a/src/comm/OverloadComm.c b/src/comm/OverloadComm.c
index 1bb861f6..d91ff2a0 100644
--- a/src/comm/OverloadComm.c
+++ b/src/comm/OverloadComm.c
@@ -131,6 +131,20 @@ int CCTK_FCALL CCTK_FNAME(CCTK_SyncGroup)(cGH *GH, ONE_FORTSTRING_ARG)
   return 0;
 }
 
+int CCTK_FCALL CCTK_FNAME(CCTK_EnableGroupComm)(int *ierr, cGH *GH, ONE_FORTSTRING_ARG)
+{
+  ONE_FORTSTRING_CREATE(group_name)
+  *ierr = CCTK_EnableGroupComm(GH, group_name); 
+  free(group_name);
+}
+
+int CCTK_FCALL CCTK_FNAME(CCTK_EnableGroupStorage)(int *ierr, cGH *GH, ONE_FORTSTRING_ARG)
+{
+  ONE_FORTSTRING_CREATE(group_name)
+  *ierr = CCTK_EnableGroupStorage(GH, group_name);
+  free(group_name);
+}
+
 int CCTK_FCALL CCTK_FNAME(CCTK_nProcs)(cGH *GH)
 {
   return CCTK_nProcs(GH);