Home
last modified time | relevance | path

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

/phasta/phSolver/AMG/
H A Dramg_coarse.f31 integer,dimension(amg_nshg(level1)) :: amg_F,aLoc local
214 aLoc = 0
246 aLoc(j) = n
257 rtp = amg_la(aLoc(j))/rtp
261 m = aLoc(jj)
264 aLoc(jj) = m
290 aLoc(amg_Fn(k))=0