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

Fix CPU compilation

This commit is contained in:
Ivan Carnimeo 2023-10-16 09:19:19 +02:00
parent 877b2f9c65
commit 4c4b376460
2 changed files with 4 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
PW/src/h_psi_gpu.f90
View File

@ -268,7 +268,9 @@ SUBROUTINE h_psi__gpu( lda, n, m, psi_d, hpsi_d )
!!!$acc end host_data !!!$acc end host_data
!!!$acc end data !!!$acc end data
!!! !!!
#if defined(__CUDA)
Call calbec(offload_type, .true., n, vkb, psi_d, becp, m ) Call calbec(offload_type, .true., n, vkb, psi_d, becp, m )
#endif
CALL stop_clock_gpu( 'h_psi:calbec' ) CALL stop_clock_gpu( 'h_psi:calbec' )
CALL add_vuspsi_gpu( lda, n, m, hpsi_d ) CALL add_vuspsi_gpu( lda, n, m, hpsi_d )
! !

2
PW/src/s_1psi_gpu.f90
View File

@ -90,7 +90,9 @@ SUBROUTINE s_1psi_gpu( npwx, n, psi_d, spsi_d )
!!!!$acc end host_data !!!!$acc end host_data
!!!!$acc end data !!!!$acc end data
!!! CALL s_psi_gpu( npwx, n, 1, psi_d, spsi_d ) !!! CALL s_psi_gpu( npwx, n, 1, psi_d, spsi_d )
#if defined(__CUDA)
CAll calbec(offload_type, .true., n, vkb, psi_d, becp ) CAll calbec(offload_type, .true., n, vkb, psi_d, becp )
#endif
CALL s_psi_acc( npwx, n, 1, psi_d, spsi_d ) CALL s_psi_acc( npwx, n, 1, psi_d, spsi_d )
! !