Lines Matching refs:Gy
90 integer Gx(2),Gy(2),Gz(2)
111 > BA_push_get(mt_dbl, nfft3d,'Gy',Gy(2),Gy(1))
121 call D3dB_t_Copy(1,dbl_mb(G(2)),dbl_mb(Gy(1)))
124 call Pack_t_pack(0,dbl_mb(Gy(1)))
151 call Pack_tt_dot(0,dbl_mb(Gy(1)),dbl_mb(xtmp(1)),fion(2,ii))
162 ok = ok.and.BA_pop_stack(Gy(2))
199 integer Gx(2),Gy(2),Gz(2)
220 > BA_push_get(mt_dbl, nfft3d,'Gy',Gy(2),Gy(1))
230 call D3dB_t_Copy(1,dbl_mb(G(2)),dbl_mb(Gy(1)))
233 call Pack_t_pack(0,dbl_mb(Gy(1)))
255 call Pack_tt_dot(0,dbl_mb(Gy(1)),dbl_mb(xtmp(1)),fion(2,ii))
263 ok = ok.and.BA_pop_stack(Gy(2))