Commit 7471d752 authored by Gregor Michalicek's avatar Gregor Michalicek

Corrected a wrong array size in brzone2.f90

parent cdae93dc
......@@ -347,7 +347,7 @@ SUBROUTINE brzone2(rcmt,nsym,idrot,mface,nbsz,nv48,&
! Corners might be present multiple times (for different triples of planes).
! Remove duplicates. Collect planes intersecting at the respective point.
maxNumPlanes = MAX(nPlanes-nOuterPlanes,3*nCorners) ! Just a save guess for the array dimension in the next line
ALLOCATE(cornerPlaneList(maxNumPlanes,nCorners))
ALLOCATE(cornerPlaneList(maxNumPlanes,nCorners+1)) ! The +1 is because of the origin that is added later.
cornerPlaneList = 0
numCornerPlanes = 0
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment