Searched defs:genadj (Results 1 – 1 of 1) sorted by relevance
1 subroutine genadj (colm, rowp, icnt ) subroutine7 integer rowp(nshg*nnz), colm(nshg+1)8 integer adjcnt(nshg), row_fill_list(nshg,15*nnz), mloc(1)11 integer tmprdim(1), nnonzero12 real*8, allocatable, dimension(:) :: tmpr