Lines Matching refs:k_work
22 integer k_work,l_work
47 if (.not.ma_push_get(mt_dbl,nva*nvb,'work',l_work,k_work))
58 call ga_lmdotb(dbl_mb(k_work),dbl_mb(aind),dbl_mb(bind),
63 call dfill(nva*nvb, 0.0d0, dbl_mb(k_work), 1)
68 call ga_dgop(1, dbl_mb(k_work), nva*nvb, '+')
73 c(i,j) = dbl_mb(k_work+ij-1)
105 integer k_work,l_work
132 if (.not.ma_push_get(mt_dcpl,nva*nvb,'work',l_work,k_work))
143 call ga_lmzdotb(dcpl_mb(k_work),dcpl_mb(aind),dcpl_mb(bind),
148 call dfill(nva*nvb, 0.0d0, dcpl_mb(k_work), 1)
153 call ga_zgop(1, dcpl_mb(k_work), nva*nvb, '+')
158 c(i,j) = dcpl_mb(k_work+ij-1)