Lines Matching refs:ad2
19 integer :: g_jlo,g_jhi,g_ilo,g_ihi,ad1,ad2
66 ad2=(ii-1)*nocc+jj
67 if (ad2.ge.g_ilo.and.ad2.le.g_ihi)then
69 call ga_get(g_x,1,nbf*nbf,ad2,ad2,bufa(1,tid),nbf*nbf)
93 call ga_put(g_x,1,nact*nact,ad2,ad2,bufb(1,tid),nact*nact)
94 call ga_get(g_c,1,nact*nbf,ad2,ad2,bufa(1,tid),nact*nbf)
99 call ga_put(g_c,1,nact*nact,ad2,ad2,bufb(1,tid),nact*nact)
130 integer :: g_jlo,g_jhi,g_ilo,g_ihi,ad1,ad2
140 ad2=(ii-1)*nocc+jj
141 if (ad2.ge.g_ilo.and.ad2.le.g_ihi)then
142 call ga_get(g_x,1,nbf*nbf,ad2,ad2,scra,nbf*nbf)
162 call ga_put(g_x,1,nact*nact,ad2,ad2,scrb,nact*nact)
163 call ga_get(g_c,1,nact*nbf,ad2,ad2,scra,nact*nbf)
166 call ga_put(g_c,1,nact*nact,ad2,ad2,scrb,nact*nact)