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

no need to have cudafor in sub definition, fix for non GPU compilation

This commit is contained in:
carcava 2020-03-11 09:16:49 +01:00
parent b9c8b05ce2
commit b410d62f3e
1 changed files with 0 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
CPV/src/cp_interfaces.f90
View File

@ -140,7 +140,6 @@
#if defined (__CUDA)
SUBROUTINE dforce_gpu_x( i, bec, vkb, c, df, da, v, ldv, ispin, f, n, nspin )
USE kinds, ONLY: DP
USE cudafor
IMPLICIT NONE
INTEGER, INTENT(IN) :: i
REAL(DP) :: bec(:,:)
@ -255,7 +254,6 @@
SUBROUTINE rhoofr_cp &
( nfi, c_bgrp, c_d, bec, dbec, rhovan, rhor, drhor, rhog, drhog, rhos, enl, denl, ekin, dekin, tstress, ndwwf )
USE kinds, ONLY: DP
USE cudafor
IMPLICIT NONE
INTEGER nfi
COMPLEX(DP) :: c_bgrp( :, : )
@ -878,7 +876,6 @@
#if defined (__CUDA)
SUBROUTINE c_bgrp_expand_gpu_x( c_bgrp )
USE kinds, ONLY: DP
USE cudafor
IMPLICIT NONE
COMPLEX(DP), DEVICE :: c_bgrp(:,:)
END SUBROUTINE c_bgrp_expand_gpu_x
@ -893,7 +890,6 @@
#if defined (__CUDA)
SUBROUTINE c_bgrp_pack_gpu_x( c_bgrp )
USE kinds, ONLY: DP
USE cudafor
IMPLICIT NONE
COMPLEX(DP), DEVICE :: c_bgrp(:,:)
END SUBROUTINE c_bgrp_pack_gpu_x
@ -1124,7 +1120,6 @@
#if defined (__CUDA)
SUBROUTINE nlsm1us_gpu_x ( n, beigr, c, becp )
USE kinds, ONLY : DP
USE cudafor
IMPLICIT NONE
INTEGER, INTENT(IN) :: n
COMPLEX(DP), DEVICE, INTENT(IN) :: beigr( :, : )