Fixed a bug in the last commit

0fc70f4e · Gregor Michalicek · 4a3f4f96 · 0fc70f4e
Commit 0fc70f4e authored Aug 03, 2017 by Gregor Michalicek
Hide whitespace changes
Inline Side-by-side

Showing with 2 additions and 1 deletion

init/brzone2.f90 init/brzone2.f90 +2 -1

No files found.
--- a/init/brzone2.f90
+++ b/init/brzone2.f90
@@ -142,7 +142,8 @@ SUBROUTINE brzone2(rcmt,nsym,idrot,mface,nbsz,nv48,&
   ! loops over all neighboring lattice vectors. The size of the 
   ! neigborhood is defined by nbszLocal.

-   planesDim = nbszLocal*nbszLocal*nbszLocal + nsym
+   planesDim = 2*nbszLocal+1
+   planesDim = planesDim*planesDim*planesDim + nsym
   ALLOCATE(dvec(3,planesDim), ddist(planesDim))
   ALLOCATE(nPlaneCorners(planesDim),isIBZPlane(planesDim))