Commit cc166cfc authored by Daniel Wortmann's avatar Daniel Wortmann

Small bugfix in non-OPEMMP version

parent 4ca5bceb
......@@ -117,7 +117,7 @@ CONTAINS
!$ IF (.false.) THEN
vtl(lh,n) = vtl(lh,n) + cp*sbf(l)*sm
!$ ENDIF
vtl_loc(lh,n) = vtl_loc(lh,n) + cp*sbf(l)*sm
!$ vtl_loc(lh,n) = vtl_loc(lh,n) + cp*sbf(l)*sm
ENDDO
nat = nat + atoms%neq(n)
ENDDO
......
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