| /phasta/phSolver/common/ |
| H A D | commuInt.f | 94 itkbeg = 1
100 itag = ilwork (itkbeg + 1)
101 iacc = ilwork (itkbeg + 2)
102 iother = ilwork (itkbeg + 3)
103 numseg = ilwork (itkbeg + 4)
104 isgbeg = ilwork (itkbeg + 5)
138 lenseg = ilwork (itkbeg + 4 + 2*is)
154 itkbeg = itkbeg + 4 + 2*numseg
167 itkbeg=1
172 iacc = ilwork (itkbeg + 2)
[all …]
|
| H A D | commu.f | 133 itkbeg = 1
139 itag = ilwork (itkbeg + 1)
140 iacc = ilwork (itkbeg + 2)
141 iother = ilwork (itkbeg + 3)
142 numseg = ilwork (itkbeg + 4)
143 isgbeg = ilwork (itkbeg + 5)
199 lenseg = ilwork (itkbeg + 4 + 2*is)
239 itkbeg = itkbeg + 4 + 2*numseg
266 itkbeg=1
271 iacc = ilwork (itkbeg + 2)
[all …]
|
| H A D | ctypes.f | 26 itkbeg = 1
38 iacc = ilwork (itkbeg + 2)
42 numseg = ilwork (itkbeg + 4)
47 ilwork (itkbeg + 3) = ilwork (itkbeg + 3) - 1
58 isbegin (is) = ilwork (itkbeg + 3 + 2*is)
62 lenseg (is) = ilwork (itkbeg + 4 + 2*is)
157 itkbeg = itkbeg + 4 + 2*numseg
|
| H A D | getvel.f | 47 itkbeg = 1
52 iacc = ilwork (itkbeg + 2)
53 numseg = ilwork (itkbeg + 4)
57 isgbeg = ilwork (itkbeg + 3 + 2*is)
58 lenseg = ilwork (itkbeg + 4 + 2*is)
65 itkbeg = itkbeg + 4 + 2*numseg
|
| H A D | gen_ncorp.c | 136 int itkbeg = 0; //task offset in count_owned() local
141 int itag = ilwork[itkbeg+1]; //mpi tag in count_owned()
142 int iacc = ilwork[itkbeg+2]; //0 for slave, 1 for master in count_owned()
144 int iother = ilwork[itkbeg+3]-1; //other rank (see ctypes.f for off by one) in count_owned()
145 int numseg = ilwork[itkbeg+4]; //number of segments in count_owned()
148 int isgbeg = ilwork[itkbeg+5+(j*2)]; //first idx of seg in count_owned()
149 int lenseg = ilwork[itkbeg+6+(j*2)]; //length of seg in count_owned()
177 assert(itkbeg+6+(j*2) < nlwork); in count_owned()
179 itkbeg+= 4+2*numseg; in count_owned()
|
| H A D | getdmc.f | 220 itkbeg = 1
225 iacc = ilwork (itkbeg + 2)
226 numseg = ilwork (itkbeg + 4)
230 isgbeg = ilwork (itkbeg + 3 + 2*is)
231 lenseg = ilwork (itkbeg + 4 + 2*is)
238 itkbeg = itkbeg + 4 + 2*numseg
|
| /phasta/phSolver/compressible/ |
| H A D | au1gmr.f | 82 itkbeg = 1
86 iacc = ilwork (itkbeg + 2)
87 numseg = ilwork (itkbeg + 4)
91 isgbeg = ilwork (itkbeg + 3 + 2*is)
92 lenseg = ilwork (itkbeg + 4 + 2*is)
98 itkbeg = itkbeg + 4 + 2*numseg
178 itkbeg = 1
182 iacc = ilwork (itkbeg + 2)
183 numseg = ilwork (itkbeg + 4)
187 isgbeg = ilwork (itkbeg + 3 + 2*is)
[all …]
|
| H A D | bc3res.f | 178 itkbeg = 1
182 iacc = ilwork (itkbeg + 2)
183 numseg = ilwork (itkbeg + 4)
187 isgbeg = ilwork (itkbeg + 3 + 2*is)
188 lenseg = ilwork (itkbeg + 4 + 2*is)
194 itkbeg = itkbeg + 4 + 2*numseg
269 itkbeg = 1
273 iacc = ilwork (itkbeg + 2)
274 numseg = ilwork (itkbeg + 4)
278 isgbeg = ilwork (itkbeg + 3 + 2*is)
[all …]
|
| H A D | sparseap.f | 115 itkbeg = 1
119 iacc = ilwork (itkbeg + 2)
120 numseg = ilwork (itkbeg + 4)
124 isgbeg = ilwork (itkbeg + 3 + 2*is)
125 lenseg = ilwork (itkbeg + 4 + 2*is)
131 itkbeg = itkbeg + 4 + 2*numseg
|
| H A D | bc3bdg.f | 361 itkbeg = 1
365 iacc = ilwork (itkbeg + 2)
366 numseg = ilwork (itkbeg + 4)
370 isgbeg = ilwork (itkbeg + 3 + 2*is)
371 lenseg = ilwork (itkbeg + 4 + 2*is)
382 itkbeg = itkbeg + 4 + 2*numseg
451 itkbeg = 1
455 iacc = ilwork (itkbeg + 2)
456 numseg = ilwork (itkbeg + 4)
460 isgbeg = ilwork (itkbeg + 3 + 2*is)
[all …]
|
| /phasta/AcuStat/src/ |
| H A D | commuMax.f | 130 itkbeg = 1
136 itag = ilwork (itkbeg + 1)
137 iacc = ilwork (itkbeg + 2)
138 iother = ilwork (itkbeg + 3)
139 numseg = ilwork (itkbeg + 4)
140 isgbeg = ilwork (itkbeg + 5)
180 lenseg = ilwork (itkbeg + 4 + 2*is)
204 itkbeg = itkbeg + 4 + 2*numseg
222 itkbeg=1
227 iacc = ilwork (itkbeg + 2)
[all …]
|
| H A D | ctypes.f | 27 itkbeg = 1
40 iacc = ilwork (itkbeg + 2)
44 numseg = ilwork (itkbeg + 4)
49 ilwork (itkbeg + 3) = ilwork (itkbeg + 3) - 1
60 isbegin (is) = ilwork (itkbeg + 3 + 2*is)
64 lenseg (is) = ilwork (itkbeg + 4 + 2*is)
158 itkbeg = itkbeg + 4 + 2*numseg
|
| /phasta/M2NFixBnd/src/ |
| H A D | commuMax.f | 131 itkbeg = 1
137 itag = ilwork (itkbeg + 1)
138 iacc = ilwork (itkbeg + 2)
139 iother = ilwork (itkbeg + 3)
140 numseg = ilwork (itkbeg + 4)
141 isgbeg = ilwork (itkbeg + 5)
181 lenseg = ilwork (itkbeg + 4 + 2*is)
205 itkbeg = itkbeg + 4 + 2*numseg
223 itkbeg=1
228 iacc = ilwork (itkbeg + 2)
[all …]
|
| H A D | ctypes.f | 27 itkbeg = 1
40 iacc = ilwork (itkbeg + 2)
44 numseg = ilwork (itkbeg + 4)
49 ilwork (itkbeg + 3) = ilwork (itkbeg + 3) - 1
60 isbegin (is) = ilwork (itkbeg + 3 + 2*is)
64 lenseg (is) = ilwork (itkbeg + 4 + 2*is)
160 itkbeg = itkbeg + 4 + 2*numseg
|
| /phasta/M2N/src/ |
| H A D | commu.f | 127 itkbeg = 1
133 itag = ilwork (itkbeg + 1)
134 iacc = ilwork (itkbeg + 2)
135 iother = ilwork (itkbeg + 3)
136 numseg = ilwork (itkbeg + 4)
137 isgbeg = ilwork (itkbeg + 5)
177 lenseg = ilwork (itkbeg + 4 + 2*is)
201 itkbeg = itkbeg + 4 + 2*numseg
219 itkbeg=1
224 iacc = ilwork (itkbeg + 2)
[all …]
|
| H A D | ctypes.f | 27 itkbeg = 1
39 iacc = ilwork (itkbeg + 2)
43 numseg = ilwork (itkbeg + 4)
48 ilwork (itkbeg + 3) = ilwork (itkbeg + 3) - 1
59 isbegin (is) = ilwork (itkbeg + 3 + 2*is)
63 lenseg (is) = ilwork (itkbeg + 4 + 2*is)
155 itkbeg = itkbeg + 4 + 2*numseg
|
| /phasta/phSolver/AMG/ |
| H A D | ramg_paratools.f | 33 integer :: itag,iacc,iother,numseg,isgbeg,itkbeg local
68 itkbeg = 1
91 itag = ilwork(itkbeg+1)
92 iacc = ilwork(itkbeg+2)
93 iother = ilwork(itkbeg+3)
94 numseg = ilwork(itkbeg+4)
95 isgbeg = ilwork(itkbeg+5)
107 k = ilwork(itkbeg+3+2*j) ! row idx
157 itkbeg = itkbeg + 4 + 2*numseg
169 itkbeg = 1
[all …]
|
| H A D | ramg_ggb.f | 208 integer :: itag,iacc,iother,numseg,isgbeg,itkbeg local
223 itkbeg = 1
231 itag = ilwork(itkbeg+1)
232 iacc = ilwork(itkbeg+2)
233 iother = ilwork(itkbeg+3)
234 numseg = ilwork(itkbeg+4)
235 isgbeg = ilwork(itkbeg+5)
244 itkbeg = itkbeg + 4 + 2*numseg
|
| H A D | ramg_control.f | 148 integer :: i,numtask,itkbeg,numseg,iacc local
170 itkbeg = 1
172 subnei(i)=ilwork(itkbeg+3)+1
174 itkbeg = itkbeg + 4 + 2*ilwork(itkbeg+4)
|
| H A D | ramg_tools.f | 317 integer :: itag,iacc,iother,numseg,isgbeg,itkbeg local
323 itkbeg = 1
325 iacc = ilwork(itkbeg+2)
326 numseg = ilwork(itkbeg+4)
329 isgbeg = ilwork(itkbeg+3+j*2)
330 lenseg = ilwork(itkbeg+4+j*2)
335 itkbeg = itkbeg+4+2*numseg
352 integer :: itag,iacc,iother,numseg,isgbeg,itkbeg,numtask local
364 itkbeg = 1
366 itag = ilwork(itkbeg+1)
[all …]
|
| H A D | ramg_coarse.f | 41 integer :: numtask,itkbeg,numseg,iacc local
84 itkbeg = 1
86 subnei(i)=ilwork(itkbeg+3)+1 ! iother+1
88 itkbeg = itkbeg + 4 + 2*ilwork(itkbeg+4)
|
| /phasta/phSolver/common/test/ |
| H A D | phIOreadIlwork.cc | 71 int itkbeg = 0; in main() local
78 int iacc = ilwork [itkbeg + 2]; in main()
79 int iother = ilwork [itkbeg + 3]; in main()
80 int numseg = ilwork [itkbeg + 4]; in main()
83 itkbeg = itkbeg + 4 + 2*numseg; in main()
110 itkbeg = 0; in main()
112 int itag = ilwork [itkbeg + 1]; in main()
113 int iacc = ilwork [itkbeg + 2]; in main()
114 int iother = ilwork [itkbeg + 3]; in main()
115 int numseg = ilwork [itkbeg + 4]; in main()
[all …]
|
| /phasta/phSolver/incompressible/ |
| H A D | bc3per.f | 42 itkbeg = 1
46 iacc = ilwork (itkbeg + 2)
47 numseg = ilwork (itkbeg + 4)
51 isgbeg = ilwork (itkbeg + 3 + 2*is)
52 lenseg = ilwork (itkbeg + 4 + 2*is)
58 itkbeg = itkbeg + 4 + 2*numseg
|
| H A D | advLES.f | 629 itkbeg = 1
635 iacc = ilwork (itkbeg + 2)
636 numseg = ilwork (itkbeg + 4)
640 isgbeg = ilwork (itkbeg + 3 + 2*is)
641 lenseg = ilwork (itkbeg + 4 + 2*is)
647 itkbeg = itkbeg + 4 + 2*numseg
744 itkbeg = 1
748 iacc = ilwork (itkbeg + 2)
749 numseg = ilwork (itkbeg + 4)
753 isgbeg = ilwork (itkbeg + 3 + 2*is)
[all …]
|
| H A D | filters.f | 1152 itkbeg = 1
1157 iacc = ilwork (itkbeg + 2)
1158 numseg = ilwork (itkbeg + 4)
1162 isgbeg = ilwork (itkbeg + 3 + 2*is)
1163 lenseg = ilwork (itkbeg + 4 + 2*is)
1169 itkbeg = itkbeg + 4 + 2*numseg
1887 itkbeg = 1
1892 iacc = ilwork (itkbeg + 2)
1893 numseg = ilwork (itkbeg + 4)
1897 isgbeg = ilwork (itkbeg + 3 + 2*is)
[all …]
|