diff options
| -rw-r--r-- | src/CartToSphere.c | 10 |
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; } |