scnc
/
quantum-espresso
mirror of https://gitlab.com/QEF/q-e.git
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

- fix for half bug, array sections 

git-svn-id: http://qeforge.qe-forge.org/svn/q-e/trunk/espresso@4818 c92efa57-630b-4861-b058-cf58834340f0
This commit is contained in:
cavazzon 2008-04-18 11:03:20 +00:00
parent 04448957a4
commit f1983023f0
2 changed files with 11 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
PW/cegterg.f90
View File

@ -1315,7 +1315,11 @@ CONTAINS
CALL ZGEMM( 'C', 'N', nr, nc, kdim, ONE, v( 1, 1, ir ), & CALL ZGEMM( 'C', 'N', nr, nc, kdim, ONE, v( 1, 1, ir ), &
kdmx, w(1,1,ii), kdmx, ZERO, vtmp, nx ) kdmx, w(1,1,ii), kdmx, ZERO, vtmp, nx )
! !
CALL mp_root_sum( vtmp(:,1:nc), dm(:,icc:icc+nc-1), root, intra_pool_comm ) IF( (desc( lambda_node_ ) > 0) .AND. (ipr-1 == desc( la_myr_ )) .AND. (ipc-1 == desc( la_myc_ )) ) THEN
CALL mp_root_sum( vtmp(:,1:nc), dm(:,icc:icc+nc-1), root, intra_pool_comm )
ELSE
CALL mp_root_sum( vtmp(:,1:nc), dm, root, intra_pool_comm )
END IF
END DO END DO
! !

7
PW/regterg.f90
View File

@ -1290,7 +1290,12 @@ CONTAINS
IF ( gstart == 2 ) & IF ( gstart == 2 ) &
CALL DGER( nr, nc, -1.D0, v( 1, ir ), npwx2, w(1,ii), npwx2, vtmp, nx ) CALL DGER( nr, nc, -1.D0, v( 1, ir ), npwx2, w(1,ii), npwx2, vtmp, nx )
CALL mp_root_sum( vtmp(:,1:nc), dm(:,icc:icc+nc-1), root, intra_pool_comm ) IF( (desc( lambda_node_ ) > 0) .AND. (ipr-1 == desc( la_myr_ )) .AND. (ipc-1 == desc( la_myc_ )) ) THEN
CALL mp_root_sum( vtmp(:,1:nc), dm(:,icc:icc+nc-1), root, intra_pool_comm )
ELSE
CALL mp_root_sum( vtmp(:,1:nc), dm, root, intra_pool_comm )
END IF
END DO END DO
! !