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

Fix harmless bug discovered by Andrea Dal Corso

This commit is contained in:
Pietro Bonfa 2021-01-22 15:48:39 +01:00
parent c75b94d359
commit f743c89db9
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
PW/src/force_hub_gpu.f90
View File

@ -1496,7 +1496,7 @@ SUBROUTINE calc_doverlap_inv_gpu (alpha, ipol, ik, ijkb0)
! Calculate doverlap_us = < phi_I | dS/d\tau(alpha,ipol) | phi_J >
ALLOCATE (doverlap_us_d(natomwfc,natomwfc))
CALL matrix_element_of_dSdtau_gpu (alpha, ipol, ik, ijkb0, &
natomwfc, wfcatom_d, natomwfc, wfcatom_d, doverlap_us_d)
natomwfc, wfcatom_d, natomwfc, wfcatom_d, doverlap_us_d, 1, natomwfc, 0)
CALL dev_mem_addscal(doverlap_d , doverlap_us_d)
DEALLOCATE (doverlap_us_d)
ENDIF