diff options
author | hawke <hawke@17b73243-c579-4c4c-a9d2-2d5706c11dac> | 2004-11-03 16:11:52 +0000 |
---|---|---|
committer | hawke <hawke@17b73243-c579-4c4c-a9d2-2d5706c11dac> | 2004-11-03 16:11:52 +0000 |
commit | a8dc34dd83669db188336cf68c37f25ebd17301f (patch) | |
tree | e36921ebadee79bc591bf21f38ed729bec396131 /src/comm | |
parent | 96ee14ee6611df751054b31b4aee49fa7bf7daf7 (diff) |
Add Fortran prototype for CCTK_NumLocalArrayReduceOperators.
git-svn-id: http://svn.cactuscode.org/flesh/trunk@3891 17b73243-c579-4c4c-a9d2-2d5706c11dac
Diffstat (limited to 'src/comm')
-rw-r--r-- | src/comm/Reduction.c | 6 |
1 files changed, 6 insertions, 0 deletions
diff --git a/src/comm/Reduction.c b/src/comm/Reduction.c index 303f0387..ac46206d 100644 --- a/src/comm/Reduction.c +++ b/src/comm/Reduction.c @@ -1274,6 +1274,12 @@ int CCTK_NumLocalArrayReduceOperators(void) return num_local_array_reductions; } +void CCTK_FCALL CCTK_FNAME(CCTK_NumLocalArrayReduceOperators)(int *fortranreturn); +void CCTK_FCALL CCTK_FNAME(CCTK_NumLocalArrayReduceOperators)(int *fortranreturn) +{ + *fortranreturn = CCTK_NumLocalArrayReduceOperators(); +} + /*@@ @routine CCTK_ReduceOperatorImplementation @date Mon Oct 22 2001 |