Commit b1abe4d7 authored by Matthias Redies's avatar Matthias Redies

drop uses bracket

parent d7d240ff
......@@ -258,7 +258,7 @@ CONTAINS
DO ikpt = 1, kpts%nkptf
IF ((kpts%bkp(ikpt) == ikpt0) .AND. (ikpt0 /= ikpt)) THEN
iop = kpts%bksym(ikpt)
CALL waveftrafo_genwavf(cmt(:,:,:), zmat(ikpt0), ikpt0,iop, atoms,&
CALL waveftrafo_genwavf(cmt, zmat(ikpt0), ikpt0,iop, atoms,&
mpdata, hybinp, kpts, sym, jsp, input, &
hybdat%nbands(ikpt0), lapw(ikpt0), lapw(ikpt),cmthlp, zhlp)
......
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