From 19461e5a39e5248a3429518e5f9c006d426263ed Mon Sep 17 00:00:00 2001 From: ccavazzoni Date: Tue, 7 Aug 2012 11:15:09 +0000 Subject: [PATCH] - 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 | 2 ++ 1 file changed, 2 insertions(+) diff --git a/CPV/src/ortho_base.f90 b/CPV/src/ortho_base.f90 index 09d41e23f..129cb4bda 100644 --- a/CPV/src/ortho_base.f90 +++ b/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