Searched refs:c_mtx (Results 1 – 1 of 1) sorted by relevance
74 & c_colm,c_rowp,c_mtx, argument85 real(kind=8),intent(inout) :: c_mtx(c_colm(m+1)-1) local91 c_mtx = 0101 c_mtx(itemp(q)) = c_mtx(itemp(q)) + rtemp*b_mtx(p)