- updating of "bec" parallelized with OpenMP

git-svn-id: http://qeforge.qe-forge.org/svn/q-e/trunk/espresso@9265 c92efa57-630b-4861-b058-cf58834340f0

CPV/src/ortho_base.f90

@@ -1260,6 +1260,7 @@ END SUBROUTINE diagonalize_parallel
                   !
                   ! here nr and ir are still valid, since they are the same for all procs in the same row
                   !
+!$omp parallel do default(none) private(ibgrp_i,inl) shared(nr,ibgrp_g2l,istart,ir,nkbus,bec_bgrp,wtemp)
                   DO i = 1, nr
                      ibgrp_i = ibgrp_g2l( i + istart + ir - 2 )
                      IF( ibgrp_i > 0 ) THEN
@@ -1268,6 +1269,7 @@ END SUBROUTINE diagonalize_parallel
                         END DO
                      END IF
                   END DO
+!$omp end parallel do
                   !
                END IF