Searched defs:sonfath (Results 1 – 1 of 1) sorted by relevance
| /phasta/phSolver/common/ |
| H A D | sonfath.f | 1 subroutine sonfath (ncorp, vnumnpl, ifath, nsons, tfath, subroutine
9 integer inform,n1m,n2m,n3m,numpe,numpe1,numnp,maxnode, tfath,
10 & counter,nc8,nc4,node,ifil,itmp
11 integer gfath(0:numnp),ifath(numpe,maxnode),ncorp(numpe,maxnode),
12 & nsons(tfath),dummy(numnp),iper(numnp), vnumnpl(numpe)
13 integer, allocatable :: imap(:),invmap(:)
38 183 write(*,*) 'geom.kmap not read properly...assuming inform=5'
40 184 continue
|