diff options
| author | tradke <tradke@17b73243-c579-4c4c-a9d2-2d5706c11dac> | 2001-12-06 17:05:15 +0000 |
|---|---|---|
| committer | tradke <tradke@17b73243-c579-4c4c-a9d2-2d5706c11dac> | 2001-12-06 17:05:15 +0000 |
| commit | 993da3c11ad23dc86b1beff0e9bdad3335140da2 (patch) | |
| tree | 8ece1e96ca96b23b5af799506e73e56bebf66d29 /src/comm | |
| parent | 50730797671d7f1c1a1480d57df231fa8a12718e (diff) | |
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
Diffstat (limited to 'src/comm')
| -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); +} |