From f743c89db98fff2b4720e6bbf131aba6f98b5f51 Mon Sep 17 00:00:00 2001 From: Pietro Bonfa Date: Fri, 22 Jan 2021 15:48:39 +0100 Subject: [PATCH] Fix harmless bug discovered by Andrea Dal Corso --- PW/src/force_hub_gpu.f90 | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/PW/src/force_hub_gpu.f90 b/PW/src/force_hub_gpu.f90 index a4d74bc77..b2ed07db5 100644 --- a/PW/src/force_hub_gpu.f90 +++ b/PW/src/force_hub_gpu.f90 @@ -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