From 9e0632fae2d80f47ab5e0df7b968610a67de22f7 Mon Sep 17 00:00:00 2001
From: rideout <rideout@17b73243-c579-4c4c-a9d2-2d5706c11dac>
Date: Wed, 3 Nov 2010 15:47:27 +0000
Subject: Provide Fortran wrapper for CCTK_SyncGroupsI().

git-svn-id: http://svn.cactuscode.org/flesh/trunk@4646 17b73243-c579-4c4c-a9d2-2d5706c11dac
---
 src/comm/CactusSync.c | 7 +++++++
 1 file changed, 7 insertions(+)

(limited to 'src/comm')

diff --git a/src/comm/CactusSync.c b/src/comm/CactusSync.c
index ee411372..e8c442ff 100644
--- a/src/comm/CactusSync.c
+++ b/src/comm/CactusSync.c
@@ -218,3 +218,10 @@ int CCTK_SyncGroupsI (const cGH *GH,
 
   return (retval);
 }
+
+
+void CCTK_FCALL CCTK_FNAME (CCTK_SyncGroupsI)
+     (int *ierror, const cGH **GH, const int *num_groups, const int *groups)
+{
+  *ierror = CCTK_SyncGroupsI (*GH, *num_groups, groups);
+}
-- 
cgit v1.2.3