From a8dc34dd83669db188336cf68c37f25ebd17301f Mon Sep 17 00:00:00 2001
From: hawke <hawke@17b73243-c579-4c4c-a9d2-2d5706c11dac>
Date: Wed, 3 Nov 2004 16:11:52 +0000
Subject: Add Fortran prototype for CCTK_NumLocalArrayReduceOperators.

git-svn-id: http://svn.cactuscode.org/flesh/trunk@3891 17b73243-c579-4c4c-a9d2-2d5706c11dac
---
 src/comm/Reduction.c | 6 ++++++
 1 file changed, 6 insertions(+)

(limited to 'src/comm')

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
-- 
cgit v1.2.3