changed rab(mesh) into rab(ndm) in variable declaration

(mesh is not yet known)
G.F.


git-svn-id: http://qeforge.qe-forge.org/svn/q-e/trunk/espresso@2272 c92efa57-630b-4861-b058-cf58834340f0
This commit is contained in:
fratesi 2005-10-07 07:00:25 +00:00
parent d5a72cf887
commit b2078cd14a
1 changed files with 1 additions and 1 deletions

View File

@ -15,7 +15,7 @@
implicit none
integer:: ibound, ndm, mesh, i
real(DP) :: zmesh, xmin, xmax, x, dx, rmax, &
r(ndm), r2(ndm), rab(mesh), sqr(ndm)
r(ndm), r2(ndm), rab(ndm), sqr(ndm)
!
xmax=log(rmax*zmesh)
mesh=(xmax-xmin)/dx+1