Added fortran wrappers for CCTK_DisableGroupComm() and CCTK_DisableGroupStorage().

git-svn-id: http://svn.cactuscode.org/flesh/trunk@2298 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 1bb0cfa8..2233fcf1 100644
--- a/src/comm/OverloadComm.c
+++ b/src/comm/OverloadComm.c
@@ -142,6 +142,13 @@ void CCTK_FCALL CCTK_FNAME(CCTK_EnableGroupComm)(int *ierr, cGH *GH, ONE_FORTSTR
   free(group_name);
 }
 
+void CCTK_FCALL CCTK_FNAME(CCTK_DisableGroupComm)(int *ierr, cGH *GH, ONE_FORTSTRING_ARG)
+{
+  ONE_FORTSTRING_CREATE(group_name)
+  *ierr = CCTK_DisableGroupComm(GH, group_name); 
+  free(group_name);
+}
+
 void CCTK_FCALL CCTK_FNAME(CCTK_EnableGroupStorage)(int *ierr, cGH *GH, ONE_FORTSTRING_ARG)
 {
   ONE_FORTSTRING_CREATE(group_name)
@@ -149,6 +156,13 @@ void CCTK_FCALL CCTK_FNAME(CCTK_EnableGroupStorage)(int *ierr, cGH *GH, ONE_FORT
   free(group_name);
 }
 
+void CCTK_FCALL CCTK_FNAME(CCTK_DisableGroupStorage)(int *ierr, cGH *GH, ONE_FORTSTRING_ARG)
+{
+  ONE_FORTSTRING_CREATE(group_name)
+  *ierr = CCTK_DisableGroupStorage(GH, group_name);
+  free(group_name);
+}
+
 int CCTK_FCALL CCTK_FNAME(CCTK_nProcs)(cGH *GH)
 {
   return CCTK_nProcs(GH);