Searched refs:a_mtx (Results 1 – 1 of 1) sorted by relevance
72 subroutine mtx_mtx(a_colm,a_rowp,a_mtx, argument83 real(kind=8),intent(in) :: a_mtx(a_colm(m+1)-1) local98 rtemp = a_mtx(k)