diff options
Diffstat (limited to 'src/RotatingDBHIVP.F')
| -rw-r--r-- | src/RotatingDBHIVP.F | 6 |
1 files changed, 6 insertions, 0 deletions
diff --git a/src/RotatingDBHIVP.F b/src/RotatingDBHIVP.F index e1dfc2b..b65fffc 100644 --- a/src/RotatingDBHIVP.F +++ b/src/RotatingDBHIVP.F @@ -69,6 +69,7 @@ c Need include file from Einstein real*8,parameter :: rbh_tol = 1.0d-7,rbh_eps = 1.0d-10 integer,parameter :: itmax = 30 real*8 pi + integer :: ne,nq,np integer :: nx,ny,nz integer i,j,k,it,ier,nquads,nocts,order,ntries integer npoints,handle,ierror @@ -77,6 +78,11 @@ c Need include file from Einstein pi = 4.0d0*atan(1.0d0) +c DON'T use integer*4 + ne = neta + nq = ntheta + np = nphi + c Set up the grid spacings nx = cctk_lsh(1) ny = cctk_lsh(2) |