mirror of https://gitlab.com/QEF/q-e.git
no need to have cudafor in sub definition, fix for non GPU compilation
This commit is contained in:
parent
b9c8b05ce2
commit
b410d62f3e
|
@ -140,7 +140,6 @@
|
||||||
#if defined (__CUDA)
|
#if defined (__CUDA)
|
||||||
SUBROUTINE dforce_gpu_x( i, bec, vkb, c, df, da, v, ldv, ispin, f, n, nspin )
|
SUBROUTINE dforce_gpu_x( i, bec, vkb, c, df, da, v, ldv, ispin, f, n, nspin )
|
||||||
USE kinds, ONLY: DP
|
USE kinds, ONLY: DP
|
||||||
USE cudafor
|
|
||||||
IMPLICIT NONE
|
IMPLICIT NONE
|
||||||
INTEGER, INTENT(IN) :: i
|
INTEGER, INTENT(IN) :: i
|
||||||
REAL(DP) :: bec(:,:)
|
REAL(DP) :: bec(:,:)
|
||||||
|
@ -255,7 +254,6 @@
|
||||||
SUBROUTINE rhoofr_cp &
|
SUBROUTINE rhoofr_cp &
|
||||||
( nfi, c_bgrp, c_d, bec, dbec, rhovan, rhor, drhor, rhog, drhog, rhos, enl, denl, ekin, dekin, tstress, ndwwf )
|
( nfi, c_bgrp, c_d, bec, dbec, rhovan, rhor, drhor, rhog, drhog, rhos, enl, denl, ekin, dekin, tstress, ndwwf )
|
||||||
USE kinds, ONLY: DP
|
USE kinds, ONLY: DP
|
||||||
USE cudafor
|
|
||||||
IMPLICIT NONE
|
IMPLICIT NONE
|
||||||
INTEGER nfi
|
INTEGER nfi
|
||||||
COMPLEX(DP) :: c_bgrp( :, : )
|
COMPLEX(DP) :: c_bgrp( :, : )
|
||||||
|
@ -878,7 +876,6 @@
|
||||||
#if defined (__CUDA)
|
#if defined (__CUDA)
|
||||||
SUBROUTINE c_bgrp_expand_gpu_x( c_bgrp )
|
SUBROUTINE c_bgrp_expand_gpu_x( c_bgrp )
|
||||||
USE kinds, ONLY: DP
|
USE kinds, ONLY: DP
|
||||||
USE cudafor
|
|
||||||
IMPLICIT NONE
|
IMPLICIT NONE
|
||||||
COMPLEX(DP), DEVICE :: c_bgrp(:,:)
|
COMPLEX(DP), DEVICE :: c_bgrp(:,:)
|
||||||
END SUBROUTINE c_bgrp_expand_gpu_x
|
END SUBROUTINE c_bgrp_expand_gpu_x
|
||||||
|
@ -893,7 +890,6 @@
|
||||||
#if defined (__CUDA)
|
#if defined (__CUDA)
|
||||||
SUBROUTINE c_bgrp_pack_gpu_x( c_bgrp )
|
SUBROUTINE c_bgrp_pack_gpu_x( c_bgrp )
|
||||||
USE kinds, ONLY: DP
|
USE kinds, ONLY: DP
|
||||||
USE cudafor
|
|
||||||
IMPLICIT NONE
|
IMPLICIT NONE
|
||||||
COMPLEX(DP), DEVICE :: c_bgrp(:,:)
|
COMPLEX(DP), DEVICE :: c_bgrp(:,:)
|
||||||
END SUBROUTINE c_bgrp_pack_gpu_x
|
END SUBROUTINE c_bgrp_pack_gpu_x
|
||||||
|
@ -1124,7 +1120,6 @@
|
||||||
#if defined (__CUDA)
|
#if defined (__CUDA)
|
||||||
SUBROUTINE nlsm1us_gpu_x ( n, beigr, c, becp )
|
SUBROUTINE nlsm1us_gpu_x ( n, beigr, c, becp )
|
||||||
USE kinds, ONLY : DP
|
USE kinds, ONLY : DP
|
||||||
USE cudafor
|
|
||||||
IMPLICIT NONE
|
IMPLICIT NONE
|
||||||
INTEGER, INTENT(IN) :: n
|
INTEGER, INTENT(IN) :: n
|
||||||
COMPLEX(DP), DEVICE, INTENT(IN) :: beigr( :, : )
|
COMPLEX(DP), DEVICE, INTENT(IN) :: beigr( :, : )
|
||||||
|
|
Loading…
Reference in New Issue