From 9f5d8476ea4381b681a678bb7928c8b864e3d55c Mon Sep 17 00:00:00 2001
From: tradke <tradke@90eea020-d82d-4da5-bf6e-4ee79ff7632f>
Date: Mon, 21 Jun 2004 09:12:24 +0000
Subject: Renamed local variable 'index' to 'vindex' to get rid of gcc compiler
 warnings about naming variables after global functions.

git-svn-id: http://svn.cactuscode.org/arrangements/CactusWave/WaveToyC/trunk@110 90eea020-d82d-4da5-bf6e-4ee79ff7632f
---
 src/WaveToy.c | 97 ++++++++++++++++++++++++++---------------------------------
 1 file changed, 42 insertions(+), 55 deletions(-)

diff --git a/src/WaveToy.c b/src/WaveToy.c
index 217cb8f..f9ad97f 100644
--- a/src/WaveToy.c
+++ b/src/WaveToy.c
@@ -1,14 +1,14 @@
  /*@@
-   @file      WaveToy.c
-   @date      
-   @author    Tom Goodale
-   @desc 
-              Evolution routines for the wave equation solver
-   @enddesc 
-   @version $Header$
+   @file    WaveToy.c
+   @date
+   @author  Tom Goodale
+   @desc
+            Evolution routines for the wave equation solver
+   @enddesc
+   @version $Id$
  @@*/
 
-  
+
 #include "cctk.h"
 #include "cctk_Arguments.h"
 #include "cctk_Parameters.h"
@@ -21,25 +21,21 @@ void WaveToyC_Boundaries(CCTK_ARGUMENTS);
 void  WaveToyC_Evolution(CCTK_ARGUMENTS);
 
  /*@@
-   @routine    WaveToyC_Evolution
-   @date       
-   @author     Tom Goodale
-   @desc 
-               Evolution for the wave equation
-   @enddesc 
-   @calls      CCTK_SyncGroup, WaveToyC_Boundaries
-   @calledby   
-   @history 
-   @endhistory 
+   @routine WaveToyC_Evolution
+   @date
+   @author  Tom Goodale
+   @desc
+            Evolution for the wave equation
+   @enddesc
+   @calls   CCTK_SyncGroup, WaveToyC_Boundaries
 @@*/
 
 void  WaveToyC_Evolution(CCTK_ARGUMENTS)
 {
+  DECLARE_CCTK_ARGUMENTS
 
-  DECLARE_CCTK_ARGUMENTS;
-      
   int i,j,k;
-  int index;
+  int vindex;
   int istart, jstart, kstart, iend, jend, kend;
   CCTK_REAL dx,dy,dz,dt,dx2,dy2,dz2,dt2;
   CCTK_REAL dx2i,dy2i,dz2i;
@@ -64,7 +60,7 @@ void  WaveToyC_Evolution(CCTK_ARGUMENTS)
   istart = 1;
   jstart = 1;
   kstart = 1;
-  
+
   iend = cctk_lsh[0]-1;
   jend = cctk_lsh[1]-1;
   kend = cctk_lsh[2]-1;
@@ -78,65 +74,56 @@ void  WaveToyC_Evolution(CCTK_ARGUMENTS)
     {
       for (i=istart; i<iend; i++)
       {
-        index = CCTK_GFINDEX3D(cctkGH,i,j,k);
-        
-        phi[index] = factor*
-                     phi_p[index] - phi_p_p[index] 
-                     + (dt2) * 
+        vindex = CCTK_GFINDEX3D(cctkGH,i,j,k);
+
+        phi[vindex] = factor*
+                     phi_p[vindex] - phi_p_p[vindex]
+                     + (dt2) *
                    ( ( phi_p[CCTK_GFINDEX3D(cctkGH,i+1,j  ,k  )]
                       +phi_p[CCTK_GFINDEX3D(cctkGH,i-1,j  ,k  )] )*dx2i
                     +( phi_p[CCTK_GFINDEX3D(cctkGH,i  ,j+1,k  )]
                       +phi_p[CCTK_GFINDEX3D(cctkGH,i  ,j-1,k  )] )*dy2i
                     +( phi_p[CCTK_GFINDEX3D(cctkGH,i  ,j  ,k+1)]
                       +phi_p[CCTK_GFINDEX3D(cctkGH,i  ,j,  k-1)] )*dz2i);
-      } 
+      }
     }
   }
-
-  return;
 }
 
 
  /*@@
-   @routine    WaveToyC_Boundaries
-   @date       
-   @author     Tom Goodale
-   @desc 
-               Boundary conditions for the wave equation
-   @enddesc 
-   @history 
-   @endhistory 
+   @routine WaveToyC_Boundaries
+   @date
+   @author  Tom Goodale
+   @desc
+            Boundary conditions for the wave equation
+   @enddesc
 @@*/
 
 void WaveToyC_Boundaries(CCTK_ARGUMENTS)
 {
-  DECLARE_CCTK_ARGUMENTS;
-  DECLARE_CCTK_PARAMETERS;
+  DECLARE_CCTK_ARGUMENTS
+  DECLARE_CCTK_PARAMETERS
 
-  int ierr;
+  const char *bctype;
 
-  ierr = 0;
 
-  if (CCTK_EQUALS(bound,"flat") || CCTK_EQUALS(bound,"static") || 
-      CCTK_EQUALS(bound,"radiation") || CCTK_EQUALS(bound,"robin") || 
+  bctype = NULL;
+  if (CCTK_EQUALS(bound,"flat") || CCTK_EQUALS(bound,"static") ||
+      CCTK_EQUALS(bound,"radiation") || CCTK_EQUALS(bound,"robin") ||
       CCTK_EQUALS(bound,"none"))
   {
-    /* Uses all default arguments, so invalid table handle -1 can be passed */
-    ierr = Boundary_SelectVarForBC(cctkGH, CCTK_ALL_FACES, 1, -1, 
-                                   "wavetoy::phi", bound);
+    bctype = bound;
   }
   else if (CCTK_EQUALS(bound,"zero"))
   {
-    /* Uses all default arguments, so invalid table handle -1 can be passed */
-    ierr = Boundary_SelectVarForBC
-      (cctkGH, CCTK_ALL_FACES, 1, -1, "wavetoy::phi", "scalar");
-
+    bctype = "scalar";
   }
 
-  if (ierr < 0) 
+  /* Uses all default arguments, so invalid table handle -1 can be passed */
+  if (bctype && Boundary_SelectVarForBC (cctkGH, CCTK_ALL_FACES, 1, -1,
+                                         "wavetoy::phi", bctype) < 0)
   {
-    CCTK_WARN(0,"WaveToyC_Boundaries: Error selecting boundary condition");
+    CCTK_WARN (0, "WaveToyC_Boundaries: Error selecting boundary condition");
   }
-
-  return;
 }
-- 
cgit v1.2.3