Lines Matching refs:igp
279 do igp=1,ngp
280 wfir1(igfft(igpig(igp)))=evecfv(igp,jst)
288 do igp=1,ngp
289 wfgp1(igp)=wfir2(igfft(igpig(igp)))
295 do igp=1,ngp
296 wfgp3(igp)=wfir2(igfft(igpig(igp)))
305 do igp=1,ngp
306 t1=a1*vgpc(1,igp)+a2*vgpc(2,igp)+a3*vgpc(3,igp)
307 wfir1(igfft(igpig(igp)))=t1*evecfv(igp,jst)
312 do igp=1,ngp
313 z1=wfir1(igfft(igpig(igp)))
314 wfgp1(igp)=wfgp1(igp)+z1
315 if (spinpol) wfgp2(igp)=wfgp2(igp)+z1
346 do igp=1,ngp
347 z1=evecfv(igp,ist)
348 gwfgp(igp,ist)=vgpc(k,igp)*cmplx(-aimag(z1),dble(z1),8)
355 do igp=1,ngp
356 wfir1(igfft(igpig(igp)))=gwfgp(igp,jst)
361 do igp=1,ngp
362 wfgp1(igp)=wfir1(igfft(igpig(igp)))