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
77 elseif (n .eq. 17 ) then
79 elseif (n .eq. 16 ) then
81 elseif (n .eq. 10 ) then
83 elseif (n .eq. nflow*nsd ) then !surface tension + qres
86 call error ('commuMax','n ',n)
190 call MPI_IRECV(rtemp(1,idl), lfront*n, MPI_DOUBLE_PRECISION,
239 do idof = 1,n