Lines Matching refs:igp
122 do igp=1,ngp(jspn)
123 dwfir(igp,ispn,j)=dwfir(igp,ispn,j)+z1*evecfv(igp,ist,jspn)
127 do igp=1,ngp(jspn)
128 ifg=igfft(igpqig(igp,jspn))
129 dwfir(ifg,ispn,j)=dwfir(ifg,ispn,j)+z1*evecfv(igp,ist,jspn)
136 do igp=1,ngpq(jspn)
137 dwfir(igp,ispn,j)=dwfir(igp,ispn,j)+z1*devecfv(igp,ist,jspn)
141 do igp=1,ngpq(jspn)
142 ifg=igfft(igpqig(igp,jspn))
143 dwfir(ifg,ispn,j)=dwfir(ifg,ispn,j)+z1*devecfv(igp,ist,jspn)
151 do igp=1,ngpq(1)
152 dwfir(igp,1,j)=devecfv(igp,k,1)
155 do igp=1,ngpq(1)
156 ifg=igfft(igpqig(igp,1))
157 dwfir(ifg,1,j)=t1*devecfv(igp,k,1)