Searched refs:gcomm (Results 1 – 3 of 3) sorted by relevance
| /phasta/phSolver/AMG/ |
| H A D | ramg_mls.f | 35 integer gcomm local
120 gcomm = MPI_COMM_WORLD
122 call pdnaupd(gcomm,
145 call pdnaupd(gcomm,
159 call pdneupd (gcomm,rvec,'A',selectncv,dr,di,
215 integer gcomm local
300 gcomm = MPI_COMM_WORLD
302 call pdnaupd(gcomm,
325 call pdnaupd(gcomm,
339 call pdneupd (gcomm,rvec,'A',selectncv,dr,di,
|
| H A D | ramg_ggb.f | 21 integer gcomm local
101 gcomm = MPI_COMM_WORLD
103 call pdnaupd(gcomm,
113 call pdnaupd(gcomm,
126 call pdneupd (gcomm,rvec,'A',selectncv,dr,di,
|
| H A D | ramg_tools.f | 107 & u,v,gcomm) argument
115 integer,intent(in) :: gcomm local
138 & ilwork,BC,iBC,iper,gcomm) argument
155 integer,intent(in) :: gcomm local
166 if (gcomm.eq.1) then
180 if (gcomm.eq.1) then
200 & ilwork,BC,iBC,iper,gcomm,diag)
213 integer,intent(in) :: gcomm variable
222 if (gcomm.eq.1) then
241 if (gcomm.eq.1) then
|