Lines Matching refs:n3m
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
95 do k = j, j+n3m-1
96 node = (i-1)*n2m*n3m + k