| /phasta/phSolver/common/ |
| H A D | gen_ncorp.c | 142 int iacc = ilwork[itkbeg+2]; //0 for slave, 1 for master in count_owned() local
143 assert(iacc >= 0 && iacc <= 1); in count_owned()
150 assert(iacc == 0 || iacc == 1); in count_owned()
151 if(iacc) in count_owned()
|
| H A D | commuInt.f | 101 iacc = ilwork (itkbeg + 2)
109 if (iacc .EQ. 0) then
172 iacc = ilwork (itkbeg + 2)
175 if(iacc.eq.1) then
|
| H A D | commu.f | 140 iacc = ilwork (itkbeg + 2)
148 if (iacc .EQ. 0) then
271 iacc = ilwork (itkbeg + 2)
274 if(iacc.eq.1) then
|
| H A D | getvel.f | 52 iacc = ilwork (itkbeg + 2)
55 if (iacc .eq. 0) then
|
| H A D | ctypes.f | 38 iacc = ilwork (itkbeg + 2)
72 if (iacc .eq. 0) nshg0 = nshg0 - lenseg(is)
|
| H A D | getdmc.f | 225 iacc = ilwork (itkbeg + 2)
228 if (iacc .eq. 0) then
|
| H A D | bardmc.f | 397 iacc = ilwork (itkbeg + 2)
400 if (iacc .eq. 0) then
|
| /phasta/phSolver/compressible/ |
| H A D | au1gmr.f | 86 iacc = ilwork (itkbeg + 2)
89 if (iacc .eq. 0) then
182 iacc = ilwork (itkbeg + 2)
185 if (iacc .eq. 0) then
|
| H A D | bc3res.f | 182 iacc = ilwork (itkbeg + 2)
185 if (iacc .eq. 0) then
273 iacc = ilwork (itkbeg + 2)
276 if (iacc .eq. 0) then
|
| H A D | sparseap.f | 119 iacc = ilwork (itkbeg + 2)
122 if (iacc .eq. 0) then
|
| H A D | bc3bdg.f | 365 iacc = ilwork (itkbeg + 2)
368 if (iacc .eq. 0) then
455 iacc = ilwork (itkbeg + 2)
458 if (iacc .eq. 0) then
|
| /phasta/phSolver/common/test/ |
| H A D | phIOreadIlwork.cc | 78 int iacc = ilwork [itkbeg + 2]; in main() local
81 if(iacc == 1) numowner++; in main()
113 int iacc = ilwork [itkbeg + 2]; in main() local
123 …on %d:\ttag %d\townership %d\trank %d\tnumseg %d\tnumvtx %d\n",itask,itag,iacc,iother,numseg,lfron… in main()
|
| /phasta/M2N/src/ |
| H A D | commu.f | 134 iacc = ilwork (itkbeg + 2)
142 if (iacc .EQ. 0) then
224 iacc = ilwork (itkbeg + 2)
227 if(iacc.eq.1) then
|
| H A D | ctypes.f | 39 iacc = ilwork (itkbeg + 2)
73 if (iacc .eq. 0) nshg0 = nshg0 - lenseg(is)
|
| /phasta/M2NFixBnd/src/ |
| H A D | commuMax.f | 138 iacc = ilwork (itkbeg + 2)
146 if (iacc .EQ. 0) then
228 iacc = ilwork (itkbeg + 2)
231 if(iacc.eq.1) then
|
| H A D | ctypes.f | 40 iacc = ilwork (itkbeg + 2)
74 if (iacc .eq. 0) nshg0 = nshg0 - lenseg(is)
|
| /phasta/AcuStat/src/ |
| H A D | commuMax.f | 137 iacc = ilwork (itkbeg + 2)
145 if (iacc .EQ. 0) then
227 iacc = ilwork (itkbeg + 2)
230 if(iacc.eq.1) then
|
| H A D | ctypes.f | 40 iacc = ilwork (itkbeg + 2)
74 if (iacc .eq. 0) nshg0 = nshg0 - lenseg(is)
|
| /phasta/phSolver/incompressible/ |
| H A D | bc3per.f | 46 iacc = ilwork (itkbeg + 2)
49 if (iacc .eq. 0) then
|
| H A D | advLES.f | 635 iacc = ilwork (itkbeg + 2)
638 if (iacc .eq. 0) then
748 iacc = ilwork (itkbeg + 2)
751 if (iacc .eq. 0) then
1173 iacc = ilwork (itkbeg + 2)
1176 if (iacc .eq. 0) then
1524 iacc = ilwork (itkbeg + 2)
1527 if (iacc .eq. 0) then
1960 iacc = ilwork (itkbeg + 2)
1963 if (iacc .eq. 0) then
[all …]
|
| H A D | filters.f | 1157 iacc = ilwork (itkbeg + 2)
1160 if (iacc .eq. 0) then
1892 iacc = ilwork (itkbeg + 2)
1895 if (iacc .eq. 0) then
2633 iacc = ilwork (itkbeg + 2)
2636 if (iacc .eq. 0) then
|
| /phasta/phSolver/AMG/ |
| H A D | ramg_paratools.f | 33 integer :: itag,iacc,iother,numseg,isgbeg,itkbeg local
92 iacc = ilwork(itkbeg+2)
140 if (iacc.eq.0) then ! this task is a send, master
146 else if (iacc.eq.1) then ! this task is a receive, slave
176 iacc = ilwork(itkbeg+2)
204 if (iacc.eq.0) then ! this task is a send, master
210 else if (iacc.eq.1) then ! this task is a receive, slave
217 if (iacc.eq.0) then ! this task is a send, master
225 else if (iacc.eq.1) then ! this task is a receive, slave
655 integer :: lvl,i,j,iacc,iother,numseg,numtask,itkbeg,sigi,k local
[all …]
|
| H A D | ramg_ggb.f | 208 integer :: itag,iacc,iother,numseg,isgbeg,itkbeg local
232 iacc = ilwork(itkbeg+2)
236 if (iacc.eq.0) then !slave
|
| H A D | ramg_tools.f | 317 integer :: itag,iacc,iother,numseg,isgbeg,itkbeg local
325 iacc = ilwork(itkbeg+2)
327 if (iacc.eq.0) then
352 integer :: itag,iacc,iother,numseg,isgbeg,itkbeg,numtask local
367 iacc = ilwork(itkbeg+2)
|
| H A D | ramg_control.f | 148 integer :: i,numtask,itkbeg,numseg,iacc local
|