Commit e95628fc authored by Nick R. Papior's avatar Nick R. Papior
Browse files

bug: removed end section

parent a033636f
......@@ -169,12 +169,10 @@ contains
do i = 0 , n_s - 1
ph(i) = exp(cmplx(0._dp, -dot_product(k, sc_off(:,i)), dp))
end do
!$OMP end section
!$OMP section
! Convert to orbital space
call rgn_Atom2Orb(r_k(il)%atm,na_u,lasto,ro)
!$OMP end section
!$OMP end sections
!$OMP 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