Lines Matching refs:n
1 subroutine commu (global, ilwork, n, code) argument
37 dimension global(nshg,n),
38 & rtemp(maxfront*n,maxtask),
57 if (n .eq. 1) then ! like a scalar
59 elseif (n .eq. nsd) then ! like the normal vectors
61 elseif (n .eq. ndof) then ! res, y, ac, krylov vectors....
63 elseif (n .eq. nflow*nflow) then ! bdiag
65 elseif (n .eq. (nflow-1)*nsd) then ! qres
67 elseif (n .eq. nflow) then
69 elseif (n .eq. 24 ) then
71 elseif (n .eq. 9) then
73 elseif (n .eq. 11 ) then
75 elseif (n .eq. 7 ) then
77 elseif (n .eq. 33 ) then
79 elseif (n .eq. 22 ) then
81 elseif (n .eq. 16 ) then
83 elseif (n .eq. 10 ) then
85 elseif (n .eq. nflow*nsd ) then !surface tension + qres
88 call error ('commu ','n ',n)
212 call MPI_IRECV(rtemp(1,idl), lfront*n, MPI_DOUBLE_PRECISION,
282 do idof = 1,n