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