Skip to content
GitLab
Projects
Groups
Snippets
/
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in
Toggle navigation
Menu
Open sidebar
fleur
fleur
Commits
0fc70f4e
Commit
0fc70f4e
authored
Aug 03, 2017
by
Gregor Michalicek
Browse files
Fixed a bug in the last commit
parent
4a3f4f96
Changes
1
Hide whitespace changes
Inline
Side-by-side
init/brzone2.f90
View file @
0fc70f4e
...
...
@@ -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
))
...
...
Write
Preview
Supports
Markdown
0%
Try again
or
attach a new file
.
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment