mirror of https://gitlab.com/QEF/q-e.git
Fix CPU compilation
This commit is contained in:
parent
877b2f9c65
commit
4c4b376460
|
@ -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 )
|
||||||
!
|
!
|
||||||
|
|
|
@ -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 )
|
||||||
|
|
||||||
!
|
!
|
||||||
|
|
Loading…
Reference in New Issue