From 9457e9fb5360f1ab2cc36dc991606302cf87b827 Mon Sep 17 00:00:00 2001 From: allen Date: Sat, 5 Jan 2002 17:42:03 +0000 Subject: Remove compiler warning on origin git-svn-id: http://svn.einsteintoolkit.org/cactus/EinsteinInitialData/IDAnalyticBH/trunk@94 6a3ddf76-46e1-4315-99d9-bc56cac1ef84 --- src/Kerr.c | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/src/Kerr.c b/src/Kerr.c index 894b000..f877ef8 100644 --- a/src/Kerr.c +++ b/src/Kerr.c @@ -32,12 +32,12 @@ void KerrID(CCTK_ARGUMENTS) int i, do_lapse=0, do_shift=0; int npoints; CCTK_REAL rK,R,cth,cth_2,sth,sth_2,r_2,R_2,R_3,rho,rho_2,xx,yy,zz; - CCTK_REAL Sigma,Delta,sqrt_Delta,p2,lapse,beta_phi,shift_phi; + CCTK_REAL Sigma,sqrt_Delta,p2,lapse,beta_phi,shift_phi; CCTK_REAL tmp, inv_psi; CCTK_REAL Phi4,fourPhi3,Phi,Chi2; CCTK_REAL Phi_R,Phi_RR,Phi_Rq,Phi_q,Phi_qq; CCTK_REAL Phi4_R,Phi4_RR,Phi4_Rq,Phi4_q,Phi4_qq; - /* CCTK_REAL Krj,gRR,gqq,gjj; */ + /* CCTK_REAL Delta,Krj,gRR,gqq,gjj; */ CCTK_REAL KRj,Kqj; CCTK_REAL dRdx,dRdy,dRdz,dqdx,dqdy,dqdz,djdx,djdy; @@ -80,7 +80,7 @@ void KerrID(CCTK_ARGUMENTS) rK=R+m+m2_a2/4/R; r_2=rK*rK; sqrt_Delta=R-m2_a2/4/R; - Delta=sqrt_Delta*sqrt_Delta; + /*Delta=sqrt_Delta*sqrt_Delta;*/ Sigma=r_2+a_2*cth_2; beta_phi=-2*m*rK*a*sth_2/Sigma; p2=a_2+r_2-a*beta_phi; -- cgit v1.2.3