Lines Matching refs:psic
184 USE wavefunctions, ONLY : psic, evc
208 psic(:) = ( 0.D0, 0.D0 )
216 psic(dffts%nl(1:npw)) = CMPLX(0d0, kplusg(1:npw),kind=DP)* &
220 psic(dffts%nlm(1:npw)) = CMPLX(0d0,-kplusg(1:npw),kind=DP) * &
226 psic(dffts%nl(1:npw)) = CMPLX(0d0, kplusg(1:npw),kind=DP)* &
229 psic(dffts%nlm(1:npw)) = CMPLX(0d0,-kplusg(1:npw),kind=DP) * &
236 CALL invfft ('Wave', psic, dffts)
238 gradpsi(:,ipol) = psic
246 psic(:) = ( 0.D0, 0.D0 )
249 psic(dffts%nl(igk_k(1:npw,ik))) = CMPLX(0d0, kplusg(1:npw),kind=DP)* &
254 CALL invfft ('Wave', psic, dffts)
256 gradpsi(:,ipol) = psic