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