From 993da3c11ad23dc86b1beff0e9bdad3335140da2 Mon Sep 17 00:00:00 2001 From: tradke Date: Thu, 6 Dec 2001 17:05:15 +0000 Subject: Added fortran wrapper for CCTK_QueryGroupStorage(). Maybe this file is not the best place to put it. Closes PR Cactus/577. git-svn-id: http://svn.cactuscode.org/flesh/trunk@2485 17b73243-c579-4c4c-a9d2-2d5706c11dac --- src/comm/OverloadComm.c | 8 ++++++++ 1 file changed, 8 insertions(+) diff --git a/src/comm/OverloadComm.c b/src/comm/OverloadComm.c index 81edab77..837e39dd 100644 --- a/src/comm/OverloadComm.c +++ b/src/comm/OverloadComm.c @@ -126,6 +126,7 @@ void CCTK_FCALL CCTK_FNAME (CCTK_EnableGroupComm) (int *ierr, cGH *GH, ONE_FORTS void CCTK_FCALL CCTK_FNAME (CCTK_DisableGroupComm) (int *ierr, cGH *GH, ONE_FORTSTRING_ARG); void CCTK_FCALL CCTK_FNAME (CCTK_EnableGroupStorage) (int *ierr, cGH *GH, ONE_FORTSTRING_ARG); void CCTK_FCALL CCTK_FNAME (CCTK_DisableGroupStorage) (int *ierr, cGH *GH, ONE_FORTSTRING_ARG); +void CCTK_FCALL CCTK_FNAME (CCTK_QueryGroupStorage) (int *ierr, const cGH *GH, ONE_FORTSTRING_ARG); /* Fortran bindings definitions for the comm functions */ @@ -205,3 +206,10 @@ void CCTK_FCALL CCTK_FNAME (CCTK_DisableGroupStorage) (int *ierr, cGH *GH, ONE_F *ierr = CCTK_DisableGroupStorage (GH, group_name); free (group_name); } + +void CCTK_FCALL CCTK_FNAME (CCTK_QueryGroupStorage) (int *ierr, const cGH *GH, ONE_FORTSTRING_ARG) +{ + ONE_FORTSTRING_CREATE (group_name) + *ierr = CCTK_QueryGroupStorage (GH, group_name); + free (group_name); +} -- cgit v1.2.3