Lines Matching refs:iphi
31 integer iplo, iphi, jplo, jphi, k_m ! local patch of m
49 call ga_distribution(g_m, ga_nodeid(), iplo, iphi, jplo, jphi)
52 if (iplo.gt.0 .and. iplo.le.iphi) then
53 numi = min(ihi,iphi) - max(ilo,iplo) + 1
56 call ga_access(g_m,iplo,iphi,jplo,jphi,k_m,ld)
70 call ga_release(g_m,iplo,iphi,jplo,jphi)
95 integer iplo, iphi, jplo, jphi, k_m ! local patch of m
103 call ga_distribution(g_m, ga_nodeid(), iplo, iphi, jplo, jphi)
106 if (iplo.gt.0 .and. iplo.le.iphi) then
107 numi = min(ihi,iphi) - max(ilo,iplo) + 1
110 call ga_access(g_m,iplo,iphi,jplo,jphi,k_m,ld)
116 call ga_release(g_m,iplo,iphi,jplo,jphi)