mirror of https://gitlab.com/QEF/q-e.git
Merge branch 'fix_gram_acc' into 'develop'
fix: acc kernels clause with if inside See merge request QEF/q-e!2120
This commit is contained in:
commit
89fc997568
|
@ -218,13 +218,15 @@ DEV_ACC kernels present(csc)
|
||||||
csc = 0.0d0
|
csc = 0.0d0
|
||||||
DEV_ACC end kernels
|
DEV_ACC end kernels
|
||||||
ibgrp_i = ibgrp_g2l( i )
|
ibgrp_i = ibgrp_g2l( i )
|
||||||
DEV_ACC kernels present(cp_tmp)
|
|
||||||
IF( ibgrp_i > 0 ) THEN
|
IF( ibgrp_i > 0 ) THEN
|
||||||
|
DEV_ACC kernels present(cp_tmp)
|
||||||
cp_tmp = cp_bgrp( :, ibgrp_i )
|
cp_tmp = cp_bgrp( :, ibgrp_i )
|
||||||
ELSE
|
|
||||||
cp_tmp = 0.0d0
|
|
||||||
END IF
|
|
||||||
DEV_ACC end kernels
|
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 host_data use_device(cp_tmp)
|
||||||
|
|
||||||
!!DEV_ACC update self(cp_tmp)
|
!!DEV_ACC update self(cp_tmp)
|
||||||
|
|
Loading…
Reference in New Issue