diff options
author | allen <allen@17b73243-c579-4c4c-a9d2-2d5706c11dac> | 1999-07-29 19:59:09 +0000 |
---|---|---|
committer | allen <allen@17b73243-c579-4c4c-a9d2-2d5706c11dac> | 1999-07-29 19:59:09 +0000 |
commit | 877eb8a719638b89d90c7c5206c8ba92b2904aa0 (patch) | |
tree | 774e1fcc317d825dbc64387474dfe54ae0a767e4 /src/comm | |
parent | 870985995a41916172b023e471bcd7e6cd15c7cd (diff) |
Renaming functions and adding fortran bindings
git-svn-id: http://svn.cactuscode.org/flesh/trunk@823 17b73243-c579-4c4c-a9d2-2d5706c11dac
Diffstat (limited to 'src/comm')
-rw-r--r-- | src/comm/FortranBindings.c | 11 |
1 files changed, 11 insertions, 0 deletions
diff --git a/src/comm/FortranBindings.c b/src/comm/FortranBindings.c index 84871403..e7969c4d 100644 --- a/src/comm/FortranBindings.c +++ b/src/comm/FortranBindings.c @@ -37,3 +37,14 @@ int FMODIFIER FORTRAN_NAME(CCTK_SyncGroup)(cGH *GH, ONE_FORTSTRING_ARG) free(group_name); return 0; } + +int FMODIFIER FORTRAN_NAME(CCTK_nProcs)(cGH *GH) +{ + return CCTK_nProcs(GH); +} + +int FMODIFIER FORTRAN_NAME(CCTK_MyProc)(cGH *GH) +{ + return CCTK_MyProc(GH); +} + |