Lines Matching refs:ad2
25 integer i,j,a,b,bv,ad1,ad2,ad3,ad4,offt2,icnt,nvp1,
68 ad2=(j-1)*nvir+b
69 scrb(ad2)=scra(ad1)
85 ad2=(j-1)*nvir
86 if (ad2+1.ge.jlo.and.ad2+1.le.jhi)then
87 call ga_get(g_nz2,ad2+1,ad2+nvir,ad1+1,ad1+nvir,
96 call ga_put(g_nz2,ad1+1,ad1+nvir,ad2+1,ad2+nvir,
114 ad2=(j-1)*nvir
115 if (ad2+1.ge.jlo.and.ad2+1.le.jhi)then
116 call ga_get(g_nhz2,ad2+1,ad2+nvir,ad1+1,ad1+nvir,
118 call ga_get(g_nhz2,ad1+1,ad1+nvir,ad2+1,ad2+nvir,
127 call ga_put(g_nhz2,ad2+1,ad2+nvir,ad1+1,ad1+nvir,
145 ad2=(j-1)*nvir+b
146 scra(ad1)=scrb(ad2)