Searched refs:gfath (Results 1 – 1 of 1) sorted by relevance
| /phasta/phSolver/common/ |
| H A D | sonfath.f | 11 integer gfath(0:numnp),ifath(numpe,maxnode),ncorp(numpe,maxnode), local
48 gfath(:) = 0
67 gfath(j) = counter
75 ifath(j,i) = gfath(imap(ncorp(j,i)))
80 ifath(1,i) = gfath(imap(i))
97 gfath(node) = counter
106 ifath(j,i) = gfath(imap(ncorp(j,i)))
111 ifath(1,i) = gfath(imap(i))
|