Better name for variables

Fixes Cactus/1016


git-svn-id: http://svn.einsteintoolkit.org/cactus/EinsteinAnalysis/ADMAnalysis/trunk@16 80bd93c7-81bc-453a-9e3f-619c0b4f6fe4

1 files changed, 5 insertions, 5 deletions

diff --git a/src/CartToSphere.c b/src/CartToSphere.c
index 8f3185a..d51a085 100644
--- a/src/CartToSphere.c
+++ b/src/CartToSphere.c
@@ -159,7 +159,7 @@ void ADMAnalysis_CartToSphere(const int *lsh,
   CCTK_REAL sint;
   CCTK_REAL sinp;
   CCTK_REAL cosp;
-  CCTK_REAL r_squared;
+  CCTK_REAL rvalue;
   CCTK_REAL sxy;
 
   CCTK_REAL    txx,txy,txz,tyy,tyz,tzz;
@@ -174,11 +174,11 @@ void ADMAnalysis_CartToSphere(const int *lsh,
      tyy = cart_yy[i];
      tyz = cart_yz[i];
      tzz = cart_zz[i];
-     r_squared  = r[i];
+     rvalue  = r[i];
      sxy = sqrt( SQR(x[i]) + SQR(y[i]));
        
   /* be careful with r=0 and xy plane */
-     if (r_squared==0.0) 
+     if (rvalue==0.0) 
      {
        cost = 1.0;
        sint = 0.0; 
@@ -194,8 +194,8 @@ void ADMAnalysis_CartToSphere(const int *lsh,
      } 
      else 
      {
-       cost = z[i]/r_squared;
-       sint = sxy/r_squared;
+       cost = z[i]/rvalue;
+       sint = sxy/rvalue;
        sinp = y[i]/sxy;
        cosp = x[i]/sxy;
      }