Add Fortran wrapper for DecodeSymParameters3D

git-svn-id: http://svn.cactuscode.org/arrangements/CactusBase/CartGrid3D/trunk@194 c78560ca-4b45-4335-b268-5f3340f3cb52

1 files changed, 7 insertions, 0 deletions

diff --git a/src/DecodeSymParameters.c b/src/DecodeSymParameters.c
index 88b12b5..a72dfc5 100644
--- a/src/DecodeSymParameters.c
+++ b/src/DecodeSymParameters.c
@@ -159,3 +159,10 @@ void DecodeSymParameters3D(int sym[6])
     sym[4] = GFSYM_REFLECTION;
   }
 }
+
+
+
+void CCTK_FCALL CCTK_FNAME(DecodeSymParameters3D) (int sym[6])
+{
+  DecodeSymParameters3D(sym);
+}