From 775cc13660c8e3dc863241cc91193e8453c0c261 Mon Sep 17 00:00:00 2001 From: ryoji Date: Wed, 12 Jan 2000 17:02:25 +0000 Subject: fix typo Still trouble in alpha. git-svn-id: http://svn.einsteintoolkit.org/cactus/EinsteinInitialData/RotatingDBHIVP/trunk@6 535fb057-194f-0410-b5a5-c63992f15602 --- src/RotatingDBHIVP.F | 9 +++------ 1 file changed, 3 insertions(+), 6 deletions(-) (limited to 'src') diff --git a/src/RotatingDBHIVP.F b/src/RotatingDBHIVP.F index f018296..405fa1f 100644 --- a/src/RotatingDBHIVP.F +++ b/src/RotatingDBHIVP.F @@ -39,8 +39,6 @@ c Perhaps this and others should go into cctk.h integer CCTK_Equals real*8 deta,dq,dphi - real*8 psi3d,detapsi3d,dqpsi3d,dphipsi3d,detaetapsi3d,detaqpsi3d, - $ detaphipsi3d,dqqpsi3d,dqpsi3d,dqphipsi3d,dphiphipsi3d real*8, allocatable :: ac(:,:,:),ae(:,:,:),aw(:,:,:),an(:,:,:), $ as(:,:,:),aq(:,:,:),ab(:,:,:),rhs(:,:,:),Ksq(:,:,:), $ psisph(:,:,:),psip(:,:,:),psipp(:,:,:),detapsisph(:,:,:), @@ -69,14 +67,13 @@ c Perhaps this and others should go into cctk.h $ t11,t12,t13,t14,t15,t16 real*8 gtil,dngtil,dnngtil,dnnngtil,dnnnngtil,dnnnnngtil, $ dnnnnnngtil,dnnnnnnngtil - real*8 eta,abseta,q,phi,rhsmax,rmax,get3d,adm + real*8 rhsmax,rmax,get3d,adm real*8,parameter :: rbh_tol = 1.0d-7,rbh_eps = 1.0d-10 integer,parameter :: itmax = 30 - real*8 r,pi + real*8 pi integer :: nx,ny,nz - integer i,j,k,ier,nquads,nocts,order,ntries + integer i,j,k,it,ier,nquads,nocts,order,ntries integer npoints,handle,ierror - integer i,j,k,it,ier,nquads,nocts,order conformal_state = CONFORMAL_METRIC -- cgit v1.2.3