Commit c9387d8c authored by Matteo Gerosa's avatar Matteo Gerosa
Browse files

Bug fix: corrected mispelled variable.

parent 352bd072
...@@ -1223,7 +1223,7 @@ SUBROUTINE do_randomize_q (amat, mglobalstart, mglobalend, iq) ...@@ -1223,7 +1223,7 @@ SUBROUTINE do_randomize_q (amat, mglobalstart, mglobalend, iq)
!$OMP PARALLEL private(ig,rr,arg) !$OMP PARALLEL private(ig,rr,arg)
!$OMP DO !$OMP DO
DO ig=1,ngq(iq) DO ig=1,ngq(iq)
qg(:) = q_grid%q_cart(:,iq) + g(:,igq_q(ig,iq)) qg(:) = q_grid%p_cart(:,iq) + g(:,igq_q(ig,iq))
qgnorm2 = SUM( qg(:)**2 ) * tpiba2 qgnorm2 = SUM( qg(:)**2 ) * tpiba2
IF ( qgnorm2 < eps8 ) CYCLE IF ( qgnorm2 < eps8 ) CYCLE
rr = random_num_debug(1,ig_l2g(igq_q(ig,iq))) rr = random_num_debug(1,ig_l2g(igq_q(ig,iq)))
......
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