Searched refs:n3m (Results 1 – 1 of 1) sorted by relevance
| /phasta/phSolver/common/ |
| H A D | sonfath.f | 9 integer inform,n1m,n2m,n3m,numpe,numpe1,numnp,maxnode, tfath, local
18 read(*,*)n1m,n2m,n3m
50 nc4=n3m*(n2m-1)+1
51 nc8=n3m*n2m*n1m+1-n3m
54 numnp = n1m*n2m*n3m
61 nsons(i) = n3m-nsoncor
65 do i = 1, nc8, n3m
66 do j = i, i+n3m-1
89 nsons(i) = n1m*n3m - (n1m+n3m-1)
93 do j = 1, nc4, n3m
[all …]
|