fixes

bellenlau · bellenlau · commit a37c0ecdb3ed · 2022-02-11T13:41:53.000+01:00
diff --git a/PHonon/PH/dvqpsi_us.f90 b/PHonon/PH/dvqpsi_us.f90
@@ -123,7 +123,7 @@ subroutine dvqpsi_us (ik, uact, addnlcc, becp1, alphap)
   npwq= ngk(ikq)
   nnr = dffts%nnr
   ! 
-  !$acc data create(aux1(1:nnr),aux2(1:nnr)) copyout(dvpsi) copyin(vlocq) present( igk_k ) deviceptr(evc_d, nl_d)
+  !$acc data create(aux1(1:nnr),aux2(1:nnr)) copyout(dvpsi) copyin(vlocq) present( igk_k ) deviceptr(evc_d, nl_d, nlp_d)
   !$acc kernels present(dvpsi,aux1)
   dvpsi(:,:) = (0.d0, 0.d0)
   aux1(:) = (0.d0, 0.d0)

Original file line number	Diff line number	Diff line change
`@@ -123,7 +123,7 @@ subroutine dvqpsi_us (ik, uact, addnlcc, becp1, alphap)`
`123`	`123`	`npwq= ngk(ikq)`
`124`	`124`	`nnr = dffts%nnr`
`125`	`125`	`!`
`126`		`- !$acc data create(aux1(1:nnr),aux2(1:nnr)) copyout(dvpsi) copyin(vlocq) present( igk_k ) deviceptr(evc_d, nl_d)`
	`126`	`+ !$acc data create(aux1(1:nnr),aux2(1:nnr)) copyout(dvpsi) copyin(vlocq) present( igk_k ) deviceptr(evc_d, nl_d, nlp_d)`
`127`	`127`	`!$acc kernels present(dvpsi,aux1)`
`128`	`128`	`dvpsi(:,:) = (0.d0, 0.d0)`
`129`	`129`	`aux1(:) = (0.d0, 0.d0)`