diff options
| author | ryoji <ryoji@b6f3ac56-194f-0410-8878-cdf6079d7f1b> | 2000-02-14 15:08:59 +0000 |
|---|---|---|
| committer | ryoji <ryoji@b6f3ac56-194f-0410-8878-cdf6079d7f1b> | 2000-02-14 15:08:59 +0000 |
| commit | 68c9156c706f0839e4c8f453e7e0bd75ce60e58d (patch) | |
| tree | d583081815b3189dcbf996b98e43be1b4fbc723a | |
| parent | 2c1702b4efa67fdabf2030cda80d34b08f623f46 (diff) | |
now it passes testsuite on t3e.
Thanks thomas.
git-svn-id: http://svn.einsteintoolkit.org/cactus/EinsteinInitialData/IDAxiOddBrillBH/trunk@12 b6f3ac56-194f-0410-8878-cdf6079d7f1b
| -rw-r--r-- | src/IDAxiOddBrillBH.F | 4 |
1 files changed, 4 insertions, 0 deletions
diff --git a/src/IDAxiOddBrillBH.F b/src/IDAxiOddBrillBH.F index 4b5bea0..4acda17 100644 --- a/src/IDAxiOddBrillBH.F +++ b/src/IDAxiOddBrillBH.F @@ -61,11 +61,15 @@ c Perhaps this and others should go into cctk.h real*8,parameter :: rbh_tol = 1.0d-7,rbh_eps = 1.0d-10 integer,parameter :: itmax = 50 real*8 pi,zero,one,two + integer :: ne, nq integer :: nx,ny,nz integer :: i,j,k,it,ier,nquads,ntries integer :: npoints,handle,ierror pi = 4.0d0*atan(1.0d0) +c DON'T use integer*4 + ne = neta + nq = ntheta c Set up the grid spacings nx = cctk_lsh(1) |