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

Clean up

This commit is contained in:
Ivan Carnimeo 2022-06-13 18:40:31 +02:00
parent d5a343bf1c
commit 6d6387950c
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
KS_Solvers/Davidson/cegterg.f90
View File

@ -206,7 +206,7 @@ SUBROUTINE cegterg( h_psi, s_psi, uspp, g_psi, &
if (n_start .le. n_end) &
CALL ZGEMM( 'C','N', nbase, my_n, kdim, ONE, psi, kdmx, hpsi(1,n_start), kdmx, ZERO, hc(1,n_start), nvecx )
!
if ((n_start .le. n_end) .and. (mp_size(intra_bgrp_comm) > 1 )) &
if (n_start .le. n_end) &
#if defined(__CUDA)
CALL mp_sum( hc, 1, nbase, n_start, n_end , intra_bgrp_comm )
#else
@ -228,7 +228,7 @@ SUBROUTINE cegterg( h_psi, s_psi, uspp, g_psi, &
!
END IF
!
if ((n_start .le. n_end) .and. (mp_size(intra_bgrp_comm) > 1 )) &
if (n_start .le. n_end) &
#if defined(__CUDA)
CALL mp_sum( sc, 1, nbase, n_start, n_end , intra_bgrp_comm )
#else
@ -476,7 +476,7 @@ SUBROUTINE cegterg( h_psi, s_psi, uspp, g_psi, &
CALL ZGEMM( 'C','N', notcnv, my_n, kdim, ONE, hpsi(1,nb1), kdmx, psi(1,n_start), kdmx, &
ZERO, hc(nb1,n_start), nvecx )
!
if ((n_start .le. n_end) .and. (mp_size(intra_bgrp_comm) > 1 )) &
if (n_start .le. n_end) &
#if defined(__CUDA)
CALL mp_sum( hc, nb1, nbase+notcnv, n_start, n_end , intra_bgrp_comm )
#else
@ -498,7 +498,7 @@ SUBROUTINE cegterg( h_psi, s_psi, uspp, g_psi, &
!
END IF
!
if ( (n_start .le. n_end) .and. (mp_size(intra_bgrp_comm) > 1 ) ) &
if (n_start .le. n_end) &
#if defined(__CUDA)
CALL mp_sum( sc, nb1, nbase+notcnv, n_start, n_end , intra_bgrp_comm )
#else