diff options
| -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 |