Home
last modified time | relevance | path

Searched refs:adjcnt (Results 1 – 2 of 2) sorted by relevance

/phasta/phSolver/common/
H A Dgenadj.f8 integer adjcnt(nshg), row_fill_list(nshg,15*nnz), mloc(1) local
14 adjcnt=0
32 & mien(iblk)%p, adjcnt )
36 call sumgatInt ( adjcnt, nshg, nnonzero)
46 colm(i+1)=colm(i)+adjcnt(i)
53 tmprdim=maxval(adjcnt)
56 ncol=adjcnt(i)
H A Dasadj.f2 & iens, adjcnt ) argument
12 & adjcnt(nshg), ndlist(nshl) local
28 jlngth=adjcnt(jnd) ! current length of j's list
51 adjcnt(jnd)=jlngth ! update the counter