Commit 21b68633 authored by Matthias Redies's avatar Matthias Redies

test now

parent d151ddff
......@@ -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,i, jsp)), i=1), lapw%nv(jsp), hybdat%pntgptd(n_dim) ])
hybdat%pntgptd(n_dim) = MAXVAL([(ABS(lapw%gvec(n_dim, 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