diff options
| author | ryoji <ryoji@535fb057-194f-0410-b5a5-c63992f15602> | 2000-01-12 17:02:25 +0000 |
|---|---|---|
| committer | ryoji <ryoji@535fb057-194f-0410-b5a5-c63992f15602> | 2000-01-12 17:02:25 +0000 |
| commit | 775cc13660c8e3dc863241cc91193e8453c0c261 (patch) | |
| tree | 1d8a6b397502e8159a0bfa0c99a8eeab7431a673 | |
| parent | db9092c819ce052db595a589074723b081fbb607 (diff) | |
fix typo
Still trouble in alpha.
git-svn-id: http://svn.einsteintoolkit.org/cactus/EinsteinInitialData/RotatingDBHIVP/trunk@6 535fb057-194f-0410-b5a5-c63992f15602
| -rw-r--r-- | src/RotatingDBHIVP.F | 9 |
1 files changed, 3 insertions, 6 deletions
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 |