From 68c9156c706f0839e4c8f453e7e0bd75ce60e58d Mon Sep 17 00:00:00 2001
From: ryoji <ryoji@b6f3ac56-194f-0410-8878-cdf6079d7f1b>
Date: Mon, 14 Feb 2000 15:08:59 +0000
Subject: 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
---
 src/IDAxiOddBrillBH.F | 4 ++++
 1 file changed, 4 insertions(+)

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)
-- 
cgit v1.2.3