Added fortran binding for CCTK_GetCoordIndex()

git-svn-id: http://svn.cactuscode.org/flesh/trunk@702 17b73243-c579-4c4c-a9d2-2d5706c11dac

1 files changed, 8 insertions, 0 deletions

diff --git a/src/main/Coord.c b/src/main/Coord.c
index 59121ab0..73c5fb22 100644
--- a/src/main/Coord.c
+++ b/src/main/Coord.c
@@ -19,6 +19,8 @@
 #include "ErrorCodes.h"
 #include "Groups.h"
 #include "Misc.h"
+#include "FortranString.h"
+
 
 static cHandledData *coordinates = NULL;
 static int num_coords = 0;
@@ -212,3 +214,9 @@ int CCTK_GetCoordIndex(const char *name)
   }
 }
 
+void FMODIFIER FORTRAN_NAME(CCTK_GetCoordIndex)(int *handle, ONE_FORTSTRING_ARG)
+{
+  ONE_FORTSTRING_CREATE(name)
+  *handle = CCTK_GetCoordIndex (name);
+  free(name);
+}