diff options
Diffstat (limited to 'src/comm/OverloadComm.c')
-rw-r--r-- | src/comm/OverloadComm.c | 8 |
1 files changed, 8 insertions, 0 deletions
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); +} |