Lines Matching refs:igp
68 do igp=i,ngp(jspn)
69 t1=abs(vhpc(1,ihp,jspn)-vgpc(1,igp,jspn)) &
70 +abs(vhpc(2,ihp,jspn)-vgpc(2,igp,jspn)) &
71 +abs(vhpc(3,ihp,jspn)-vgpc(3,igp,jspn))
75 wfpw(ihp,ispn,ist)=wfgp(igp,ispn,ist)
78 if (igp.eq.i) i=i+1
97 do igp=1,ngp(jspn)
99 call genylmv(lmaxo,vgpc(:,igp,jspn),ylm)
109 t1=gpc(igp,jspn)*rcmt(irc,is)
116 z1=t0*sfacgp(igp,ias,jspn)
119 z2=z1*wfgp(igp,ispn,ist)