Added prototype for fortran wrapper of DecodeSymParameters3D().

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

1 files changed, 41 insertions, 46 deletions

diff --git a/src/DecodeSymParameters.c b/src/DecodeSymParameters.c
index a72dfc5..ab86c10 100644
--- a/src/DecodeSymParameters.c
+++ b/src/DecodeSymParameters.c
@@ -1,12 +1,12 @@
 
  /*@@
-   @file      DecodeSymParameters.c
-   @date      Wed May 10 18:58:00 EST 2000
-   @author    Erik Schnetter
+   @file    DecodeSymParameters.c
+   @date    Wed May 10 18:58:00 EST 2000
+   @author  Erik Schnetter
    @desc
-   Decode the symmetry parameters.
+            Decode the symmetry parameters.
    @enddesc
-   @version $Header$
+   @version $Id$
  @@*/
 
 #include "cctk.h"
@@ -14,27 +14,23 @@
 #include "cctk_Parameters.h"
 #include "Symmetry.h"
 
-static const char *rcsid = "$Header$"; 
+static const char *rcsid = "$Header$";
 
 CCTK_FILEVERSION(CactusBase_CartGrid3D_DecodeSymParameters_c)
 
 void DecodeSymParameters3D(int sym[6]);
+void CCTK_FCALL CCTK_FNAME(DecodeSymParameters3D) (int sym[6]);
+
 
 /*@@
    @routine    DecodeSymParameters3D
    @date       Thu May 11 11:49:08 2000
    @author     Erik Schnetter
-   @desc 
-      Decode the Symmetry parameters. 
-      returns the symmetry flags (yes/no=1/0) 
+   @desc
+      Decode the Symmetry parameters.
+      returns the symmetry flags (yes/no=1/0)
       in the array sym
-   @enddesc 
-   @calls     
-   @calledby   
-   @history 
- 
-   @endhistory 
-
+   @enddesc
 @@*/
 
 void DecodeSymParameters3D(int sym[6])
@@ -53,66 +49,66 @@ void DecodeSymParameters3D(int sym[6])
   sym[5] = symmetry_zmax;
 
   /* The default can be overridden by bitant, quadrant, and octant mode */
-  if (CCTK_Equals(domain, "bitant")) 
+  if (CCTK_Equals(domain, "bitant"))
   {
-    if (CCTK_Equals(bitant_plane, "xy")) 
+    if (CCTK_Equals(bitant_plane, "xy"))
     {
       sym[4] = GFSYM_REFLECTION;
-    } 
-    else if (CCTK_Equals(bitant_plane, "xz")) 
+    }
+    else if (CCTK_Equals(bitant_plane, "xz"))
     {
       sym[2] = GFSYM_REFLECTION;
-    } 
-    else if (CCTK_Equals(bitant_plane, "yz")) 
+    }
+    else if (CCTK_Equals(bitant_plane, "yz"))
     {
       sym[0] = GFSYM_REFLECTION;
     }
-  } 
-  else if (CCTK_Equals(domain, "bitant_rotate")) 
+  }
+  else if (CCTK_Equals(domain, "bitant_rotate"))
   {
-    if (CCTK_Equals(bitant_plane, "xy")) 
+    if (CCTK_Equals(bitant_plane, "xy"))
     {
       if (CCTK_Equals(rotation_axis, "y"))
 	sym[4] = GFSYM_ROTATION_Y;
       else if (CCTK_Equals(rotation_axis, "x"))
         sym[4] = GFSYM_ROTATION_X;
-    } 
-    else if (CCTK_Equals(bitant_plane, "xz")) 
+    }
+    else if (CCTK_Equals(bitant_plane, "xz"))
     {
       if (CCTK_Equals(rotation_axis, "x"))
 	sym[2] = GFSYM_ROTATION_X;
       else if (CCTK_Equals(rotation_axis, "z"))
         sym[2] = GFSYM_ROTATION_Z;
-    } 
-    else if (CCTK_Equals(bitant_plane, "yz")) 
+    }
+    else if (CCTK_Equals(bitant_plane, "yz"))
     {
       if (CCTK_Equals(rotation_axis, "y"))
 	sym[0] = GFSYM_ROTATION_Y;
       else if (CCTK_Equals(rotation_axis, "z"))
         sym[0] = GFSYM_ROTATION_Z;
     }
-  } 
-  else if (CCTK_Equals(domain, "quadrant")) 
+  }
+  else if (CCTK_Equals(domain, "quadrant"))
   {
-    if (CCTK_Equals(quadrant_direction, "x")) 
+    if (CCTK_Equals(quadrant_direction, "x"))
     {
       sym[2] = GFSYM_REFLECTION;
       sym[4] = GFSYM_REFLECTION;
-    } 
-    else if (CCTK_Equals(quadrant_direction, "y")) 
+    }
+    else if (CCTK_Equals(quadrant_direction, "y"))
     {
       sym[0] = GFSYM_REFLECTION;
       sym[4] = GFSYM_REFLECTION;
-    } 
-    else if (CCTK_Equals(quadrant_direction, "z")) 
+    }
+    else if (CCTK_Equals(quadrant_direction, "z"))
     {
       sym[0] = GFSYM_REFLECTION;
       sym[2] = GFSYM_REFLECTION;
     }
-  } 
-  else if (CCTK_Equals(domain, "quadrant_reflect_rotate")) 
+  }
+  else if (CCTK_Equals(domain, "quadrant_reflect_rotate"))
   {
-    if (CCTK_Equals(quadrant_direction, "x")) 
+    if (CCTK_Equals(quadrant_direction, "x"))
     {
       if (CCTK_Equals(rotation_axis, "y"))
       {
@@ -124,8 +120,8 @@ void DecodeSymParameters3D(int sym[6])
         sym[2] = GFSYM_ROTATION_Z;
 	sym[4] = GFSYM_REFLECTION;
       }
-    } 
-    else if (CCTK_Equals(quadrant_direction, "y")) 
+    }
+    else if (CCTK_Equals(quadrant_direction, "y"))
     {
       if (CCTK_Equals(rotation_axis, "x"))
       {
@@ -137,8 +133,8 @@ void DecodeSymParameters3D(int sym[6])
 	sym[0] = GFSYM_ROTATION_Z;
 	sym[4] = GFSYM_REFLECTION;
       }
-    } 
-    else if (CCTK_Equals(quadrant_direction, "z")) 
+    }
+    else if (CCTK_Equals(quadrant_direction, "z"))
     {
       if (CCTK_Equals(rotation_axis, "x"))
       {
@@ -151,8 +147,8 @@ void DecodeSymParameters3D(int sym[6])
         sym[2] = GFSYM_REFLECTION;
       }
     }
-  } 
-  else if (CCTK_Equals(domain, "octant")) 
+  }
+  else if (CCTK_Equals(domain, "octant"))
   {
     sym[0] = GFSYM_REFLECTION;
     sym[2] = GFSYM_REFLECTION;
@@ -161,7 +157,6 @@ void DecodeSymParameters3D(int sym[6])
 }
 
 
-
 void CCTK_FCALL CCTK_FNAME(DecodeSymParameters3D) (int sym[6])
 {
   DecodeSymParameters3D(sym);