Commit 3881e261 authored by Gregor Michalicek's avatar Gregor Michalicek

Fixed generation of k point grid with 0 points in one direction

I don't know whether I fixed this in the right code section or
if another code section would have been more appropriate.
parent 9d7dd9cf
......@@ -61,11 +61,11 @@
GOTO 10
ENDIF
ENDIF
ENDIF
ENDIF
IF (nop.GE.8) THEN
n(1) = 2*NINT(n(1)/2.0-0.1)
n(2) = 2*NINT(n(2)/2.0-0.1)
n(3) = 2*NINT(n(3)/2.0-0.1)
n(1) = MAX(2*NINT(n(1)/2.0-0.1),1)
n(2) = MAX(2*NINT(n(2)/2.0-0.1),1)
n(3) = MAX(2*NINT(n(3)/2.0-0.1),1)
ENDIF
WRITE (*,*) n(1),n(2),n(3),n(1)*n(2)*n(3)
ENDIF
......
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