diff options
author | rideout <rideout@17b73243-c579-4c4c-a9d2-2d5706c11dac> | 2010-11-03 15:47:27 +0000 |
---|---|---|
committer | rideout <rideout@17b73243-c579-4c4c-a9d2-2d5706c11dac> | 2010-11-03 15:47:27 +0000 |
commit | 9e0632fae2d80f47ab5e0df7b968610a67de22f7 (patch) | |
tree | 44eb507d592f841924bb57f6d3c495a7bee6b1b9 /src/comm | |
parent | 7e92a2647f78aaa42ce01fe322d21c5eb963ceba (diff) |
Provide Fortran wrapper for CCTK_SyncGroupsI().
git-svn-id: http://svn.cactuscode.org/flesh/trunk@4646 17b73243-c579-4c4c-a9d2-2d5706c11dac
Diffstat (limited to 'src/comm')
-rw-r--r-- | src/comm/CactusSync.c | 7 |
1 files changed, 7 insertions, 0 deletions
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); +} |