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

fix: acc kernels clause with if inside

This commit is contained in:
Pietro Delugas 2023-07-06 14:13:04 +02:00
parent 1d77f7d808
commit 0eca841e44
1 changed files with 6 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
CPV/src/gram.f90
View File

@ -218,13 +218,15 @@ DEV_ACC kernels present(csc)
csc = 0.0d0
DEV_ACC end kernels
ibgrp_i = ibgrp_g2l( i )
DEV_ACC kernels present(cp_tmp)
IF( ibgrp_i > 0 ) THEN
DEV_ACC kernels present(cp_tmp)
cp_tmp = cp_bgrp( :, ibgrp_i )
ELSE
cp_tmp = 0.0d0
END IF
DEV_ACC end kernels
ELSE
DEV_ACC kernels present(cp_tmp)
cp_tmp = 0.0d0
DEV_ACC end kernels
END IF
!!DEV_ACC host_data use_device(cp_tmp)
!!DEV_ACC update self(cp_tmp)