Commit 42c74c02 authored by Matthias Redies's avatar Matthias Redies

again

parent 21b68633
......@@ -168,7 +168,7 @@ CONTAINS
DO nk = 1, kpts%nkptf
CALL lapw%init(input, noco, kpts, atoms, sym, nk, cell, sym%zrfs)
do n_dim = 1,3
hybdat%pntgptd(n_dim) = MAXVAL([(ABS(lapw%gvec(n_dim, jsp)), i=1, lapw%nv(jsp)), hybdat%pntgptd(n_dim)])
hybdat%pntgptd(n_dim) = MAXVAL([(ABS(lapw%gvec(n_dim,i,jsp)), i=1, lapw%nv(jsp)), hybdat%pntgptd(n_dim)])
end do
END DO
......
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